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:Languages\ChineseSimp.isl" 
;語言中性





[Icons] 
Name: "{group}\紙莎草書繁體中文破解版"; Filename:"{app}\game.exe";WorkingDir:"{app}" 
;生成開始菜單遊戲可執行程序game.exe是你目錄下的可執行文件 WorkingDir: {app}” WorkingDir後面加{app} app的意思是隨安裝目錄生成

Name: "{group}\{cm:ProgramOnTheWeb,訪問青空學園}"; 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啓動！

[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歡迎加入青空學園： 

左下方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;


高級教程：

在安裝界面的最上方會出現正在安裝什麼遊戲？一層不變會讓人厭倦來試試看這個？還有很多設定有興趣的高手自己看看~

inno目錄下有個Default.isl 打開編輯看看，這個是界面設定，最好先備份錯了修改錯了再覆蓋回去 



[Messages]

; *** 應用程序標題
SetupAppTitle=正在安裝中_請稍等（默認不是這個這個是我修改過的）
SetupWindowTitle=正在安裝中_請稍等- %1
UninstallAppTitle=卸載
UninstallAppFullTitle=%1 卸載