jak sprawdzić czy dany program jest uruchomiony?

Jak w temacie.
Jak sprawdzić czy program o znanej nazwie jest uruchomiony? Szukałem w FAQ ( i nie tylko) ale nie znalazłem interesującego mnie rozwiązania.

uzyj funkcji CreateToolHelp32Snapshot, Process32First oraz Process32Next, dzieki nim uzyskasz liste aktualnie dzialajacych procesow

procedure TForm1.FormCreate(Sender: TObject);
var  hMapping : cardinal;
begin
    hMapping:=CreateFileMapping(THANDLE($FFFFFFFF),nil,
      PAGE_READONLY,0,32,'ApplicationTestMap');
    if GetLastError=ERROR_ALREADY_EXISTS then
      begin
        Application.MessageBox('Program jest już uruchomiony','Informacja',
        mb_OK+MB_IconInformation);
        Application.Terminate;
      end;
end;

Jezeli chodzi ci o sprawdzenie programu, do ktorego znasz sciezke, to mozna otworzyc blik do zapisu. Jezeli wywali blad to plik jest uruchomiony.