Alfred Thomas írta:

>Hi
>
>This might be a bit off topic, but does anyone have an example of an
>InnoSetup script
>that can uninstall\install\stop\start Firebird.
>I would like to add this to the install script of one of my applications.
>
>Regards
>Alfred Thomas
>
>
>
>

Why dont you try the InnoSetup newsgroups?

I install it in a very simple way, with silent install from run section:
[Files]
Source: Firebird\Firebird-1.5.0.4306-Win32.exe; DestDir: {app}\Firebird;
Flags: overwritereadonly uninsremovereadonly; Components:
Firebird_Adatbázis_Motor
Run]
Filename: {app}\Firebird\Firebird-1.5.0.4306-Win32.exe; Parameters:
"/COMPONENTS ""ServerComponent, ClientComponent, DevToolsComponent""
/SILENT /SP- /NORESTART"; Components:
Firebird_Adatbázis_Motor\Szerver_Telepítés; Flags: hidewizard;
StatusMsg: Firebird SuperServer telepítése
Filename: {app}\Firebird\Firebird-1.5.0.4306-Win32.exe; Parameters:
"/COMPONENTS ""ClientComponent, DevToolsComponent"" /SILENT /SP-
/NORESTART"; Components: Firebird_Adatbázis_Motor\Kliens_Telepítés;
Flags: hidewizard; StatusMsg: Firebird Kliens telepítése


For service START STOP you may use this code from the KB (please check
for update)

[Code]
type
SERVICE_STATUS = record
dwServiceType : cardinal;
dwCurrentState : cardinal;
dwControlsAccepted : cardinal;
dwWin32ExitCode : cardinal;
dwServiceSpecificExitCode : cardinal;
dwCheckPoint : cardinal;
dwWaitHint : cardinal;
end;
HANDLE = cardinal;

const
SERVICE_QUERY_CONFIG = $1;
SERVICE_CHANGE_CONFIG = $2;
SERVICE_QUERY_STATUS = $4;
SERVICE_START = $10;
SERVICE_STOP = $20;
SERVICE_ALL_ACCESS = $f01ff;
SC_MANAGER_ALL_ACCESS = $f003f;
SERVICE_WIN32_OWN_PROCESS = $10;
SERVICE_WIN32_SHARE_PROCESS = $20;
SERVICE_WIN32 = $30;
SERVICE_INTERACTIVE_PROCESS = $100;
SERVICE_BOOT_START = $0;
SERVICE_SYSTEM_START = $1;
SERVICE_AUTO_START = $2;
SERVICE_DEMAND_START = $3;
SERVICE_DISABLED = $4;
SERVICE_DELETE = $10000;
SERVICE_CONTROL_STOP = $1;
SERVICE_CONTROL_PAUSE = $2;
SERVICE_CONTROL_CONTINUE = $3;
SERVICE_CONTROL_INTERROGATE = $4;
SERVICE_STOPPED = $1;
SERVICE_START_PENDING = $2;
SERVICE_STOP_PENDING = $3;
SERVICE_RUNNING = $4;
SERVICE_CONTINUE_PENDING = $5;
SERVICE_PAUSE_PENDING = $6;
SERVICE_PAUSED = $7;

//
#######################################################################################
// nt based service utilities
//
#######################################################################################
function OpenSCManager(lpMachineName, lpDatabaseName: string;
dwDesiredAccess :cardinal): HANDLE;
external 'OpenSCManagerA@... stdcall';

function OpenService(hSCManager :HANDLE;lpServiceName: string;
dwDesiredAccess :cardinal): HANDLE;
external 'OpenServiceA@... stdcall';

function CloseServiceHandle(hSCObject :HANDLE): boolean;
external 'CloseServiceHandle@... stdcall';

function CreateService(hSCManager :HANDLE;lpServiceName, lpDisplayName:
string;dwDesiredAccess,dwServiceType,dwStartType,dwErrorControl:
cardinal;lpBinaryPathName,lpLoadOrderGroup: String; lpdwTagId :
cardinal;lpDependencies,lpServiceStartName,lpPassword :string): cardinal;
external 'CreateServiceA@... stdcall';

function DeleteService(hService :HANDLE): boolean;
external 'DeleteService@... stdcall';

function StartNTService(hService :HANDLE;dwNumServiceArgs :
cardinal;lpServiceArgVectors : cardinal) : boolean;
external 'StartServiceA@... stdcall';

function ControlService(hService :HANDLE; dwControl :cardinal;var
ServiceStatus :SERVICE_STATUS) : boolean;
external 'ControlService@... stdcall';

