' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' 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.$$$"



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb