Subject | Is Interbase Server Running? |
---|---|
Author | M Tuttle |
Post date | 2001-10-23T14:49:39Z |
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
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