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;
