Inno-setup Example

  1 ; Script generated by the Inno Setup Script Wizard.

  2 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

  3 

  4 #define MyAppName "sndaloginguard"

  5 #define MyAppPublisher "SNDA, Inc."

  6 #define MyAppURL "http://www.sdo.com/"

  7 

  8 ;

  9 #define MyAppVersion "1.0.0"

 10 #define MyDefaultInstallDir "C:\Program Files\盛大网络\登录助手\"

 11 #define MyDefaultPackDir    ".\temp\"

 12 

 13 [Setup]

 14 ; NOTE: The value of AppId uniquely identifies this application.

 15 ; Do not use the same AppId value in installers for other applications.

 16 ; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)

 17 ;PrivilegesRequired=admin

 18 AppId={{3D662258-0CAF-4F56-988C-7F12F0DB7ECF}

 19 AppName={#MyAppName}

 20 AppVersion={#MyAppVersion}

 21 ;AppVerName={#MyAppName} {#MyAppVersion}

 22 AppPublisher={#MyAppPublisher}

 23 AppPublisherURL={#MyAppURL}

 24 AppSupportURL={#MyAppURL}

 25 AppUpdatesURL={#MyAppURL}

 26 DefaultDirName={#MyDefaultInstallDir}

 27 DefaultGroupName={#MyAppName}

 28 OutputBaseFilename=sndaloginguard_{#MyAppVersion}

 29 SetupIconFile=..\..\sdostate-debug\logo.ico

 30 Compression=lzma

 31 SolidCompression=yes

 32 

 33 [Languages]

 34 Name: "english"; MessagesFile: "compiler:Default.isl"

 35 

 36 [Files]

 37 Source: {#MyDefaultPackDir}\duilib.dll; DestDir: "{app}"; Flags: ignoreversion

 38 Source: {#MyDefaultPackDir}\GdiPlus.dll; DestDir: "{app}"; Flags: ignoreversion

 39 Source: {#MyDefaultPackDir}\skin.zip; DestDir: "{app}"; Flags: ignoreversion

 40 Source: {#MyDefaultPackDir}\sndaloginguard.exe; DestDir: "{app}"; Flags: ignoreversion

 41 Source: {#MyDefaultPackDir}\adcore.dll; DestDir: "{app}"; Flags: ignoreversion

 42 Source: {#MyDefaultPackDir}\StatisticInstallInfo.dll; DestDir: "{app}"; Flags: ignoreversion

 43 Source: {#MyDefaultPackDir}\updatedownload.exe; DestDir: "{app}"; Flags: ignoreversion

 44 Source: {#MyDefaultPackDir}\update.dll; DestDir: "{app}"; Flags: ignoreversion

 45 Source: {#MyDefaultPackDir}\config\*.*; DestDir: "{app}\config"; Flags: ignoreversion

 46 ; NOTE: Don't use "Flags: ignoreversion" on any shared system files

 47 

 48 [Icons]

 49 Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppName}"

 50 Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"

 51 

 52 [Registry]

 53 Root:HKLM;Subkey:SOFTWARE\snda\sndaloginguard; ValueType: string; ValueName:Path;ValueData:{app}\sndaloginguard.exe;Flags: uninsdeletevalue

 54 

 55 

 56 [Run]

 57 ;Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent

 58 Filename: "{app}\sndaloginguard.exe ";  Parameters:"-INSTALL";  Flags: nowait 

 59 [Code]

 60 

 61 procedure Installed(nActionID:Integer);

 62 external 'Installed@files:StatisticInstallInfo.dll cdecl  setuponly';

 63 

 64 procedure Uninstalled(nActionID:Integer);

 65 external 'Uninstalled@{app}\StatisticInstallInfo.dll cdecl uninstallonly';

 66 

 67 function IsStatesvrExist():Integer;

 68 external 'IsStatesvrExist@{app}\StatisticInstallInfo.dll stdcall uninstallonly';

 69 

 70 function GetMyParam(PName:string):string;

 71 var

 72   CmdLine : String;                        

 73   CmdLineLen : Integer;

 74   i : Integer;

 75 begin

 76     Result := '';

 77     CmdLineLen:=ParamCount();

 78     for i:=0 to CmdLineLen do

 79     begin

 80     CmdLine:=ParamStr(i);

 81     if CmdLine = PName then

 82       begin

 83           CmdLine:=ParamStr(i+1);

 84           Result := CmdLine;

 85           Exit;

 86       end;

 87     end;

 88 end;

 89                                      

 90 procedure DeinitializeSetup();

 91 var 

 92 res: String;

 93 nActionID:Integer;

 94 

 95 begin

 96 res := GetMyParam('-myParam');

 97 nActionID := 1001;

 98 Installed(nActionID);

 99 end;

100 

101 procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

102 var

103 nActionID:Integer;

104 begin

105   // Call our function just before the actual uninstall process begins

106   nActionID := 1002;

107   if CurUninstallStep = usUninstall then

108   begin

109     Uninstalled(nActionID);

110     // Now that we're finished with it, unload MyDll.dll from memory.

111     // We have to do this so that the uninstaller will be able to remove the DLL and the {app} directory.

112     UnloadDLL(ExpandConstant('{app}\StatisticInstallInfo.dll'));

113     //delete everything under {app}\

114     DelTree(ExpandConstant('{app}'), True, True, True);

115   end;

116 end;

117 

118 function InitializeUninstall(): Boolean;

119 var 

120 HasRun : Integer;

121 begin

122   HasRun := IsStatesvrExist();

123   if HasRun = 1 then

124   begin

125     MsgBox('卸载程序检测到你的应用程序正在运行。' #13#13 '请先退出你的应用程序，然后再进行卸载！', mbError, MB_OK);

126     Result := false;

127   end

128   else

129     Result := true;

130 end;