'Can't get WaitForSingleObject to work.
'What handle is passed in main thread?
'What handle is passed in main thread?
Code:
'handle.bas #DIM ALL #COMPILE EXE DECLARE FUNCTION wait(hThread AS DWORD) AS STRING #INCLUDE "win32api.inc" FUNCTION WINMAIN( _ BYVAL hInstance AS DWORD, _ BYVAL hPrevInst AS DWORD, _ BYVAL lpszCmdLine AS ASCIIZ PTR, _ BYVAL nCmdShow AS LONG ) AS LONG LOCAL zBuffer AS ASCIIZ * %MAX_PATH LOCAL s AS STRING LOCAL dw AS DWORD LOCAL h AS LONG LOCAL result AS LONG h = %HWND_DESKTOP dw = WaitForSingleObject(h, %INFINITE) result = GetLastError() FormatMessage %FORMAT_MESSAGE_FROM_SYSTEM, BYVAL %NULL, Result, %NULL, zBuffer, SIZEOF(zBuffer), BYVAL %NULL MSGBOX zBuffer 'This works MSGBOX "Test MSGBOX" Result = GetLastError() FormatMessage %FORMAT_MESSAGE_FROM_SYSTEM, BYVAL %NULL, Result, %NULL, zBuffer, SIZEOF(zBuffer), BYVAL %NULL MSGBOX zBuffer FUNCTION = 1 END FUNCTION
Comment