Code: Select all
// erelvl.prg
#include "fivewin.ch"
PROCEDURE Main()
LOCAL nErr
nErr := WaitRun("tst2.exe")
MSGInfo(nErr)
MSGInfo(errorlevel()) // returns 0
RETURN
// tst2.prg
? "hello to you"
errorlevel(1)
inkey(3)
Code: Select all
// erelvl.prg
#include "fivewin.ch"
PROCEDURE Main()
LOCAL nErr
nErr := WaitRun("tst2.exe")
MSGInfo(nErr)
MSGInfo(errorlevel()) // returns 0
RETURN
// tst2.prg
? "hello to you"
errorlevel(1)
inkey(3)