空之轨迹sc修改器（编程技术全图文教程）

空之轨迹sc修改器（编程技术全图文教程）

初级教程

如何安装到指定目录下？如安装到E:\空之轨迹SC

Setup]

DefaultDirName=E:\空之轨迹SC

DisableDirPage=yes

DisableReadyPage=yes

DisableFinishedPage=yes

如何判定程序已经安装过而不重复安装，假如你的程序将要安装到 {pf}\空之轨迹SC，如果在该文件夹中已经有你想要安装的文件 ed6.exe，那么你认为该程序算是已经安装。那么程应该这样写：

; 程序已经安装在你的系统中了！这个是提示安装过。你可以设定其他语言说明 例如 已安装或重复安装; {pf}\空之轨迹SC 为安装目录文件文件夹，同理如果是其他目录更改目录即可！

Code]

function InitializeSetup(): boolean;

begin

Result := true;

if FileExists(ExpandConstant('{pf}\空之轨迹SC\ed6.exe')) then

begin

MsgBox('程序已经安装在你的系统中了！', mbInformation, MB_OK );

Result := false;

end;

end;

Setup]

AppName=纸莎草书繁体中文破解版

;游戏名

AppVerName=纸莎草书繁体中文破解版

;游戏版本名

AppPublisher=F.B.I游戏工作室(yang8871/yangteng)

;公司

AppPublisherURL=http://www.aoizora.com

;网站

AppSupportURL=http://www.aoizora.com

AppUpdatesURL=http://www.aoizora.com

DefaultDirName=E:\空之轨迹SC

;安装目录

DisableDirPage=yes

DisableReadyPage=yes

DisableFinishedPage=yes

DefaultGroupName=纸莎草书繁体中文破解版

;产品名称

LicenseFile=C:\Documents and Settings\Administrator\桌面\用户使用协议.txt

;协议书（按同意之前要先看的那个）

InfoAfterFile=C:\Documents and Settings\Administrator\桌面\安装后说明.txt

; 安装完成后的话

OutputDir=C:\Documents and Settings\Administrator\桌面

;输出目录 存放的目录

OutputBaseFilename=纸莎草书繁体中文破解版

; 输出的游戏名称

SetupIconFile=D:\图标\纸莎草书.ico

;图标位置Compression=lzma

;压缩方式：极限压缩

SolidCompression=yes

;（yes为固实压缩 no则相反）

InternalCompressLevel=ultra

;文件极限压缩 目录下的文件

VersionInfoDescription=纸莎草书繁体中文破解版

;产品名称

VersionInfoCopyright=Copyright (C) 2009 By F.B.I游戏室（yang8871/yangteng)

;版权

DiskSpanning=true

; 分卷压缩

DiskSliceSize=645766400

;分割的文件大小 单位K 大小为615M

VersionInfoVersion=1.0

;文件版本

VersionInfoTextVersion=1.0

TouchTime=22:23

;生成的时间

PrivilegesRequired=none

;不需要管理权限也能安装

AlwaysRestart=yes

;询问是否要重新启动？（可以设置强制重新启动但是感觉没必要就不要害人）

Files]

Source: "C:\\纸莎草书繁体中文破解版\\game.exe"; DestDir: "{app}"; Flags: ignoreversion

;游戏生成的快捷方式所指原执行文件

Source: "C:\\纸莎草书繁体中文破解版\\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs

;要打包的目录

Languages]

Name: "chinesesimp"; MessagesFile: "compiler

anguages\\ChineseSimp.isl"

;语言中性

Icons]

Name: "{group}\\纸莎草书繁体中文破解版"; Filename:"{app}\\game.exe";WorkingDir:"{app}"

;生成开始菜单游戏可执行程序game.exe是你目录下的可执行文件 WorkingDir: {app}”WorkingDir后面加{app} app的意思是随安装目录生成

Name: "{group}\\{cm

rogramOnTheWeb,访问青空学园}"; Filename:" http://www.aoizora.com; WorkingDir: {app} "

;生成开始菜单网站

