Inno Setup 编程技术全图文教程

初级教程
如何安装到指定目录下？如安装到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.LicenseMemo.Width;
CheckBox1.Height := ScaleY(17);
CheckBox1.Caption := '我同意“许可协议”中的条款(&A)';
CheckBox1.TabOrder := 0;
CheckBox1.OnClick := @Cus_Next;
end;
去掉“关于安装程序”菜单
[code]
const MF_BYPOSITION=$400;
function DeleteMenu(HMENU: HWND; uPosition: UINT; uFlags: UINT): BOOL;
external '[email protected] stdcall';
function GetSystemMenu(HWND: hWnd; bRevert: BOOL): HWND;
external '[email protected] stdcall';
procedure InitializeWizard();
begin
DeleteMenu(GetSystemMenu(wizardform.handle,false),8,MF_BYPOSITION);
DeleteMenu(GetSystemMenu(wizardform.handle,false),7,MF_BYPOSITION);
end;

[Messages]
ClickNext=单击“下一步”继续，或单击“取消”退出安装程序。%n%n%n%n%n%n%n此程序由yang8871/yangteng制作，对此程序保留权利%n欢迎加入青空学园： http://www.aoizora.com/ %n本程序仅供个人研究、学习而自行制作完成。%n仅供论坛内部交流和使用，禁止用于任何商业用途 原始软件的所有权利皆属于原公司或组织！
说明一下这个字体是跟上面那个欢迎安装向导的字体一样的！%n是空一行的意思学过C语言的都知道吧？？C语言室/N inno是%N差不多了！
换行符号：
在 [Messages] 换行符号为%n
在 MsgBox 中换行符号为 #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 := WizardForm.CancelButton.Width;
AboutButton.Height := WizardForm.CancelButton.Height;
AboutButton.Caption := '关于(&A)...';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
// 创建文字标签“音乐:”
MusicSwitchLabel0 := TNewStaticText.Create(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=卸载
UninstallAppFullTitle=%1 卸载

全面解析Shadowrocket系统不稳定问题：从诊断到修复的终极指南

在当今互联网环境中，隐私保护和自由访问信息的需求日益增长，Shadowrocket作为一款功能强大的网络代理工具，凭借其高效的性能和灵活的配置，赢得了全球用户的青睐。然而，就像任何技术工具一样，Shadowrocket也并非完美无缺，许多用户在使用过程中都曾遭遇过系统不稳定的困扰。这种不稳定不仅影响用户体验，更可能危及隐私安全。本文将深入剖析Shadowrocket系统不稳定的各种表现、根源所在，并提供一套完整的解决方案，帮助您彻底摆脱这些烦恼，享受流畅稳定的代理服务。

Shadowrocket系统不稳定的典型症状

要解决问题，首先需要准确识别问题。Shadowrocket系统不稳定通常表现为以下几种形式，每种症状都暗示着不同的潜在问题：

1. 频繁断线：网络连接的"心脏病"
想象一下，您正在观看重要的在线视频会议，或者下载关键文件时，连接突然中断——这种体验无疑令人沮丧。频繁断线是Shadowrocket用户最常见的抱怨之一。症状表现为连接会毫无预警地断开，有时会自动重连，有时则需要手动干预。这种情况往往让用户处于"随时可能掉线"的焦虑状态，严重影响使用体验。

2. 速度迟缓：数字世界的"交通堵塞"
当您发现网页加载需要数秒甚至更长时间，视频不断缓冲，文件下载速度远低于预期时，这表明Shadowrocket的运行效率出现了问题。速度下降可能呈现间歇性，时快时慢，也可能持续较长时间。这种症状特别令人困扰，因为它不像完全断线那样明显，而是以一种"半死不活"的状态消耗用户的耐心。

3. 连接失败：无法叩开的"数字大门"
最令人挫败的莫过于根本无法建立初始连接。用户可能会收到各种错误提示，如"连接超时"、"服务器无响应"或"认证失败"等。这种情况完全阻断了代理服务的使用，使得Shadowrocket变成了一款"看得见却用不了"的工具。

4. 配置丢失：记忆的"短暂失忆"
一些用户报告称，他们的Shadowrocket设置会莫名其妙地恢复默认或完全丢失。这种症状虽然不如前几种常见，但一旦发生，用户需要重新配置所有参数，既费时又容易出错。

深度剖析：Shadowrocket不稳定的五大根源

了解了症状后，我们需要像医生诊断疾病一样，找出导致这些问题的根本原因。只有准确诊断，才能对症下药。

1. 网络环境：不稳定的基础
网络连接是Shadowrocket运行的基石。如果基础网络本身就不稳定，再好的代理工具也难以发挥效能。常见的网络问题包括：
- 无线信号弱或干扰严重
- ISP(互联网服务提供商)的限制或节流
- 本地网络设备(路由器、调制解调器)性能不足或过热
- DNS解析问题

2. 服务器过载：太多人挤一座桥
代理服务器的负载状况直接影响用户体验。热门服务器往往面临：
- 同时连接用户过多，带宽被严重分摊
- 服务器硬件资源(CPU、内存)达到极限
- 服务商有意限制免费用户的速度
- 服务器遭受DDoS攻击或其他网络安全事件

3. 配置错误：精密的仪器需要精准调校
Shadowrocket作为一款专业工具，其配置需要一定的技术知识。常见的配置错误包括：
- 服务器地址或端口输入错误
- 认证信息(用户名/密码)不正确
- 协议类型选择不当
- 加密方式与服务器不匹配
- 路由规则设置过于复杂或冲突

4. 软件问题：工具本身的缺陷
即使是优秀的软件也难免存在缺陷：
- 版本过旧，存在已知漏洞
- 最新版本引入新的bug
- 与特定iOS系统版本不兼容
- 后台进程被系统错误终止

5. 外部干扰：无形的屏障
在某些网络环境下，还可能遇到：
- 防火墙或网络管理员主动阻断代理连接
- ISP深度包检测(DPI)技术识别并限制代理流量
- 地区性网络审查政策加强

全面解决方案：从简单到进阶的修复策略

现在，我们进入最实用的部分——如何解决这些问题。以下解决方案按照从简单到复杂的顺序排列，建议用户按顺序尝试。

第一步：基础网络优化

1. 切换网络连接
- 如果使用Wi-Fi，尝试切换到4G/5G移动数据，反之亦然
- 对于Wi-Fi连接，尽量靠近路由器或使用5GHz频段(减少干扰)
- 考虑使用有线以太网连接(通过Lightning转以太网适配器)

2. 重启网络设备
- 关闭Shadowrocket应用并重新启动
- 重启iOS设备
- 拔掉路由器电源30秒后重新连接

3. 优化DNS设置
- 在Shadowrocket设置中尝试使用公共DNS如Google DNS(8.8.8.8)或Cloudflare DNS(1.1.1.1)
- 避免使用ISP提供的默认DNS，这些DNS可能响应慢或有审查

第二步：服务器调整策略

1. 更换代理服务器
- 如果使用免费服务器，尝试不同的节点
- 考虑投资付费VPN/代理服务，通常提供更稳定的连接
- 测试不同地理位置的服务器(有时较远的服务器反而更稳定)

2. 调整连接协议
- 尝试不同的代理协议(如从SS切换到SSR或V2Ray)
- 修改加密方式(如从AES-256-GCM改为ChaCha20)
- 启用或关闭混淆插件(视网络环境而定)

3. 负载均衡设置
- 如果订阅包含多个服务器，配置自动切换规则
- 设置故障转移，当主服务器不可用时自动切换到备用

第三步：深度配置检查

1. 验证配置参数
- 逐项检查服务器地址、端口、密码、加密方式
- 确保没有多余的空格或特殊字符
- 对比服务商提供的配置信息

2. 优化路由规则
- 简化分流规则，删除不必要的规则
- 确保关键应用(如浏览器)的流量通过代理
- 设置国内IP直连，减少不必要的代理负担

3. 调整高级参数
- 修改MTU值(尝试1450或1400)
- 调整连接超时时间(默认值可能不适合您的网络)
- 启用或关闭IPv6(根据网络支持情况)

第四步：软件维护与更新

1. 版本管理
- 检查并安装最新稳定版Shadowrocket
- 如果最新版有问题，回退到上一个稳定版本
- 确保iOS系统为兼容版本

2. 数据清理
- 清除Shadowrocket缓存数据
- 删除并重新安装应用(备份配置先)

3. 后台权限设置
- 确保iOS允许Shadowrocket后台刷新
- 关闭低电量模式(可能限制网络活动)

第五步：进阶解决方案

1. 自建代理服务器
- 租用VPS搭建专属代理服务器
- 使用CDN加速代理连接
- 配置多服务器负载均衡

2. 网络诊断工具
- 使用Ping和Traceroute诊断网络路径
- 通过curl测试代理连接质量
- 分析连接日志找出失败原因

3. 替代方案准备
- 安装备用代理应用作为应急方案
- 配置系统级VPN作为后备

常见问题深度解答

Q1: 为什么Shadowrocket连接后网络反而变慢？
A: 这通常由几个因素导致：服务器带宽不足、加密开销过大、路由路径不佳或ISP限速。建议尝试不同的加密方式(如改用更轻量的ChaCha20)，选择地理上更近的服务器，或测试不同时间段的连接速度。

Q2: 如何判断是Shadowrocket问题还是服务器问题？
A: 可通过以下步骤诊断：
1. 关闭Shadowrocket直接连接网络，测试速度
2. 尝试连接不同的代理服务器
3. 在其他设备上测试同一服务器
4. 使用网络诊断工具检查连接质量

Q3: 配置复杂规则后Shadowrocket变卡怎么办？
A: 过多的路由规则会增加处理负担。建议：
- 精简规则，合并相似条目
- 使用域名通配符减少规则数量
- 禁用不常用的规则组
- 升级到性能更强的设备

预防胜于治疗：长期稳定使用建议

要避免Shadowrocket不稳定问题反复发生，建议采取以下预防措施：

1. 定期维护习惯

   • 每月检查一次配置和规则
   • 清理不必要的订阅和服务器
   • 备份重要配置

2. 信息更新机制

   • 关注Shadowrocket官方更新日志
   • 加入用户社区获取最新解决方案
   • 订阅可靠的技术博客

3. 多样化资源准备

   • 维护多个备用服务器订阅
   • 准备不同协议的连接方案
   • 了解替代工具的使用方法

4. 网络环境优化

   • 投资高质量的家庭网络设备
   • 选择网络状况良好的使用场所
   • 了解不同时段的网络特性

结语：掌握技术，驾驭自由

Shadowrocket作为一款强大的网络工具，其不稳定问题虽然令人困扰，但通过系统性的诊断和修复，大多数问题都是可以解决的。本文从症状识别到原因分析，再到解决方案，提供了一套完整的应对策略。

值得注意的是，网络环境和技术生态在不断变化，今天有效的解决方案明天可能需要调整。因此，培养解决问题的能力比记住具体步骤更为重要。理解背后的原理，您就能在面对新问题时快速找到解决方向。

数字世界的自由需要技术的护航，而技术的驾驭需要知识和耐心。希望本指南能帮助您不仅解决眼前的问题，更能建立起对网络代理技术的深入理解，让Shadowrocket真正成为您畅游互联网的得力助手。

正如一位网络自由倡导者所说："在网络世界，遇到的问题只是通往更深入理解的阶梯。"每一次故障排除都是技术素养的提升，每一次连接成功都是数字自由的胜利。愿您的网络之旅畅通无阻，充满发现。