Показать сообщение отдельно
  #8  
Старый 25.04.2008, 09:49
xchrom xchrom вне форума
Начинающий
 
Регистрация: 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
Ответить с цитированием