function QueryServiceStatus(hService :HANDLE;var ServiceStatus
:SERVICE_STATUS) : boolean;
external 'QueryServiceStatus@... stdcall';

function QueryServiceStatusEx(hService :HANDLE;ServiceStatus
:SERVICE_STATUS) : boolean;
external 'QueryServiceStatus@... stdcall';

function OpenServiceManager() : HANDLE;
begin
if UsingWinNT() = true then begin
Result := OpenSCManager('','ServicesActive',SC_MANAGER_ALL_ACCESS);
if Result = 0 then
MsgBox('the servicemanager is not available', mbError, MB_OK)
end
else begin
MsgBox('only nt based systems support services', mbError, MB_OK)
Result := 0;
end
end;

function IsServiceInstalled(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_QUERY_CONFIG);
if hService <> 0 then begin
Result := true;
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end
end;

function InstallService(FileName, ServiceName, DisplayName, Description
: string;ServiceType,StartType :cardinal) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService :=
CreateService(hSCM,ServiceName,DisplayName,SERVICE_ALL_ACCESS,ServiceType,StartType,0,FileName,'',0,'','','');
if hService <> 0 then begin
Result := true;
// Win2K & WinXP supports aditional description text for
services
if Description<> '' then

RegWriteStringValue(HKLM,'System\CurrentControlSet\Services\' +
ServiceName,'Description',Description);
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end
end;

function RemoveService(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_DELETE);
if hService <> 0 then begin
Result := DeleteService(hService);
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end
end;

function StartService(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_START);
if hService <> 0 then begin
Result := StartNTService(hService,0,0);
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end;
end;

function StopService(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
Status : SERVICE_STATUS;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_STOP);
if hService <> 0 then begin
Result := ControlService(hService,SERVICE_CONTROL_STOP,Status);
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end;
end;

function IsServiceRunning(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
Status : SERVICE_STATUS;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_QUERY_STATUS);
if hService <> 0 then begin
if QueryServiceStatus(hService,Status) then begin
Result :=(Status.dwCurrentState = SERVICE_RUNNING)
end;
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end
end;

function IsServiceStopped(ServiceName: string) : boolean;
var
hSCM : HANDLE;
hService: HANDLE;
Status : SERVICE_STATUS;
begin
hSCM := OpenServiceManager();
Result := false;
if hSCM <> 0 then begin
hService := OpenService(hSCM,ServiceName,SERVICE_QUERY_STATUS);
if hService <> 0 then begin
if QueryServiceStatus(hService,Status) then begin
Result :=(Status.dwCurrentState = SERVICE_STOPPED)
end;
CloseServiceHandle(hService)
end;
CloseServiceHandle(hSCM)
end
end;

//
#######################################################################################
// create an entry in the services file
//
#######################################################################################
function SetupService(service, port, comment: string) : boolean;
var
filename : string;
s : string;
lines : TArrayOfString;
n : longint;
i : longint;
errcode : integer;
servnamlen : integer;
error : boolean;
begin
if UsingWinNT() = true then
filename := ExpandConstant('{sys}\drivers\etc\services')
else
filename := ExpandConstant('{win}\services');

if LoadStringsFromFile(filename,lines) = true then begin
Result := true;
n := GetArrayLength(lines) - 1;
servnamlen := Length(service);
error := false;

for i:=0 to n do begin
if Copy(lines[i],1,1) <> '#' then begin
s := Copy(lines[i],1,servnamlen);
if CompareText(s,service) = 0 then
exit; // found service-entry

if Pos(port,lines[i]) > 0 then begin
error := true;
lines[i] := '#' + lines[i] + ' # disabled because
collision with ' + service + ' service';
end;
end
else if CompareText(Copy(lines[i],2,servnamlen),service) = 0
then begin
// service-entry was disabled
Delete(lines[i],1,1);
Result := SaveStringsToFile(filename,lines,false);
exit;
end;
end;

if error = true then begin
// save disabled entries
if SaveStringsToFile(filename,lines,false) = false then begin
Result := false;
exit;
end;
end;

// create new service entry
s := service + ' ' + port + ' # ' + comment +
#13#10;
if SaveStringToFile(filename,s,true) = false then begin
Result := false;
exit;
end;

