Hello!

This another way for detect FB is running.

Procedure CheckFBRun(out FBGuardRunning,FBServerRunning:boolean);
var Wnd: HWND;
begin
Wnd := FindWindow(PChar('FB_Guard'), nil {PChar('Firebird Guardian')});
FBGuardRunning:=Wnd<>0;
Wnd := FindWindow(PChar('FB_Server'), nil {PChar('Firebird Server')});
FBServerRunning:=Wnd<>0;
end;

WBR, Dmitry Beloshistov AKA [-=BDS=-]


We do it in Windows by checking whether the service is running. Check
out http://www.delphifaq.com/fq/q2121.shtml for the basic idea:

uses Windows, WinSvc;
function ServiceIsRunning(sMachine, sService: String) : Boolean;



[Non-text portions of this message have been removed]