Subject Is Interbase Server Running?
Author M Tuttle
Greetings All,

I have this function in my dpr file...
Function IsIBRunning(): boolean;
begin
if GetWindow(GetDesktopWindow, GW_HWNDNEXT) = FindWindow('IB_Server',
'InterBase Server') Then
result := False
else
result := True;
end;

And I call it like this...
if not IsIBRunning Then
begin
if MsgDlg('Interbase Server is either not started or has not been
installed.' +#13#13+
'Would you like to attempt to start the Interbase Server?',
'Interbase Server Error', mtWarning, [mbYes, mbNo], 0) = mrYes then
if not StartServer then
exit
else
exit;
end;

The problem is this is looking for IB_Server on the workstation and not on
the server.

How can I check to see if the IB_Server is running on the server from the
client workstation?

Thanks for any pointers.

Mike