невидимое окно cmd, вызываемого из приложения

[Mishko78]

Подскажите, как сделать невидимым окно вызываемого приложения-архиватора из проекта, а именно окно cmd.

if not CreateProcess(nil, PChar(CmdLine), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then begin
    raise Exception.CreateFmt('Невозможно запустить программу',[CmdLine]);
  end;

[Serge_Bliznykov]

насколько я помню, то нужно правильно заполнить поля StartupInfo

var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  Result:=0;
  try
      ZeroMemory(@si,sizeof(si));
      si.cb:=SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_HIDE;
      if not CreateProcess(nil, PChar(CmdLine), nil, nil, False, 0, nil, nil, si, pi)
      then begin
          Exit;
      end;
      Result:=pi.hProcess;
      if AWaitForTerminate
      then begin
          WaitForSingleObject(pi.hProcess, INFINITE );
          CloseHandle(pi.hProcess);
          CloseHandle(pi.hThread);
      end;
  except
  end;

пример нагло спёрт (чуть переписан под TC) - отсюда

подробности о полях и флагах:

msdn: CreateProcess function

msdn: STARTUPINFO structure

ну и в догонку - ещё полезная (для общего развития) ссылка от гуру Delphi:
Блог GunSmoker-а. Этот проблемный CreateProcess...

[Stilet]

  StartupInfo.cb := SizeOf(StartupInfo);
  StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  StartupInfo.wShowWindow := SW_HIDE;

if not CreateProcess(nil, PChar(CmdLine), nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then begin
    raise Exception.CreateFmt('Невозможно запустить программу',[CmdLine]);
  end;

Годится?

[Mishko78]

Спасибо огромное Stilet

[Stilet]

Да не за что )