Запущена программа или нет

[Маркъ]

Как определить запущена программа или нет из другого приложения, а именно у меня есть сервис и он должен следить за определённым событием если событие происходит и программа не запущена, то необходимо запустить её.

[zetrix]

procedure findform;
var h:hWnd;
begin
h:=FindWindows(nil,'Название'); //здесь название твоего окна (заголовок!)
if h=0 then ... //если не найдено (т.е. не запущено), то делаем то, что нужно
end;

[Маркъ]

В принципе заголовок окна у меня меняется, но его всего два варианта и немного изменить код для меня труда не составило, но вот появилась ещё одна проблемма, я из того же сервиса пытаюсь запустить программу, она запускается, но окна не видно. Как исправить. Пользуюсь инструкцией
shellExecute(0,Nil,pChar(extractfil epath(paramstr(0))+'MyExe.exe'),Nil ,Nil,SW_NORMAL);

[Маркъ]

Может быть это из-за того, что в программе применяется RxTrayIcon?

[psyke]

чё ты там намутил?

shellExecute(0,Nil,pChar(extractfil epath(paramstr(1)),Nil,Nil,SW_SHOWN ORMAL);

paramstr(0) - первый параметр -- имя приложения;
1..N -- твои параметры.
если ты конечно ЭТО приследовал.

Если не получается, не поленись, напиши ShowMessage(а вот сюда свою лабуду) и посмотри что ты передал в пути, а ещё ShellExecute возвращать что-то умеет, и возвращалка должна быть не меньше 32.

еще, у application есть метод ExeName: String. потыкай, разберёшься.

Учи Изыг!

[Маркъ]

Ну не знаю функция extractfilepath(paramstr( 0)) возвращает путь до католога где расположена программа, не веришь проверь.

[Маркъ]

Все равно сервис запускает программу но она не видна на панели задач.
Вроде есть функция дублирующяя shellExecute, но имеет меньше возможностей. Так вот может объясните как пользоватся (желательно пример)?