用Inno Setup制作WEB程序安装包
>
最近做了一个WEB程序的安装包，我把制作的过程做个介绍，贴出源码给大家做个参考
看看inno 的脚本
1
[Setup]
2AppCopyright=test
3AppName=test
4AppVerName=test v2.0
5SolidCompression=true
6OutputDir=Output\
7OutputBaseFilename=test_setup
8
DefaultDirName={pf}\Lms
9DefaultGroupName=Lms
10;安装程序的基本信息
11[_ISTool]
12UseAbsolutePaths=false
13
14[UninstallDelete]
15Type: files; Name: {app}\init_test.log
16Type: dirifempty; Name: {app}\database
17;需要提示卸载程序额外删除的目录
18[Run]
19Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-20;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
20Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-32-545;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
21Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
22Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}\database"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist
23Filename: {tmp}\init_test.exe; Parameters: """{app}"" 2.0"; Description: Configure SQLServer; StatusMsg: Configuring Database
; Flags: postinstall skipifdoesntexist
24;uncomment this line to use for dotnet 1.1
25;Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden
26Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden
27;安装过程需要运行的程序，SetACL.EXE是一个第三方组件使用方法大家可以google一下，init_test.exe为附加数据库和数据还有设置asp.net版本的程序
28
29[Dirs]
30Name: {app}\database
31Name: {app}\course
32;产生目录
33[Types]
34Name: Custom; Description: Custom installation; Flags: iscustom
35
36[Files]
37Source: 3rdParty\SetACL.exe; DestDir: {tmp}; flags: deleteafterinstall
38Source: test\*; DestDir: {app}; Excludes:*.webinfo,*.vspscc, \obj,Thumbs.db,CVS,*.pdb,*.cs,*.scc,*.bak,*.csproj,*.log,*.Old,*.user,*.lic,*.sln,*.suo,8.rar; Flags: recursesubdirs
39Source: test_table.sql; DestDir: {tmp}; Flags: deleteafterinstall
40Source: test_Data.sql; DestDir: {tmp}; Flags: deleteafterinstall
41Source: init_test.exe; DestDir: {tmp}; flags: deleteafterinstall
42;需要随安装包一起打包的文件
43[Code]
44const
45 VDirName = 'test';
46 Vwebctrl = 'webctrl_client';
47 IISServerNumber = '1';
48
49function SafeCreateOleObject(ProgId:String;ExceptionMsg:String):Variant;
50var
51 retobj:Variant;
52begin
53 try
54 retobj := CreateOleObject(ProgId);
55 except
56 RaiseException(ExceptionMsg+''#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');
57 end;
58 Result:=retobj;
59end;
60
61{
62
create virtual directory, pointing to installation directory
63
}
64
65procedure SetupIIS;
66var
67 IIS, WebSite, WebServer, WebRoot, VDir: Variant;
68begin
69 { Create the main IIS COM Automation object }
70 IIS:=SafeCreateOleObject('IISNamespace','Please install Microsoft IIS first.');
71 { Connect to the IIS server }
72
73 WebSite := IIS.GetObject('IIsWebService', GetComputerNameString() + '/w3svc');
74 WebServer := WebSite.GetObject('IIsWebServer', IISServerNumber);
75 WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');
76
77 { (Re)create a virtual dir }
78
79 try
80 WebRoot.Delete('IIsWebVirtualDir', VDirName);
81 except
82 end;
83 try
84 WebRoot.Delete('IIsWebVirtualDir', Vwebctrl);
85 except
86 end;
87
88 If DirExists(ExpandConstant('{app}')) then
89 begin
90 VDir := WebRoot.Create('IIsWebVirtualDir', VDirName);
91 VDir.AccessRead := True;
92 VDir.AccessFlags:=529;
93 VDir.AppFriendlyName := 'LMS Website';
94 VDir.Path := ExpandConstant('{app}\');
95 VDir.EnableDirBrowsing:=False;
96 VDir.EnableDefaultDoc:=True;
97 VDir.DefaultDoc :='Default.aspx';
98 VDir.AppCreate(True);
99 VDir.SetInfo();
100 end;
101
102 If DirExists(ExpandConstant('{app}\IEWebControl\'+Vwebctrl)) then
103 begin
104 VDir := WebRoot.Create('IIsWebVirtualDir', Vwebctrl);
105 VDir.AccessRead := True;
106 VDir.AccessFlags:=529;
107 VDir.AppFriendlyName := 'visual web ctral';
108 VDir.Path := ExpandConstant('{app}\IEWebControl\'+Vwebctrl);
109 VDir.EnableDirBrowsing:=False;
110 VDir.EnableDefaultDoc:=True;
111 VDir.DefaultDoc :='default.htm';
112 VDir.AppCreate(True);
113 VDir.SetInfo();
114 end;
115end;
116procedure ControlIIS(bState:boolean);
117var
118 resultcode:integer;
119 param:string;
120begin
121 if bState then
122 param:='START'
123 else param:='STOP';
124
125 Exec('NET.EXE',param+' "IIS ADMIN"',
126 ExpandConstant('{sys}'),SW_SHOW,ewWaitUntilTerminated,resultcode
127 );
128end;
129;在IIS默认站点下添加虚拟目录
130procedure CurStepChanged(CurStep: TSetupStep);
131begin
132 case CurStep of
133 ssPostInstall:
134 begin
135 SetupIIS();
136 //ControlIIS(true);
137 end;
138 ssInstall:
139 //ControlIIS(false);
140 else
141 ;
142 end;
143end;
[Setup]2
AppCopyright=test3
AppName=test4
AppVerName=test v2.05
SolidCompression=true6
OutputDir=Output\7
OutputBaseFilename=test_setup8
DefaultDirName={pf}\Lms
DefaultDirName9
DefaultGroupName=Lms10
;安装程序的基本信息11
[_ISTool]12
UseAbsolutePaths=false13
14
[UninstallDelete]15
Type: files; Name: {app}\init_test.log16
Type: dirifempty; Name: {app}\database17
;需要提示卸载程序额外删除的目录18
[Run]19
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-20;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist20
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-5-32-545;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist21
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist22
Filename: {tmp}\SetACL.EXE; Parameters: "-ot file -on ""{app}\database"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden waituntilterminated skipifdoesntexist23
Filename: {tmp}\init_test.exe; Parameters: """{app}"" 2.0"; Description: Configure SQLServer; StatusMsg: Configuring Database; Flags: postinstall skipifdoesntexist24
;uncomment this line to use for dotnet 1.125
;Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden26
Filename: {tmp}\SetACL.exe; Parameters: "-ot file -on ""{win}\Microsoft.NET\Framework\v2.0.50727\Temporary ASP.NET Files"" -actn ace -ace ""n:S-1-1-0;s:y;p:change,full"""; Flags: runhidden27
;安装过程需要运行的程序，SetACL.EXE是一个第三方组件使用方法大家可以google一下，init_test.exe为附加数据库和数据还有设置asp.net版本的程序28
29
[Dirs]30
Name: {app}\database31
Name: {app}\course32
;产生目录33
[Types]34
Name: Custom; Description: Custom installation; Flags: iscustom35
36
[Files]37
Source: 3rdParty\SetACL.exe; DestDir: {tmp}; flags: deleteafterinstall38
Source: test\*; DestDir: {app}; Excludes:*.webinfo,*.vspscc, \obj,Thumbs.db,CVS,*.pdb,*.cs,*.scc,*.bak,*.csproj,*.log,*.Old,*.user,*.lic,*.sln,*.suo,8.rar; Flags: recursesubdirs39
Source: test_table.sql; DestDir: {tmp}; Flags: deleteafterinstall40
Source: test_Data.sql; DestDir: {tmp}; Flags: deleteafterinstall41
Source: init_test.exe; DestDir: {tmp}; flags: deleteafterinstall42
;需要随安装包一起打包的文件43
[Code]44
const45
VDirName = 'test';46
Vwebctrl = 'webctrl_client';47
IISServerNumber = '1';48
49
function SafeCreateOleObject(ProgId:String;ExceptionMsg:String):Variant;50
var51
retobj:Variant;52
begin53
try54
retobj := CreateOleObject(ProgId);55
except56
RaiseException(ExceptionMsg+''#13#13'(Error ''' + GetExceptionMessage + ''' occurred)');57
end;58
Result:=retobj;59
end;60
61
{62
create virtual directory, pointing to installation directory63
}64
65
procedure SetupIIS;66
var67
IIS, WebSite, WebServer, WebRoot, VDir: Variant;68
begin69
{ Create the main IIS COM Automation object }70
IIS:=SafeCreateOleObject('IISNamespace','Please install Microsoft IIS first.');71
{ Connect to the IIS server }72
73
WebSite := IIS.GetObject('IIsWebService', GetComputerNameString() + '/w3svc');74
WebServer := WebSite.GetObject('IIsWebServer', IISServerNumber);75
WebRoot := WebServer.GetObject('IIsWebVirtualDir', 'Root');76
77
{ (Re)create a virtual dir }78
79
try80
WebRoot.Delete('IIsWebVirtualDir', VDirName);81
except82
end;83
try84
WebRoot.Delete('IIsWebVirtualDir', Vwebctrl);85
except86
end;87
88
If DirExists(ExpandConstant('{app}')) then89
begin90
VDir := WebRoot.Create('IIsWebVirtualDir', VDirName);91
VDir.AccessRead := True;92
VDir.AccessFlags:=529;93
VDir.AppFriendlyName := 'LMS Website';94
VDir.Path := ExpandConstant('{app}\');95
VDir.EnableDirBrowsing:=False;96
VDir.EnableDefaultDoc:=True;97
VDir.DefaultDoc :='Default.aspx';98
VDir.AppCreate(True);99
VDir.SetInfo();100
end;101
102
If DirExists(ExpandConstant('{app}\IEWebControl\'+Vwebctrl)) then103
begin104
VDir := WebRoot.Create('IIsWebVirtualDir', Vwebctrl);105
VDir.AccessRead := True;106
VDir.AccessFlags:=529;107
VDir.AppFriendlyName := 'visual web ctral';108
VDir.Path := ExpandConstant('{app}\IEWebControl\'+Vwebctrl);109
VDir.EnableDirBrowsing:=False;110
VDir.EnableDefaultDoc:=True;111
VDir.DefaultDoc :='default.htm';112
VDir.AppCreate(True);113
VDir.SetInfo();114
end;115
end;116
procedure ControlIIS(bState:boolean);117
var118
resultcode:integer;119
param:string;120
begin121
if bState then122
param:='START'123
else param:='STOP';124
125
Exec('NET.EXE',param+' "IIS ADMIN"',126
ExpandConstant('{sys}'),SW_SHOW,ewWaitUntilTerminated,resultcode127
);128
end;129
;在IIS默认站点下添加虚拟目录130
procedure CurStepChanged(CurStep: TSetupStep);131
begin132
case CurStep of133
ssPostInstall:134
begin135
SetupIIS();136
//ControlIIS(true);137
end;138
ssInstall:139
//ControlIIS(false);140
else141
;142
end;143
end;再来看一下init_lms.exe的主要方法：
1private void CreateDatabase()
2 {
3 string sql = " CREATE DATABASE "
4 + dbName;
5
6 if (IsLocalInstall())
7
{
8 sql += " ON PRIMARY (NAME = " + dbDataName + ", "
9 + " FILENAME = '" + getDir("database\\" + dbDataName + ".mdf") + "', "
10 + " SIZE = 5MB,"
11 + " FILEGROWTH =1) "
12 + " LOG ON (NAME =" + dbLogName + ", "
13 + " FILENAME = '" + getDir("database\\" + dbLogName + ".ldf") + "', "
14 + " SIZE = 1MB, "
15 + " FILEGROWTH =1) ";
16
}
17 sql += " COLLATE Chinese_PRC_CI_AS";
18 try
19 {
20 this.Cursor = Cursors.WaitCursor;
21 frmProg.StepText("drop database");
22 if (chkCreateDB.Checked)
23 {
24 try
25 {
26 execSQL("master", "DROP DATABASE " + dbName);
27 writeLog("old database dropped");
28 }
29 catch (Exception)
30 {
31 writeLog("database not found or unable to be dropped");
32 }
33
34 }
35 frmProg.StepText("creating database");
36 if (chkCreateDB.Checked)
37 {
38 try
39 {
40 execSQL("master", sql);
41 writeLog("DB CREATED:" + sql);
42 }
43 catch (Exception e)
44 {
45 writeLog("DB CREATING ERROR:" + e.Message);
46 }
47 }
48
49 frmProg.StepText("creating tables");
50
51 if (chkTables.Checked)
52 {
53 writeLog("exec lmsdb_table.sql");
54 dmoExecSQL(sqlb_t.ToString());//dbName, sqlb);
55 }
56
57 frmProg.StepText("initialize base data");
58
59 if (chkDatas.Checked)
60 {
61 //writeLog(sqlb.ToString());
62 writeLog("exec lmsbasedata.sql");
63 dmoExecSQL(sqlb_d.ToString());//execSQL(dbName, sqlb);
64 }
65 frmProg.StepText("database initialization is done");
66 }
67 finally
68 {
69 this.Cursor = Cursors.Default;
70 }
71 }
private void CreateDatabase()2
{3
string sql = " CREATE DATABASE "4
+ dbName;5
6
if (IsLocalInstall())7
{
8
sql += " ON PRIMARY (NAME = " + dbDataName + ", "9
+ " FILENAME = '" + getDir("database\\" + dbDataName + ".mdf") + "', "10
+ " SIZE = 5MB,"11
+ " FILEGROWTH =1) "12
+ " LOG ON (NAME =" + dbLogName + ", "13
+ " FILENAME = '" + getDir("database\\" + dbLogName + ".ldf") + "', "14
+ " SIZE = 1MB, "15
+ " FILEGROWTH =1) ";16
}17
sql += " COLLATE Chinese_PRC_CI_AS";18
try19
{20
this.Cursor = Cursors.WaitCursor;21
frmProg.StepText("drop database");22
if (chkCreateDB.Checked)23
{24
try25
{26
execSQL("master", "DROP DATABASE " + dbName);27
writeLog("old database dropped");28
}29
catch (Exception)30
{31
writeLog("database not found or unable to be dropped");32
}33
34
}35
frmProg.StepText("creating database");36
if (chkCreateDB.Checked)37
{ 38
try39
{40
execSQL("master", sql);41
writeLog("DB CREATED:" + sql);42
}43
catch (Exception e)44
{45
writeLog("DB CREATING ERROR:" + e.Message);46
}47
} 48
49
frmProg.StepText("creating tables");50
51
if (chkTables.Checked)52
{53
writeLog("exec lmsdb_table.sql");54
dmoExecSQL(sqlb_t.ToString());//dbName, sqlb);55
}56
57
frmProg.StepText("initialize base data");58
59
if (chkDatas.Checked)60
{61
//writeLog(sqlb.ToString());62
writeLog("exec lmsbasedata.sql");63
dmoExecSQL(sqlb_d.ToString());//execSQL(dbName, sqlb);64
}65
frmProg.StepText("database initialization is done");66
}67
finally68
{69
this.Cursor = Cursors.Default;70
}71
}这个方法主要是创建数据库文件
1private void setAspNetVersion(string m,string i)
2 {
3 string dotnetdir=addBackSlash(Environment.GetEnvironmentVariable("windir"))+"Microsoft.Net";
4 string[] dirs = Directory.GetDirectories(dotnetdir+"\\Framework\\");
5 foreach (string d in dirs)
6 {
7 int p = d.LastIndexOf("\\v");
8 if (p >= 0)
9 {
10 string v = d.Substring(p + 2);
11 aspver = v;
12 string[] mi = v.Split(new char[] { '.' });
13 if (mi[0].CompareTo(m)==0 && mi[1].CompareTo(i)>=0)
14 {
15 //found the directory
16 string regiis = d + "\\aspnet_regiis.exe";
17 if (File.Exists(regiis)){
18 Process proc=new Process();
19 try{
20 proc.StartInfo.FileName=regiis;
21 proc.StartInfo.Arguments = "-s W3SVC/1/ROOT/Lms";
22 proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
23 proc.StartInfo.CreateNoWindow=true;
24 proc.Start();
25 proc.WaitForExit(10000);
26 }catch (Win32Exception e){
27
28 if(e.NativeErrorCode == ERROR_FILE_NOT_FOUND)
29 {
30 Console.WriteLine(e.Message + ". Check the path.");
31 } else if (e.NativeErrorCode == ERROR_ACCESS_DENIED)
32 {
33 Console.WriteLine(e.Message +
34 ". You do not have permission to run.");
35 }
36 } //catch
37 }//if file.exists
38 }//if compare version
39 }//if pos>=0
40 }//for each
41
42 }
private void setAspNetVersion(string m,string i)2
{3
string dotnetdir=addBackSlash(Environment.GetEnvironmentVariable("windir"))+"Microsoft.Net";4
string[] dirs = Directory.GetDirectories(dotnetdir+"\\Framework\\");5
foreach (string d in dirs)6
{7
int p = d.LastIndexOf("\\v");8
if (p >= 0)9
{10
string v = d.Substring(p + 2);11
aspver = v;12
string[] mi = v.Split(new char[] { '.' });13
if (mi[0].CompareTo(m)==0 && mi[1].CompareTo(i)>=0)14
{ 15
//found the directory16
string regiis = d + "\\aspnet_regiis.exe";17
if (File.Exists(regiis)){18
Process proc=new Process();19
try{20
proc.StartInfo.FileName=regiis;21
proc.StartInfo.Arguments = "-s W3SVC/1/ROOT/Lms";22
proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;23
proc.StartInfo.CreateNoWindow=true;24
proc.Start();25
proc.WaitForExit(10000);26
}catch (Win32Exception e){27
28
if(e.NativeErrorCode == ERROR_FILE_NOT_FOUND)29
{30
Console.WriteLine(e.Message + ". Check the path.");31
} else if (e.NativeErrorCode == ERROR_ACCESS_DENIED)32
{33
Console.WriteLine(e.Message + 34
". You do not have permission to run.");35
}36
} //catch 37
}//if file.exists38
}//if compare version39
}//if pos>=040
}//for each41
42
}这个方法主要是利用aspnet_regiis.exe来修改ASP.NET的版本，这个文件在Microsoft.Net目录下
