[speles]

Здравствуйте!
Для запуска чужого приложения использую такую функцию:

Код:

procedure ExecApp(CommandLine: string);
 var
  sa : TSECURITYATTRIBUTES;
  si : TSTARTUPINFO;
  pi : TPROCESSINFORMATION;
begin
  sa.nLength := sizeof(sa);
  sa.bInheritHandle := False;
  sa.lpSecurityDescriptor := nil;
  ZeroMemory(@si, SizeOf(si));
  ZeroMemory(@pi, SizeOf(pi));
  si.cb := SizeOf(si);
  si.dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
  si.wShowWindow := SW_SHOW;
  si.hStdInput := 0;
  si.hStdOutput := 0;
  si.hStdError := 0;
  CreateProcessW(nil, pchar(CommandLine), nil, nil, False,  NORMAL_PRIORITY_CLASS, nil, nil, si, pi);
end;

Дочерние приложения запускаются. Но, когда я закрываю свое приложение, дочерние приложение также закрывается. Как сделать чтобы оно продолжало работать?

UPD: Сам разобрался случайно. Такое поведение только когда запускаю приложение из Delphi. Когда запускаю отдельно - все ОК. >_<

[NumLock]

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

Такое поведение только когда запускаю приложение из Delphi. Когда запускаю отдельно - все ОК. >_<

неправда:

Код:

var
  StartupInfo: TStartupInfo;
  ProcessInformation: TProcessInformation;
begin
  ZeroMemory(@StartupInfo, SizeOf(TStartupInfo));
  StartupInfo.cb:=SizeOf(TStartupInfo);
  StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartupInfo.wShowWindow:=SW_SHOWNORMAL;
  if CreateProcess(nil, 'c:\WINDOWS\system32\calc.exe', nil, nil, False, 0,
    nil, nil, StartupInfo, ProcessInformation) then
  begin
    CloseHandle(ProcessInformation.hThread);
    CloseHandle(ProcessInformation.hProcess);
  end;
end;

все прекрасно работает и из под Delphi.

и зачем флаг STARTF_USESTDHANDLES ???

[speles]

Кажется, мне нужно больше спать.
Всё действительно работает, просто процес который я запускал закрывался изза неверных входных данных.
Спасибо за помощь.