Name: "{group}\\{cm:UninstallProgram,纸莎草书繁体中文破解版}"; Filename: "{uninstallexe}; WorkingDir: {app}"

;生成开始菜单卸载

Name: "{commondesktop}\\纸莎草书繁体中文破解版"; Filename: "{app}\\game.exe"; Tasks: desktopicon;WorkingDir: "{app}"

;Tasks: desktopicon 任务：生成快捷方式

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启动~这个感觉没必要 要娱乐一下的试试看?

Tasks]

Name: "startup"; Description: "随 windwos 启动"; GroupDescription: "添加启动选"

;Takes建立任务类似快捷方式类的

Registry]

Root: HKCU; SubKey: Software\\Microsoft\\Windows\\CurrentVersion\\Run; valueType: string; valueName: "fileBX"; valueData: "{app}\\fileBX.exe";Flags: uninsdeletevalue; Tasks: startup

;在注册表上修改随windows启动！

想把这2个图片换了？安装软件后目录有2个图片 你可以替换这2个头像就可以了。

WizModernSmallImage.bmp 这个右上方的网站标志（注意只是举例）

WizModernImage.bmp 这个是左边的游戏图片

Code]

procedure URLLabelOnClick(Sender: TObject);

var

ErrorCode: Integer;

begin

ShellExec('open', 'http://www.aoizora.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;

procedure AboutButtonOnClick(Sender: TObject);

begin

MsgBox('^青空学园—多次元动漫游戏论坛^'#13#10' http://www.aoizora.com', mbInformation, MB_OK);

;这是关于按钮里面的内容 #13#10是换行的意思

end;

var

AboutButton, CancelButton: TButton;

URLLabel: TNewStaticText;

procedure InitializeWizard();

begin

{ Create the pages }

WizardForm.PAGENAMELABEL.Font.Color:= clred;

WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;

WizardForm.WELCOMELABEL1.Font.Color:= clGreen;

WizardForm.WELCOMELABEL2.Font.Color:= clblack;

CancelButton := WizardForm.CancelButton;

AboutButton := TButton.Create(WizardForm);

AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;

AboutButton.Top := CancelButton.Top;

AboutButton.Width := CancelButton.Width;

AboutButton.Height := CancelButton.Height;

AboutButton.Caption := 'About';

AboutButton.OnClick := @AboutButtonOnClick;

AboutButton.Parent := WizardForm;

URLLabel := TNewStaticText.Create(WizardForm);

URLLabel.Caption := '『青空学园』';

URLLabel.Cursor := crHand;

URLLabel.OnClick := @URLLabelOnClick;

URLLabel.Parent := WizardForm;

{ Alter Font *after* setting Parent so the correct defaults are inherited first }

URLLabel.Font.Style := URLLabel.Font.Style + fsUnderline];

URLLabel.Font.Color := clBlue;

URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;

URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);

end;

默认勾选同意~急着安装？不用急这就是设定默认的同意！

Code]

var

Label2: TLabel;

Label1: TLabel;

CheckBox1: TCheckBox;

NewStaticText1: TNewStaticText;

procedure Cus_Next(Sender: TObject);

begin

if CheckBox1.Checked = True then

WizardForm.LicenseAcceptedRadio.Checked := True

else

WizardForm.LicenseNotAcceptedRadio.Checked := True

end;

procedure InitializeWizard();

begin

WizardForm.LicenseMemo.Height := 127;

WizardForm.LicenseAcceptedRadio.visible := False;

WizardForm.LicenseNotAcceptedRadio.visible := False;

Label1 := TLabel.Create(WizardForm);

Label1.Parent := WizardForm.LicensePage;

Label1.Left := WizardForm.LicenseMemo.Left;

Label1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 7;

Label1.Width := WizardForm.LicenseMemo.Width;

Label1.Height := ScaleY(12);

Label1.Caption := '如果您接受许可协议，点击下方的单选框。您必须接受协议才能安装 我的程序'#13'1.5。单击 下一步

(N)] 继续。';

CheckBox1 := TCheckBox.Create(WizardForm);

CheckBox1.Parent := WizardForm.LicensePage;

