Страница 1 из 1
Выдать код возврата из программы ....
Добавлено: 12 Декабрь 2008, 12:42
Игорь Столяров
Привет всем !
Clarion 6.3 9058
Вот потребовалось выдать код возврата (DOS ErrorLevel) из программы, сделанной на Clarion.
Ничего лучше, чем HALT(CodError) - не нашел, но его рекомендуют использовать только для отладки,
да и полное прерывание работы программы в точке возврата кода не есть очень хорошо ...
Есть ли идеи как еще можно вернуть код возврата ? Или записать его куда-нибудь через API ...
Заранее спасибо !
Re: Выдать код возврата из программы ....
Добавлено: 12 Декабрь 2008, 13:55
Aнтон87
Привет всем!
Игорь не утверждаю, что код написан мной, но интернете вот что нашел. Поскольку подобная задача и ранее у меня возникала.
Вопрос: Подскажите, как узнать, завершился ли процесс, запущеный по ShellExecute?
Ответ 1: Ниже работающая функция, которая реализует требуемую задачу.
Код: Выделить всё
RunJob FUNCTION(*CSTRING ProgramName,*CSTRING Param)
PROC::ID STRING('RunJob')
SW_HIDE EQUATE(0)
WE WinError
RetVal ULONG
ExitCode ULONG
INFINITE EQUATE(0FFFFFFFFh)
WAIT_FAILED EQUATE(0FFFFFFFFh)
STARTF_USESHOWWINDOW EQUATE(00000001h)
SI GROUP(STARTUPINFO).
PI GROUP(PROCESS_INFORMATION).
ProgPar CSTRING(SIZE(FIL:ProgramName) + SIZE(FIL:Parameters))
CODE
WE.Init()
ProgPar = ProgramName & ' ' & Param
! memset(ADDRESS(SI),0,SIZE(SI))
SI.StructSize = SIZE(SI)
SI.Flags = STARTF_USESHOWWINDOW
SI.ShowWindow = SW_HIDE
Loging( PROC::ID & ' Starting Job ' & ProgPar)
UNLOCKTHREAD()
IF CreateProcess(0,ADDRESS(ProgPar),0,0,FALSE,0,0,0,ADDRESS(SI),ADDRESS(PI))
IF WaitForSingleObject(PI.hProcess,INFINITE)
RetVal = WE.GetError()
ELSE
Loging( PROC::ID & ' Job ' & ProgramName & ' ended successful')
IF ~GetExitCodeProcess(PI.hProcess, ADDRESS(ExitCode))
RetVal = WE.GetError()
Loging( PROC::ID & ' Error posted during ' & ProgramName)
END
END
ELSE
RetVal = WE.GetError()
Loging( PROC::ID & ' Error posted during ' & ProgramName)
END
LOCKTHREAD()
WE.Kill()