Bir programın makinada çalışıp çalışmadığını öğrenme

[ozzyksk]

Benim sorunum firebird makinada çalışır durumdamı anlamak.
Bunun için fbserver ve fbguard exenin çalışıp çalışmadığını kontrol etmek istiyorum.
CreateMutex(nil,FALSE,'PROGRAMADI');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
ShowMessage('Program calismakta.');
Halt(0);
end;
Kodunu denedim ama bu kod bir handel yaratıp daha sonra çalışıp çalıştırılmadığına bakıyor.işime yaramıyor.
Yardımlarınız için şimdiden teşekkürler.