CheckBox1.Left := WizardForm.LicenseMemo.Left;

CheckBox1.Top := WizardForm.LicenseMemo.Top + WizardForm.LicenseMemo.Height + 47;

CheckBox1.Width :=WizardForm.LicenseA)M'e;

CheckBox1.TabOrder := 0;

CheckBox1.OnClick := @Cus_Next;

end;

去掉“关于安装程序”菜单

code]

400;function DeleteMenu$

const MF_BYPOSITION=mo.Width;

CheckBox1.Height :=( ScaleY(17);

&CheckBox1.Caption :=HMENU: HWND; uPosition: UINT; uFlags: UINT): BOOL;

external ''DeleteMenu@user32.dll stdcall我'同;

function GetSystemMenu意“许可协议”中的条款((HWND: hWnd; bRevert: BOOL): HWND;

external 'GetSystemMenu@user32.dll stdcall';

procedure InitializeWizard();

begin

DeleteMenu(GetSystemMenu(wizardform.handle,false),8,MF_BYPOSITION);

DeleteMenu(GetSystemMenu(wizardform.handle,false),7,MF_BYPOSITION);

end;

Messages]

ClickNext=单击“下一步”继续，或单击“取消”退出安装程序n此程序由yang8871/yangteng制作，对此程序保留权n欢迎加入青空学园： http://www.aoizora.com/n本程序仅供个人研究、学习而自行制作完成n仅供论坛内部交流和使用，禁止用于任何商业用途 原始软件的所有权利皆属于原公司或组织！

说明一下这个字体是跟上面那个欢迎安装向导的字体一样的n是空一行的意思学过C语言的都知道吧？？C语言室/N innoN差不多了！

换行符号：

在 Messages] 换行符号n

在 MsgBox 中换行符号为 %为%是%！%。% %利%n%n%n%n%n%n%。#13#10 //#13 为回车字符

procedure InitializeWizard(); 这个不能重复~只能是一个~注意编译时常常会出现错误都是因为这个。都归到一个命令下就可以了~

左下方F.B.I标志 XXXX改为你的名字或组织均可！

Messages]

BeveledLabel=XXXXXX

添加任务设定为主页，卸载游戏以后会自动访问青空学园，至于安装游戏自动添加到收藏夹就不弄了。因为系统不同的关系这个会出错~XP,VISTA默认的管理目录不同！

Tasks]Name: changestartpage; Description: "设置青空学园为主页"

;建立一个如上图的任务

Registry]

Root: HKCU; Subkey: "Software\\Microsoft\\Internet Explorer\\Main"; ValueType: string; ValueName: "Start Page"; ValueData: "http://www.aoizora.com/"; tasks: changestartpage

;定义网站地址 上面的www.aoizora.com 改成你想要修改的网页即可

安装完成后想自动访问网站~

CODE]

procedure CurStepChanged(CurStep: TSetupStep);

var

ErrorCode: Integer;

begin

if CurStep=ssDone then ShellExec('open', 'http://www.aoizora.com ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;

安装、卸载时判断是否程序正在运行,卸载后自动打开网页

code]

var

ErrorCode: Integer;

IsRunning: Integer;

// 安装时判断客户端是否正在运行

function InitializeSetup(): Boolean;

begin

Result :=true; //安装程序继续

IsRunning:=FindWindowByWindowName('东方宽频网络电视');

while IsRunning<>0 do

begin

if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

begin

Result :=false; //安装程序退出

IsRunning :=0;

end else begin

Result :=true; //安装程序继续

IsRunning:=FindWindowByWindowName('东方宽频网络电视');

end;

end;

end;

// 卸载时判断客户端是否正在运行

function InitializeUninstall(): Boolean;

begin

Result :=true; //安装程序继续

IsRunning:=FindWindowByWindowName('东方宽频网络电视');

while IsRunning<>0 do

begin

