Текущий архив: 2002.12.12;
Скачать: CL | DM;
Вниз
WinExec. Код возврата Найти похожие ветки
← →
KoluChi © (2002-10-29 12:32) [0]Как получить возвращаемый код вызываемой программы?
Например, работа с rar.exe (* WinExec("rar.exe", SW_HIDE) *), нужно узнать какой код вернул rar.exe.
← →
Arcus © (2002-10-29 12:57) [1]Используй
CreateProcess
, затем жди окончанияWaitForSingleObject
и можешь получить требуемое черезGetExitCodeProcess
← →
KoluChi © (2002-10-29 13:38) [2]Спасибо!
← →
KoluChi © (2002-10-29 14:21) [3]Проблемка: с GetExitCodeProcess не работает
function ProgramExecCommonErrorCode(const ExecLine: String; const WindowState: Integer; ErrorCode: PInteger = nil; ShowError: Boolean = false): Boolean;
var
SI: _STARTUPINFOA;
PI: _PROCESS_INFORMATION;
ExitCode: Cardinal;
PrHandle: THandle;
begin
with SI do
begin
lpReserved := nil;
wShowWindow := WindowState;
dwFlags := STARTF_USESHOWWINDOW;
end;
if CreateProcess(PChar(ExecLine), nil, nil, nil, true, {CREATE_NEW_CONSOLE + }NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then
begin
PrHandle := PI.hProcess;
WaitForSingleObject(PrHandle, INFINITE);
GetExitCodeProcess(PrHandle, ExitCode); {Без этой строки работает, а с ней даже не запускается}
ShowMessage("Exit code=" + IntToStr(ExitCode));
end;
end;
← →
Arcus © (2002-10-29 15:59) [4]C ходу вроде все нормально...
Вот кусок из работающей программы, м.б. поможет?
function ...(const CommandLine: string)...;
var PrInfo: PROCESS_INFORMATION;
StInfo: STARTUPINFO;
ExitCode: DWord;
begin
...
ZeroMemory(@StInfo, sizeof(StInfo) );
StInfo.cb:= sizeof(StInfo);
if not CreateProcess(nil, PChar(CommandLine), nil, nil, False, CREATE_NEW_PROCESS_GROUP, nil, PChar(GetMyPathName), StInfo, PrInfo) then Exit;
WaitForSingleObject(PrInfo.hProcess, INFINITE);
GetExitCodeProcess(PrInfo.hProcess, ExitCode);
CloseHandle(PrInfo.hProcess);
CloseHandle(PrInfo.hThread);
if ExitCode <> 0 then Exit;
...
← →
KoluChi © (2002-10-30 13:27) [5]Спасибо большое! Действительно работает!
Страницы: 1 вся ветка
Текущий архив: 2002.12.12;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.02 c