
25.04.2008, 09:49
|
Начинающий
|
|
Регистрация: 08.04.2008
Сообщения: 177
Репутация: 15
|
|
тогда тебе придеться использовать такой запуск к примеру
Код:
var
stin: STARTUPINFO;
prin: PROCESS_INFORMATION;
==================================================
//убираем стейонтоп
Form1.FormStyle:=fsNormal
stin.wShowWindow := SW_SHOW;
stin.dwFlags := STARTF_USESHOWWINDOW;
CreateProcess(nil,{строка запуска},nil,nil,false,0,nil,{путь},stin,prin);
WaitForSingleObject(prin.hProcess,INFINITE); //ждем пока отработает
//а потом снова
Form1.FormStyle:=fsStayOnTop
|