-
前言：首先这软件是用来做高压硬盘版的
~
先下
载这软件，本人建议不用向导
自己写多了
自然就会很熟悉了
~
关于编译时错误
那是
“
语法
”
问题
自己多去看看说明
这些是不可能解
释的！
Inno
Setup5.2.3
汉化增强完美版
初级教程
如何安装到指定目录下？如安装到
E
:
空之轨迹
SC
[Setup]
< br>DefaultDirName=E:
空之轨迹
SC
DisableDirPage=yes
DisableReadyPage=yes
DisableFinishedPage=yes
如何判定程序已经安装过而不重复安装，
假如你的程序将要安装到
{pf}
空之轨迹
SC
，
如
< br>果在该文件夹中已经有你想要安装的文件
，那么你认为该程序算是已经安装。
那么程应该这样写：
;
程序已经安装在你的系统
中了！这个是提示安装过。你可以设定其他语言说明
例如
已
安装或重复安装
; {pf}
空之轨迹
SC
为安装目录文件文件夹，同理如果是其他目录更改目录即可！
[Code]
function
InitializeSetup(): boolean;
begin
Result := true;
if FileExist
s(ExpandConstant('{pf}
空之轨迹
')
)
then
begin
MsgBox('
程序已经安装在你的系统中了！
', mbInformation, MB_OK );
Result :=
false;
end;
end;
下面提供实例下载跟说明
比较简单的实例
.rar
(948 Bytes,
下载次数
:
151)
[Setup]
< br>AppName=
纸莎草书繁体中文破解版
;
游戏名
AppVerName=
纸莎草书繁体中文破解版
;
游戏版本名
AppPublisher=
F.B.I
游戏工作室
(yang8871/yangteng)
;
公司
AppPublisherURL=
;
网站
AppSupportURL=
AppUpdatesURL=
DefaultDirNam
e=
E:
空之轨迹
SC
;
安装目录
DisableDirPage=yes
DisableReadyPage=yes
DisableFinishedPage=yes
Defa
ultGroupName=
纸莎草书繁体中文破解版
;
产品名称
LicenseFile=
C
ocuments
and
SettingsAdministrator
桌面用户使用协议
.txt
;
协议书（按同意之前要先看的那个）
InfoAfterFile=
C
;
安装完成后的话
OutputDir
=
C
ocuments and
SettingsAdministrator
桌面
ocuments
and
SettingsAdministrator
桌面安装后说明
.txt
;
输出目录
存放的目录
OutputBaseF
ilename=
纸莎草书繁体中文破解版
;
输出的游戏名称
SetupIcon
File=
D:
图标纸莎草书
.ico
;
图标位置
Compression=
lzma
;
压缩方式：
极限压缩
SolidCompression=
yes
;
（
yes
为固实压缩
no
则相反）
InternalCompressLevel=
ultra
;
文件极限压缩
目录下的文件
VersionInf
oDescription=
纸莎草书繁体中文破解版
;
产品名称
VersionInfoC
opyright=
Copyright
(C)
2009
By
F.B.I
游
（
yang8871/yangteng)<
/p>
;
版权
DiskSpanning=
true
;
分卷压缩
DiskSliceSize=
645766400
;
分割的文件大小
单位
K
大小为
615M
VersionInfoVersion=
1.0
;
文件版本
VersionInfoTextVersion=
1.0
TouchTime=22:23
;
生成的时间
PrivilegesRequired=none
;
不需要管理权限也能安装
AlwaysRestart=yes
;
询问是否要重新启动？（可以设置
强制重新启动但是感觉没必要就不要害人）
戏
室
[Files]
Source: <
/p>
"C:
纸莎草书繁体中文破解版
";
DestDir:
"{app}";
Flags:
ignoreversion
;
游戏生成的快捷方式所指原执行文件
Source:
"C:
纸莎草书繁体中文破解版
*";
DestDir:
"{app}";
Flags:
ignoreversion
recursesubdirs createallsubdirs
;
要打包的目录
[Languages]
Name:
"chinesesimp";
MessagesFile:
"compiler
"
;
语言中性
[Icons]
Name:
"{group}
纸
莎
草
书
繁
体
中<
/p>
文
破
解
版
";
Filename:"{app}&qu
ot;;WorkingDir:"{app}"
;
生成开始菜单游戏可执行程序
是你目录下的可执行文件
WorkingDir:
{app}
”
WorkingDir
后面加
{app}
app
的意思是随安装目录生成
Name:
"{group}{cm
rogramOnTheWeb,
访
问
青
空
学
园
< br>}";
Filename:"
; WorkingDir: {app} "
;
生成开始菜单网站
Name:
"{group}{cm:Unins
tallProgram,
纸
莎
草
书
繁
体
中
文
破
解
版
}";
Filename:
"{uninstallexe}; WorkingDir:
{app}"
;
生成开始菜单卸载
Name:
"{commondesktop}<
/p>
纸
莎
草
书
繁
体
中
文
破
解
版
";
Filename:
"{app}";
Tasks:
"{app}"
;
Tasks:
desktopicon
任务：生成快捷方式
desktopicon;WorkingDir:
[Tasks]
Name: changestartpage; Description:
"
设置青空学园为主页
"
Name:
"desktopicon";
Description:
"{cm:CreateDesktopIcon}";
GroupDescription:
"{cm:AdditionalIcons}"; Flags: unchecked
;
Tasks:
desktopicon
任务：生成快捷方式
压缩方式的设置：默认是
lzma
[Setup]
Compression=XXX
XXX
表示压缩方式，目前的版本支持以下的压缩方式：
zip
相当于
zip/7
，是软件默认的压缩方式
zip/1 Zip
格式，压缩率最低，速度最快，耗内存最少
......
zip/9 Zip
格式，压缩率最高，速度最慢，耗内存最大
bzip
相当于
bzip/9
bzip/1 BZip2
格式（压缩率高于
Zip
格式）
，压缩率最低，速度最快，耗内存最少
......
bzip/9 BZip2
格式，压缩率最高，速度最慢，耗内存最大
lzma
相当于
lzma/max
lzma/fast 7-Zip
LZMA
格式（压缩率高于
Zip
和
BZip2
格式）
，压缩率低，速度快
lzma/normal 7-Zip LZMA
格式，压缩率一般，速度一般
lzma/max 7-Zip LZMA
格式，压缩率高，速度慢
lzma/ultra 7-Zip LZMA
格式，超级
压缩（谨慎使用，特别耗内存！
！
）
none
不压缩
让安装程序安装后随
WINDOWS
启动<
/p>
~
这个感觉没必要
要娱乐一下的试试看
?
[Tasks]
Name:
"startup";
Description:
"
随
windwos
启动
";
GroupDescription:
"
添加启动选
"
;
Takes
建立任务类似快捷方式类的
[Registry]
Root:
HKCU;
SubKey:
Sof
twareMicrosoftWindowsCurrentVersionRun;
valueType:
string;
valueName:
"fileBX";
valueData:
"{app}";Flags:
uninsdeletevalue; Tasks: startup
;
在注册表上修改随
windows
启动！
想把这
2
个图片换了？安装软件后目录有
2<
/p>
个图片
你可以替换这
< br>2
个头像就可以了。
这个右上方的网站标志（注意只是举例）
这个是左边的游戏图片
创建关于按钮和按钮下的内容及右边的网站链接
创建关于按钮和按钮下的内容及右
边的网站链接
.rar
(879
Bytes,
下载次数
: 99)
[Code]
procedure URLLabelOnClick(Sender:
TObject);
var
ErrorCode: Integer;
begin
ShellExec('open',
'/',
'',
'',
SW_SHOWNORMAL,
ewNoWait,
ErrorCode);
end;
procedure AboutButtonOnClick(Sender:
TObject);
begin
MsgBox('^
青
空
学
园
—
多
< br>次
元
动
漫
游
戏
论
坛
^
'#13#10'
',
mbInformation, MB_OK);
;
这是关于按钮里面的内容
#13#10
是换行的意思
end;
var
AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText;
procedure InitializeWizard();
begin
{ Create the pages }
:=
clred;
:= clBlue;
:=
clGreen;
:= clblack;
CancelButton := Button;
AboutButton := (WizardForm);
:= Width - -
:=
:=
:=
;
n := 'About';
k := @AboutButtonOnClick;
:= WizardForm;
URLLabel := (WizardForm);
n := '
『青空学园』
';
:= crHand;
k :=
@URLLabelOnClick;
:= WizardForm;
{ Alter Font *after* setting Parent so
the correct defaults are inherited first }
:= + [fsUnderline];
:=
clBlue;
:= + - - 2;
:=
+ + ScaleX(20);
end;
默认勾
选同意
~
急着安装？不用急这就是设定默认的同意！
[Code]
var
Label2: TLabel;
Label1: TLabel;
CheckBox1:
TCheckBox;
NewStaticText1: TNewStaticText;
procedure Cus_Next(Sender:
TObject);
begin
if d = True then
d
:= True
else
d := True
end;
procedure InitializeWizard();
begin
:= 127;
e := False;
e := False;
Label1 :=
(WizardForm);
:= ePage;
:=
:= + + 7;
:=
:= ScaleY(12);
n
:=
'
如果您接受许可协议，点击下方的单选框。您必须接受协议才
能安装
我的程序
'#13'1.5<
/p>
。单击
[
下一步
(N)]
继续。
';
CheckBox1 := (WizardForm);
:= ePage;
:=
:= + + 47;
:=;
:= ScaleY(17);
n := '
我同意
“
许可协议
”
中的条款
(&A)';
er := 0;
k := @Cus_Next;
end;
去掉<
/p>
“
关于安装程序
”
菜单
[code]
const MF_BYPOSITION=$$400;
function DeleteMenu(HMENU:
HWND; uPosition: UINT; uFlags: UINT): BOOL;
external 'DeleteMenu@ stdcall';
function
GetSystemMenu(HWND: hWnd; bRevert: BOOL): HWND;
external 'GetSystemMenu@ stdcall';
procedure
InitializeWizard();
begin
De
leteMenu(GetSystemMenu(,false),8,MF_BYPOSITION); <
/p>
DeleteMenu(GetSystemMenu(,false),7,MF_BY
POSITION);
end;
[Messages]
ClickN
ext=
单击
“
下一步
”
继续，
或单击
“
取消
”
退出安装程序。
%
n%n%n%n%n%n%n
此程序由
yang8871/ya
ngteng
制
作
，
< br>对
此
程
序
保
留
权
利
%
n
欢
迎
加
入<
/p>
青
空
学
园
：
/
%n
本程序仅供个人研究、学习而自行制作完成。
%n
仅供论
坛内部交流和使用，禁止用于任何商业用途
原始软件的所有权利皆属于原公司或组织！
说明一下这个字体是跟上面那个欢
迎安装向导的字体一样的！
%n
是空一行的意思学过
C
语言的都知道吧？？
C
语言室
/N inno
是
%N
差不多了！
换行符号：
在
[Messages]
换行符号为
%n
在
MsgBox
中换行符号为
#13#10
//
#13
为回车字符
procedure
InitializeWizard();
这个不能重复
~
只能是一个
~
注
意编译时常常会出
现错误都是因为这个。都归到一个命令下就可以了
~
-
-
-
-
-
-
-
-
-
上一篇：NR切换
下一篇：Android ADB 操作命令