Ожидание окончания вызванного процесса

[Johnson]

Вобщем мне необходимо какимто образом дождаться звершения вызванного процесса, и следом запустить ещё один....
если не понятно выразился:
есть 2 утилиты декодировки... сначала файл раскодируется одной программой, затем раскодированный файл ещё раз раскодируется другой... если я вызываю 2 раза WiinExec, то первая утилита неуспевает раскодировать, а вторая уже запускается... естественно, вторая ничего не находит, и выдаёт ошибку...

Пробовал реализовывать примеры, которые запускают процесс через CreateProcess, и затем ждут окончания через WaitForSingleObject

ничего у меня не получилось, вылезает ошибка "Неверная попытка доступа к адресу памяти"

вот примерный код(в том виде как я его вызываю):

PHP код:

Procedure Decode_SS;
var
  si: TStartupInfo;
  pi: TProcessInformation;
begin
  FillChar(si, SizeOf(si),1);
  si.cb := SizeOf(si);
  FillChar(pi, SizeOf(pi),1);
  if CreateProcess('l2encdec.exe', '-s SystemMsg-e.dat', nil, nil,false,0,nil,nil,si,pi)  then
       begin
          WaitForSingleObject(pi.hProcess, INFINITE);
          CloseHandle(pi.hProcess);
          CloseHandle(pi.hThread);
       end
  else
  begin
    MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOK], 0);
  end;
end; 


[B_N]

Причина 1. Почему структуры заполняются единицами, а не нулями?
Причина 2. В CreateProcess нужно передавать полный путь к исполняемому файлу, иначе система будет искать его в текущем каталоге.

[Johnson]

mg:
почествовал себя нубом) не обратил внимания, что единицами заполняю, помогло)
полный путь какраз не нужен, декодер лежит в папке с моей программой

ЗЫ: вопрос теперь другой, как не дать закрыться вызываемому консольному приложению? дело в том, что параметры пытаюсь передать верные, но декодер не раскодирует файл, а ошибку прочитать естественно неуспеваю...

И ещё, как запустить этот процесс скрытым (как SW_HIDE в WinExec)

[Ring0Sn]

На будещее такие веши делай через ZeroMemory и не придеться потом такие лажовые ошибки ловить

[Johnson]

Ring0Sn, покажешь как?
ЗЫ вопрос про отменение закрытия остаётся в силе

[Ring0Sn]

Что тут показывать то

Windows.pas:
procedure ZeroMemory(Destination: Pointer; Length: DWORD);
begin
  FillChar(Destination^, Length, 0);
end;

[Johnson]

Сори, ступил, вопрос отменяется) неправильно вызвал процесс)
делал так:

if CreateProcess(эl2encdec.exeэ , '-s SystemMsg-e.dat', nil, nil,false,0,nil,nil,si,pi)  then

а нужно было так:

if CreateProcess(nil, 'l2encdec.exe -s SystemMsg-e.dat', nil, nil,false,0,nil,nil,si,pi)  then

[Johnson]

Остается вопрос: как вызвать процесс невидимым? например также как это делает WinExec с параметром SW_HIDE

[B_N]

Сообщение от Johnson

Остается вопрос: как вызвать процесс невидимым? например также как это делает WinExec с параметром SW_HIDE

STARTUPINFO Structure
Смотрите в сторону wShowWindow.

[JTG]

Хм... а нельзя в данном случае обойтись батником типа

@echo off
echo Working...
echo ======================== >>log.txt
date /T >>log.txt
call ping.exe mail.ru >>log.txt (первая программа)
call ping.exe 127.0.0.1 >>log.txt (вторая программа)
echo Done. See log.txt for details
pause

?