Subject | Re: [firebird-support] Re: Win98 Start/Stop Server |
---|---|
Author | Bogusław Brandys |
Post date | 2004-08-30T19:44:28Z |
Hello,
Dnia Thu, 26 Aug 2004 15:03:50 -0000, federico_olivia
<federico_olivia@...> napisał:
According to Your needs You could use it and expand using SendMessage and
WM_CLOSE message or write own simple program using Delphi or C++.
function InitializeSetup(): Boolean;
var
i: Integer;
begin
result := true;
if not CheckWinsock2 then
exit;
//Look for a running copy of InterBase, or an old version of Firebird.
i:=0;
i:=FindWindowByClassName('IB_Server') ;
if i<>0 then begin
result := false;
//We could be clever and try to stop the server.
//If that fails we could try to close the app.
//For now, let's be cowards and take the easy way out and
//leave the user to do the work.
MsgBox('An existing Firebird or InterBase Server is running. You must
close the '+
'application or stop the service before continuing.', mbError,
MB_OK);
end;
//sooner or later Firebird will have its own class name for the server
if i<>0 then begin
i:=0;
i:=FindWindowByClassName('FB_Server') ;
if i<>0 then begin
result := false;
MsgBox('An existing Firebird Server is running. You must close the '+
'application or stop the service before continuing.',
mbError, MB_OK);
end;
end;
end;
Regards
Bogusław Brandys
Best Regards
Bogusław Brandys
Dnia Thu, 26 Aug 2004 15:03:50 -0000, federico_olivia
<federico_olivia@...> napisał:
> I need make a custom unistaller, for uninstall firebird i need stopThis snippet is taken from official Firebird (1.0?) Inno Setup instalation.
> server (this is easy in wNT/2000 but not in w98) from my program.
> This is the problem!
> Any ideas?
>
According to Your needs You could use it and expand using SendMessage and
WM_CLOSE message or write own simple program using Delphi or C++.
function InitializeSetup(): Boolean;
var
i: Integer;
begin
result := true;
if not CheckWinsock2 then
exit;
//Look for a running copy of InterBase, or an old version of Firebird.
i:=0;
i:=FindWindowByClassName('IB_Server') ;
if i<>0 then begin
result := false;
//We could be clever and try to stop the server.
//If that fails we could try to close the app.
//For now, let's be cowards and take the easy way out and
//leave the user to do the work.
MsgBox('An existing Firebird or InterBase Server is running. You must
close the '+
'application or stop the service before continuing.', mbError,
MB_OK);
end;
//sooner or later Firebird will have its own class name for the server
if i<>0 then begin
i:=0;
i:=FindWindowByClassName('FB_Server') ;
if i<>0 then begin
result := false;
MsgBox('An existing Firebird Server is running. You must close the '+
'application or stop the service before continuing.',
mbError, MB_OK);
end;
end;
end;
Regards
Bogusław Brandys
> --- In firebird-support@yahoogroups.com, Helen Borrie <helebor@t...>--
> wrote:
>> At 02:17 PM 26/08/2004 +0100, you wrote:
>> >federico_olivia wrote:
>> >
>> > > I need start / stop server from command line in Win98.
>> > > net stop/start not work.
>> > > Any idea?
>> >
>> >Firebird only runs as an application on Win98 so the services
> functions
>> >are not available. You can stop it via the process list, but not
>> >directly from the command line.
>>
>> However, if you are running Superserver and you can see the server
> icon in
>> the system tray, you can right click on it to shut down the server
> (or the
>> Guardian, if you have it taking care of things).
>>
>> But note, if you are using the machine as a server for remote
> client,
>> shutting down the server is not a cool idea...
>>
>> ./heLen
>
>
>
>
> Yahoo! Groups Links
>
>
>
>
Best Regards
Bogusław Brandys