Как узнать - запущен ли определенный процесс ?

[Ozerich]

Сообщение от Terran

Может я конечно ошибаюсь, но в этой строчке он спрашивает про поиск окна и у него приведена цитата именно той функции, которая ищит окна...

Он сначала задал первый вопрос а потом вы его потянули к поиску окон вот он уже и насчет поиска спрашивает.

[Var17]

Сообщение от Terran

Может я конечно ошибаюсь, но в этой строчке он спрашивает про поиск окна и у него приведена цитата именно той функции, которая ищит окна...

Спасибо с поиском окна разобрался, еще есть вопрос, а как можно определить активно ли окно в данный момент ?

[Terran]

а как можно определить активно ли окно в данный момент ?

Вы можете узнать хендл активного окна в данный момент вот этом кодом, а потом сравнить со своим и если они не равны, то ваше окно не активно и наоборот.

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Edit1.Text:=IntToStr(GetForegroundWindow);
End;

[Var17]

Сообщение от Terran

Вы можете узнать хендл активного окна в данный момент вот этом кодом, а потом сравнить со своим и если они не равны, то ваше окно не активно и наоборот.

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Edit1.Text:=IntToStr(GetForegroundWindow);
End;

Terran, большое тебе спасибо

[barrbos]

Всем привет. скажу сразу я в делфи полный 0 .. вот ток начил изучать .
новую тему создавать не стал решил тут продолжить.
Хотелось бы штоб ктонить помог
вобщем нужно шоб программа уведомляла о запуске окна (не процеса)
если оно не запущено то таймер надо отматать на 0 ну шоб начать процедуру определения заного если запущено то соответствено продолжить и вывести сообщение
ниже код который не совсем работает .. вообщем не работает .. при запуске вечно выдает одно и тоже сообщение не взависимости запущено нужное окно или нет =(

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=5000;
handle_kalkyl:=findwindow('Калькулятор',nil);
if handle_kalkyl <> 0 then
   showmessage('Калькулятор  запущен');
else
   showmessage('Калькулятор  не запущен');
//тут надо заменить вывод сообщения на отмотку таймера на 0 и начать заного
end;
end.

з.ы. естествено речь идет не о калькуляторе просто взял за пример

[Ozerich]

Перепутал параметры а надо

handle_kalkyl:=findwindow(nil,'Калькулятор');

[TaurusBrown]

А вот ещё вопрос:
Как узнать, запущен ли процесс запускаемого приложения во время запуска? (прошу прощения за "масло масляное помаслить")
Поясняю: моё приложение, как и создаваемый им процесс, называется, например 'App1.exe'.

Я использовал описанную функцию и добавил эту строчку в главный модуль проекта:

begin
  Application.Initialize;
  Application.Title := 'App1';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TFormStart, FormStart);
  Application.CreateForm(TFormMenu, FormMenu);
  If Form1.IsProcesssRun('App1.exe') 
        then FormStart.Show 
        else  FormMenu.Show;
  Application.Run;
end.

но функция всегда возвращает значение true, очевидно, потому что, даже если такого процесса (App1.exe) не было до запуска, то во время проверки он уже есть.