| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

WinExec. Код возврата

KoluChi ©   (2002-10-29 12:32:00) 

Как получить возвращаемый код вызываемой программы?
Например, работа с rar.exe (* WinExec("rar.exe", SW_HIDE) *), нужно узнать какой код вернул rar.exe.

---

KoluChi   (2002-10-30 13:27:00) [1]

Спасибо большое! Действительно работает!

---

Arcus   (2002-10-29 15:59:00) [2]

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-29 14:21:00) [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;


---

KoluChi   (2002-10-29 13:38:00) [4]

Спасибо!

---

Arcus   (2002-10-29 12:57:00) [5]

Используй CreateProcess, затем жди окончания WaitForSingleObjectи можешь получить требуемое через GetExitCodeProcess

---

Наверх