if Msgbox('安装程序检测到客户端正在运行。' #13#13 '您必须先关闭它然后单击“是”继续安装，或按“否”退出！', mbConfirmation, MB_YESNO) = idNO then

begin

Result :=false; //安装程序退出

IsRunning :=0;

end else begin

Result :=true; //安装程序继续

IsRunning:=FindWindowByWindowName('东方宽频网络电视');

end;

end;

end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin

case CurUninstallStep of

usUninstall:

begin // 开始卸载

end;

usPostUninstall:

begin // 卸载完成

// MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);

// ...insert code to perform post-uninstall tasks here...

ShellExec('open', 'http://www.dreams8.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);

end;

end;

end;

颜色代码

颜色代码名称：

clBlack（黑色），clMaroon（暗红），clGreen（绿色），clOlive（橄榄绿），

clNavy（深蓝），clPurple（紫色），clTeal（深青），clGray（灰色），

clSilver（浅灰），clRed（红色），clLime（浅绿），clYellow（黄色），

clBlue（蓝色），clFuchsia（紫红），clAqua（青绿），clWhite（白色）。

这软件打包单个exe文件只能是2G一下。为了刻盘方便一般都是分割成600多m一个的 CD最大容量为700M。DVD则为4.7G 新版的2009卡巴斯基因为检测打开大型EXE文件特别慢。所以做成这样最好不过了~方便收藏安装！

Setup]命令下面加可以了

DiskSpanning=true

DiskSliceSize=645766400 这个是分割文件的大小！

自动写入注册表有些部分是要手动注册的。以下功能可实现自动注册！说明一下一般注册表都是自己手动进入注册表寻找的 不过有些玩家要求 这里介绍一个软件（万象注册表分析工具）大家不妨一试

注册表监视器 用法：拖动exe安装程序到软件界面，安装结束后会弹出关于注册表变化的信息！大部分提取注册表适用，但是不排除有些游戏会出错！

例如需要手动注册的注册表内容为：

HKEY_LOCAL_MACHINE\\Software\\NINELIVES\\Princess Maker3CHT\\1.0]

"InstPath"="C:\\\\美少女梦工厂3梦幻妖精简体中文XP版"

写入的内容应为：

Registry]Root: HKLM; SubKey: SOFTWARE\\NINELIVES; Flags: uninsdeletekeyifempty

Root: HKLM; SubKey: SOFTWARE\\NINELIVES\\Princess Maker3CHT; Flags: uninsdeletekeyifempty

Root: HKLM; SubKey: SOFTWARE\\NINELIVES\\Princess Maker3CHT\\1.0; Flags: uninsdeletekeyifempty

Root: HKLM; SubKey: SOFTWARE\\NINELIVES\\Princess Maker3CHT\\1.0; Flags: uninsdeletekey; ValueType: string; ValueName: InstPath; ValueData: {app}

不好意思各位我忽略了一些东西！本人不用ISTOOL的 基本上都是自己写！通过这个注册表工具可以提取注册表 或者自己到注册提取都可以！

然后用ISTOOL导入变成IS能识别的语言！

中级教程

启动安装弹出闪屏及音乐，关于按钮也写进去了~原创编写·不过这插件是由高人提取NISS的插件应用到inno中的，使inno比之niss制作更加美观简单！来吧！不懂慢慢看！解压到桌面就可以了写的时候也是默认桌面的~注意解压的时候解压名为NSISADDIN 加了一点原创标志所以解压后名字不同~注意不然就把下面的命令自己改下一样的

Setup]AppName=我的程序

AppVerName=我的程序 1.5 版本

DefaultDirName={pf}\\我的程序

DefaultGroupName=我的程序

Files]

; 打包实现闪屏和背景音乐所必需的插件文件

Source: "C:\\Documents and Settings\\Administrator\\桌面\\NSISADDIN\\NSISADDIN\\callnsis.dll"; DestDir: "{tmp}"; Flags:

dontcopy

Source: "C:\\Documents and Settings\\Administrator\\桌面\\NSISADDIN\\NSISADDIN\\NewAdvSplash.dll"; DestDir: "{tmp}";

Flags: dontcopy

Source: "C:\\Documents and Settings\\Administrator\\桌面\\NSISADDIN\\NSISADDIN\\Bass.dll"; DestDir: "{tmp}"; Flags:

