Два приложения

← →
ККВ (2003-04-15 09:30) [0]

Товарищи, может кто-нибудь подскажет, как из своего приложения запустить др. приложение, но так что-бы они работали независимо др. от др. Использую сл. процедуру, второе приложение работает, а первое не отвечает, пока не завершишь второе. Может быть подскажете др. способ...
Спасибо.

procedure Start(CmdLine:string);
var
si: TStartupInfo;
p: TProcessInformation;
begin
FillChar(Si,SizeOf(Si),#0);
with Si do begin
cb := SizeOf( Si);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := SW_SHOWDEFAULT;
end;
if not CreateProcess(
nil,
PChar(CmdLine),
nil,
nil,
false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil,
nil,
si,
p)
then
ShowMessage("

← →
MBo (2003-04-15 09:41) [1]

WaitForsingleObject убери, но закрой хэндлы

← →
ККВ (2003-04-15 09:43) [2]

спасибо, помогло

← →
Nikolai (2003-04-15 09:43) [3]

убери
WaitForsingleObject(p.hProcess,Infinite);
и не забудь про
CloseHandle(p.hThread);
CloseHandle(p.hProcess);

Два приложения Найти похожие ветки