Скачать: CL | DM;

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

← →
ККВ ©   (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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c