Output del compilatore
'Get compiler output
Declare Function WaitForSingleObject Lib "kernel32" Alias "WaitForSingleObject" _
(hHandle As Long, dwMilliseconds As Long) As Long
CONST Q = CHR$(34)
CHDIR FilePath
A = SHELL("C:\Program Files\RapidQ\RC.exe -r "+Q+FileName+Q+, 0)
WaitForSingleObject (A, &HFFFF) ' SHELL as a function!!
Output.LoadFromFile FilePath+"DUMP.$$$"
KILL FilePath+"DUMP.$$$"
|