| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Два приложения [D7, WinXP]
ККВ © (2003-04-15 09:30:00)Товарищи, может кто-нибудь подскажет, как из своего приложения запустить др. приложение, но так что-бы они работали независимо др. от др. Использую сл. процедуру, второе приложение работает, а первое не отвечает, пока не завершишь второе. Может быть подскажете др. способ...
Спасибо.
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("
ККВ (2003-04-15 09:43:00) [1]спасибо, помогло
Nikolai (2003-04-15 09:43:00) [2]убери
WaitForsingleObject(p.hProcess,Infinite);
и не забудь про
CloseHandle(p.hThread);
CloseHandle(p.hProcess);
MBo (2003-04-15 09:41:00) [3]WaitForsingleObject убери, но закрой хэндлы
| |