dontcopy

; 打包闪屏和背景音乐素材文件：闪屏图像文件 bmp、gif 或者 jpg 格式， 音乐文件 MP3、WAV 格式

Source: "C:\\Documents and Settings\\Administrator\\桌面\\NSISADDIN\\NSISADDIN\\splash.gif"; DestDir: "{tmp}"; Flags:

dontcopy

Source: "C:\\Documents and Settings\\Administrator\\桌面\\NSISADDIN\\NSISADDIN\\mymusic.mp3"; DestDir: "{tmp}"; Flags:

dontcopy

; 以下打包软件本身的文件

; 请自己加上

; 以下是安装脚本的其它段代码

; 请自己加上

Code]

Type

HSAMPLE = DWORD;

HCHANNEL = DWORD;

var

MusicSwitchLabel0, MusicSwitchLabel1, MusicSwitchLabel2: TNewStaticText;

sample: HSAMPLE;

channel: HCHANNEL;

// 以下是所调用的插件函数

function BASS_Init(device: Integer; freq, flags: DWORD; win: HWND; clsid: string): Boolean;

external 'BASS_Init@files:BASS.dll stdcall delayload';

procedure BASS_Free();

external 'BASS_Free@files:BASS.dll stdcall delayload';

function BASS_SampleLoad(mem: BOOL; f: PChar; offset, length, max, flags: DWORD): HSAMPLE;

external 'BASS_SampleLoad@files:BASS.dll stdcall delayload';

function BASS_ChannelPlay(handle: DWORD; restart: BOOL): BOOL;

external 'BASS_ChannelPlay@files:BASS.dll stdcall delayload';

function BASS_ChannelPause(handle: DWORD): BOOL;

external 'BASS_ChannelPause@files:BASS.dll stdcall delayload';

function BASS_SampleGetChannel(handle: HSAMPLE; onlynew: BOOL): HCHANNEL;

external 'BASS_SampleGetChannel@files:BASS.dll stdcall delayload';

procedure callplug(parentwnd: Integer;

pluginname,funcname,param1,param2,param3,param4,param5,param6,param7,param8,param9,param10: PChar);

external 'callplug@files:callnsis.dll stdcall delayload';

// 以下是点击“关于”按钮后的响应函数

procedure AboutButtonOnClick(Sender: TObject);

begin

MsgBox('这是你的信息。'#13#10'这是你的信息的第二行。', mbInformation, MB_OK);

end;

// 以下是点击“打开音乐”按钮后的响应函数

procedure MusicSwitchLabel1OnClick(Sender: TObject);

begin

BASS_ChannelPlay(channel, false);

MusicSwitchLabel1.Font.Color := clGray;

MusicSwitchLabel2.Font.Color := clBlue;

end;

// 以下是点击“关闭音乐”按钮后的响应函数

procedure MusicSwitchLabel2OnClick(Sender: TObject);

begin

BASS_ChannelPause(channel);

MusicSwitchLabel2.Font.Color := clGray;

MusicSwitchLabel1.Font.Color := clBlue;

end;

// 安装向导初始化函数

procedure InitializeWizard();

var

AboutButton: TButton;

BGMusicFile, SplashFile: string;

begin

// 创建“关于”按钮

AboutButton := TButton.Create(WizardForm);

AboutButton.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width;

AboutButton.Top := WizardForm.CancelButton.Top;

AboutButton.Width := WizardFoA)...r'm;

AboutButton.OnClick := @AboutButtonOnClick;

AboutButton.Parent := WizardForm;

// 创建文字标签“音乐:”

MusicSwitchLabel0 := TNewStaticText.Create.CancelButton.Width;