if error = true then begin
MsgBox('the ' + service + ' port was already used. The old
service is disabled now. You should check the services file manually
now.',mbInformation,MB_OK);

InstExec('notepad.exe',filename,GetCurrentDir(),true,false,SW_SHOWNORMAL,errcode);
end;
end
else
Result := false;
end;

//
#######################################################################################
// version functions
//
#######################################################################################
function CheckVersion(Filename : string;hh,hl,lh,ll : integer) : boolean;
var
VersionMS : cardinal;
VersionLS : cardinal;
CheckMS : cardinal;
CheckLS : cardinal;
begin
if GetVersionNumbers(Filename,VersionMS,VersionLS) = false then
Result := false
else begin
CheckMS := (hh shl $10) or hl;
CheckLS := (lh shl $10) or ll;
Result := (VersionMS > CheckMS) or ((VersionMS = CheckMS) and
(VersionLS >= CheckLS));
end;
end;

// Some examples for version checking
function NeedShellFolderUpdate() : boolean;
begin
Result := CheckVersion('ShFolder.dll',5,50,4027,300) = false;
end;

function NeedVCRedistUpdate() : boolean;
begin
Result := (CheckVersion('mfc42.dll',6,0,8665,0) = false)
or (CheckVersion('msvcrt.dll',6,0,8797,0) = false)
or (CheckVersion('comctl32.dll',5,80,2614,3600) = false);
end;

function NeedHTMLHelpUpdate() : boolean;
begin
Result := CheckVersion('hh.exe',4,72,0,0) = false;
end;

function NeedWinsockUpdate() : boolean;
begin
Result := (UsingWinNT() = false) and
(CheckVersion('mswsock.dll',4,10,0,1656) = false);
end;

function NeedDCOMUpdate() : boolean;
begin
Result := (UsingWinNT() = false) and
(CheckVersion('oleaut32.dll',2,30,0,0) = false);
end;

// function IsServiceInstalled(ServiceName: string) : boolean;
// function IsServiceRunning(ServiceName: string) : boolean;
// function InstallService(FileName, ServiceName, DisplayName,
Description : string;ServiceType,StartType :cardinal) : boolean;
// function RemoveService(ServiceName: string) : boolean;
// function StartService(ServiceName: string) : boolean;
// function StopService(ServiceName: string) : boolean;

// function SetupService(service, port, comment: string) : boolean;

// function CheckVersion(Filename : string;hh,hl,lh,ll : integer) : boolean;


//function InitializeSetup(): boolean;
//begin
// if IsServiceInstalled('myservice') = false then begin
// if
InstallService('c:\winnt\system32\myservice.exe','myservice','my
service','my service is doing usefull
things',SERVICE_WIN32_OWN_PROCESS,SERVICE_AUTO_START) = true then begin
// StartService('myservice');
// StopService('myservice');
// // after stopping a service you should wait some seconds
before removing
// RemoveService('myservice');
// // otherwise removing can fail
// end
// end
// else if IsServiceRunning('myservice') then
// MsgBox('myservice is running',mbInformation, MB_OK);
//
// Result := false
//end;

////////////////////////////////////////////////////////


You may start with this code (I used both version - 1.03 and 1.5) so I
have to use IB or FB services

begin
// Ha létezik adatbázismotor - if installed
if IsServiceInstalled('FirebirdGuardian') then
begin
// Nem fut ? - Not run
if not IsServiceRunning('FirebirdGuardian') then
begin
//Elindítás - run
StartService('FirebirdGuardian');
while not IsServiceRunning('FirebirdGuardian') do
begin
sleep (1000);
end
end
end
// Ha létezik adatbázismotor
if IsServiceInstalled('FirebirdGuardianDefaultInstance') then
begin
// Nem fut ?
if not
IsServiceRunning('FirebirdGuardianDefaultInstance') then
begin
//Elindítás
StartService('FirebirdGuardianDefaultInstance');
while not
IsServiceRunning('FirebirdGuardianDefaultInstance') do
begin
sleep (1000);
end
end
end
// Ha létezik adatbázismotor
if IsServiceInstalled('InterBaseGuardian') then
begin
// Nem fut ?
if not IsServiceRunning('InterBaseGuardian') then
begin
//Elindítás
StartService('InterBaseGuardian');
while not IsServiceRunning('InterBaseGuardian') do
begin
sleep (1000);
end
end
end
// Ha létezik adatbázismotor
if IsServiceInstalled('InterBaseGuardianDefaultInstance') then
begin
// Nem fut ?
if not
IsServiceRunning('InterBaseGuardianDefaultInstance') then
begin
//Elindítás
StartService('InterBaseGuardianDefaultInstance');
while not
IsServiceRunning('InterBaseGuardianDefaultInstance') do
begin
sleep (1000);
end
end
end

I hope it will help!

Better sollution is welcome!

KAMI