Как узнать программа запущена или нет?

[ilSMoKEli]

Доброго времени суток
Помогите пожалуйста как узнать запущена программа или нет. . .
Пробывал узнать по заголовку окна но не как не могу его подобрать или защита какайто стоит на файле я хз
Как ещё можно узнать что нужная программа запущена
P.S Нужно чтобы можно было узнать не только exe файлы но и bin файлы

[Яр|/||< (^_^)]

А эти файлы(исполняемые) пишите вы? Если да то проще всего пишите это где нибудь в реестре или в файлик

[p51x]

2 ilSMoKEli
Чем не устраевает снимок процессов? Тот, которой CreateToolhelp32Snapshot отдает?

[Kotofff]

Есть затертая до дыр функция поиска окна по части названия :

var
  Wnd: hWnd;
  buff: array[0..127] of Char;
begin
  Find := 0;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (Wnd <> Application.Handle) and IsWindowVisible(Wnd) and (GetWindow(Wnd, gw_Owner) = 0) and (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      GetWindowText(Wnd, buff, sizeof(buff));
      if pos(s, StrPas(buff)) > 0 then
      begin
        Find := Wnd;
        Break;
      end;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;

Работает безупречно !
Только одно НО : нужно часть названия писать с учетом регистра, но это можно поправить в самой функции ...

[Terran]

Если захотите сделать проверку по имени запущенного процесса, то тут можете скачать модуль http://programmersforum.ru/showthread.php?t=80214
В нём есть нужная функция.

[ilSMoKEli]

Спасибо за помощь
Воспользовался этой софтиной и нашол заголовок окна
http://www.delphimaster.ru/articles/winapi/index.html