Inno setup硬盘版游戏封装教程

{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

是空一行的意思学过

语言的都知道吧？？

C

语言室

/N inno

是

%N

差不多了！

换行符号：

在

[Messages]

换行符号为

%n

在

MsgBox

中换行符号为

#13#10

//

#13

为回车字符

procedure

InitializeWizard();

这个不能重复

~

只能是一个

~

注 意编译时常常会出

现错误都是因为这个。都归到一个命令下就可以了

~