mirror of
https://github.com/fergalmoran/DnsServer.git
synced 2026-01-07 09:14:02 +00:00
64e76ff040
Fix installer to properly kill tray app. Add icon and image to installer. Add some sleep when stopping and removing service.
80 lines
2.6 KiB
ObjectPascal
80 lines
2.6 KiB
ObjectPascal
#include "service.pas"
|
|
//Include the sc functionality
|
|
|
|
function IsUpgrade: Boolean; //Check to see if the install is an upgrade
|
|
var
|
|
Value: string;
|
|
UninstallKey: string;
|
|
begin
|
|
UninstallKey := 'Software\Microsoft\Windows\CurrentVersion\Uninstall\' +
|
|
ExpandConstant('{#SetupSetting("AppId")}') + '_is1';
|
|
Result := (RegQueryStringValue(HKLM, UninstallKey, 'UninstallString', Value) or
|
|
RegQueryStringValue(HKCU, UninstallKey, 'UninstallString', Value)) and (Value <> '');
|
|
end;
|
|
|
|
//Skips the Task selection screen if an upgrade install
|
|
function ShouldSkipPage(PageID: Integer): Boolean;
|
|
begin
|
|
Result := (PageID = wpSelectTasks) and IsUpgrade;
|
|
end;
|
|
|
|
function InitializeSetup(): boolean;
|
|
begin
|
|
//Specify the dependencies to install here
|
|
dotnet_5_desktop();
|
|
Result := true;
|
|
end;
|
|
|
|
procedure TaskKill(fileName: String);
|
|
var
|
|
ResultCode: Integer;
|
|
begin
|
|
Exec(ExpandConstant('taskkill.exe'), '/f /im ' + '"' + fileName + '"', '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
|
|
end;
|
|
|
|
procedure KillTrayApp; //Kill the tray app. Inno Setup cannot seem to close it through the "Close Applications" dialog.
|
|
begin
|
|
TaskKill('{#TRAYAPP_FILENAME}');
|
|
end;
|
|
|
|
procedure DoRemoveService(); //Removes the dns service from the scm
|
|
begin
|
|
if IsServiceInstalled(ExpandConstant('{cm:ServiceName}')) then begin
|
|
Log('Service: Already installed');
|
|
if IsServiceRunning(ExpandConstant('{cm:ServiceName}')) then begin
|
|
Log('Service: Already running');
|
|
StopService(ExpandConstant('{cm:ServiceName}'));
|
|
Sleep(3000);
|
|
end;
|
|
|
|
Log('Service: Remove');
|
|
RemoveService(ExpandConstant('{cm:ServiceName}'));
|
|
Sleep(3000);
|
|
end;
|
|
end;
|
|
|
|
procedure DoInstallService(); //Adds the dns service to the scm
|
|
var
|
|
InstallSuccess: Boolean;
|
|
MsgResult: Integer;
|
|
begin
|
|
Log('Service: Begin Install');
|
|
InstallSuccess := InstallService(ExpandConstant('{app}\DnsService.exe'), ExpandConstant('{cm:ServiceName}'), ExpandConstant('{cm:ServiceDisplayName}'), ExpandConstant('{cm:ServiceDisplayName}'), SERVICE_WIN32_OWN_PROCESS, SERVICE_AUTO_START);
|
|
if not InstallSuccess then
|
|
begin
|
|
Log('Service: Install Fail ' + ServiceErrorToMessage(GetLastError()));
|
|
SuppressibleMsgBox(ExpandConstant('{cm:ServiceInstallFailure,' + ServiceErrorToMessage(GetLastError()) + '}'), mbCriticalError, MB_OK, IDOK);
|
|
end else begin
|
|
Log('Service: Install Success, Starting');
|
|
StartService(ExpandConstant('{cm:ServiceName}'));
|
|
end;
|
|
end;
|
|
|
|
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
|
|
begin
|
|
if CurUninstallStep = usUninstall then
|
|
begin
|
|
KillTrayApp();
|
|
DoRemoveService();
|
|
end;
|
|
end; |