AboutButton.Height := Wizard&Form.CancelBu(tton.Height;

AboutButton.Caption := '关于(WizardForm);

MusicSwitchLabel0.Left := AboutButton.Left + ScaleX(90);

MusicSwitchLabel0.Top := WizardForm.CancelButton.Top + ScaleY(3);

MusicSwitchLabel0.Width := ScaleX(30);

MusicSwitchLabel0.Height := ScaleY(12);

MusicSwitchLabel0.Font.Color := clRed;

MusicSwitchLabel0.Caption := '音乐:';

MusicSwitchLabel0.Parent := WizardForm;

// 创建文字标签作为“打开音乐”按钮（采用 Webdings 字体中的播放符号）

MusicSwitchLabel1 := TNewStaticText.Create(WizardForm);

MusicSwitchLabel1.Left := MusicSwitchLabel0.Left + ScaleX(33);

MusicSwitchLabel1.Top := MusicSwitchLabel0.Top - ScaleY(3);

MusicSwitchLabel1.Width := ScaleX(20);

MusicSwitchLabel1.Height := ScaleY(12);

MusicSwitchLabel1.Font.Color := clGray;

MusicSwitchLabel1.Font.Name := 'webdings';

MusicSwitchLabel1.Font.Size := -15;

MusicSwitchLabel1.Cursor := crCross;

MusicSwitchLabel1.Caption := #52

MusicSwitchLabel1.ShowHint:= true;

MusicSwitchLabel1.Hint:= '打开音乐';

MusicSwitchLabel1.OnClick := @MusicSwitchLabel1OnClick;

MusicSwitchLabel1.Parent := WizardForm;

// 创建文字标签作为“关闭音乐”按钮（采用 Webdings 字体中的暂停符号）

MusicSwitchLabel2 := TNewStaticText.Create(WizardForm);

MusicSwitchLabel2.Left := MusicSwitchLabel1.Left + ScaleX(20);

MusicSwitchLabel2.Top := MusicSwitchLabel0.Top - ScaleY(3);

MusicSwitchLabel2.Width := ScaleX(20);

MusicSwitchLabel2.Height := ScaleY(12);

MusicSwitchLabel2.Font.Color := clBlue;

MusicSwitchLabel2.Font.Name := 'webdings';

MusicSwitchLabel2.Font.Size := -15;

MusicSwitchLabel2.Cursor := crCross;

MusicSwitchLabel2.Caption := #59

MusicSwitchLabel2.ShowHint:= true;

MusicSwitchLabel2.Hint:= '关闭音乐';

MusicSwitchLabel2.OnClick := @MusicSwitchLabel2OnClick;

MusicSwitchLabel2.Parent := WizardForm;

// 释放临时文件

ExtractTemporaryFile('BASS.dll');

ExtractTemporaryFile('CallNSIS.DLL');

ExtractTemporaryFile('NewAdvSplash.DLL');

ExtractTemporaryFile('mymusic.mp3');

ExtractTemporaryFile('splash.gif');

BGMusicFile := ExpandConstant('{tmp}\\mymusic.mp3');

SplashFile := ExpandConstant('{tmp}\\splash.gif');

// 播放背景音乐

if not BASS_Init(-1,44100,0,0,'') then

BASS_Free;

sample := BASS_SampleLoad(false, PChar(BGMusicFile), 0, 0, 1, 4);

if sample<>0 then

begin

channel:= BASS_SampleGetChannel(sample, false);

BASS_ChannelPlay(channel, true);

end;

// 闪屏：显示时间 1600、淡入 800、淡出 500、透明颜色 -2 （表示 gif 图像本身透明）

callplug(0,ExpandConstant('{tmp}\\NewAdvSplash.dll'),'show','1600','800','500','-2',SplashFile,'','','','','');

// 以下是安装向导初始化函数的其它代码

// 请自己加上

end;

// 以下是其它 CODE 段代码

水纹效果

高级教程：

在安装界面的最上方会出现正在安装什么游戏？一层不变会让人厌倦来试试看这个？还有很多设定有兴趣的高手自己看看~

inno目录下有个Default.isl 打开编辑看看，这个是界面设定，最好先备份错了修改错了再覆盖回去

图片看看

Messages]

; *** 应用程序标题

SetupAppTitle=正在安装中_请稍等（默认不是这个这个是我修改过的）

SetupWindowTitle=正在安装中_请稍等-1

UninstallAppTitle=卸载

UninstallAppFullTitle1 卸载

%=%