Jak sprawdzic czy program jest uruchomiony

Witam mam małe pytanko szukałem po stronkach ale nie bardzo to działa. Chodzi mi o to jak sprawdzic za pomoca programu napisanego w delphi czy jakas aplikacja exe jest uruchmiona czy tez nie np gg. z góry dzięki za pomoc

Znalazłem cos takiego ale nie działa, wydaje mi sie ze cos do uses trzeba dodac ale niewiem prosze o pomoc

procedure TForm1.Button1Click(Sender: TObject);
begin
  if EXE_Running('Notepad.exe', False) then
    ShowMessage('EXE is running')
  else
    ShowMessage('EXE is not running');
end;

uses TlHelp32;
{...}
FUNCTION ProcessExists(nazwa :String):Boolean;
var
 uchwyt :THandle;
 proces :TProcessEntry32;
Begin
 Result:= False;
 uchwyt:= CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
 proces.dwSize:= SizeOf(Proces);
 if Integer(Process32First(uchwyt, proces)) <> 0 then
 repeat
   if nazwa = ExtractFileName(proces.szExeFile) then Result:= True;
 until Integer(Process32Next(uchwyt, proces)) = 0;
 CloseHandle(uchwyt);
End;

//Przykład użycia - w procedurze timera podajesz nazwe programu
if ProcessExists('JakiśProgram.exe') then
ShowMessage('Jest!') else ShowMessage('Nie ma!');

5 sek. wyszukiwania na forum...

Dzięki bardzo :-)

Można tylko zamienić wartość parametru Nazwa oraz Proces.szExeFile na wielkie litery, bądź porównać je przy użyciu AnsiCompareText(), bo porównanie przy pomocy operatora = zwróci fałsz przy np. takim porównaniu: 'Notepad.exe' = 'notepad.exe'.