Inno-setup硬盤版游戲封裝教程

前言：首先這軟件是用來做高壓硬盤版的~先下載這軟件，本人建議不用向?qū)ё约簩懚嗔俗匀痪蜁苁煜ち藒關(guān)于編譯時錯誤那是“語法”問題自己多去看看說明這些是不可能解釋的！

InnoSetup5.2.3漢化增強完美版

初級教程

如何安裝到指定目錄下？如安裝到E:空之軌跡SC

[Setup]

DefaultDirName=E:空之軌跡SC

DisableDirPage=yes

DisableReadyPage=yes

DisableFinishedPage=yes

如何判定程序已經(jīng)安裝過而不重復(fù)安裝，假如你的程序?qū)⒁惭b到{pf}空之軌跡SC，如果在該文件夾中已經(jīng)有你想要安裝的文件ed6.exe，那么你認(rèn)為該程序算是已經(jīng)安裝。那么程應(yīng)該這樣寫：

;程序已經(jīng)安裝在你的系統(tǒng)中了！這個是提示安裝過。你可以設(shè)定其他語言說明例如已安裝或重復(fù)安裝

;{pf}空之軌跡SC為安裝目錄文件文件夾，同理如果是其他目錄更改目錄即可！

[Code]

functionInitializeSetup():boolean;

begin

Result:=true;

ifFileExists(ExpandConstant('{pf}空之軌跡SCed6.exe'))then

begin

MsgBox('程序已經(jīng)安裝在你的系統(tǒng)中了！',mbInformation,MB_OK);

Result:=false;

end;

end;

下面提供實例下載跟說明

比較簡單的實例.rar(948Bytes,下載次數(shù):151)

[Setup]

AppName=紙莎草書繁體中文破解版

;游戲名

AppVerName=紙莎草書繁體中文破解版

;游戲版本名

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

;公司

AppPublisherURL=

;網(wǎng)站

AppSupportURL=

AppUpdatesURL=

DefaultDirName=E:空之軌跡SC

;安裝目錄

DisableDirPage=yes

DisableReadyPage=yes

DisableFinishedPage=yes

DefaultGroupName=紙莎草書繁體中文破解版

;產(chǎn)品名稱

LicenseFile=CocumentsandSettingsAdministrator桌面用戶使用協(xié)議.txt

;協(xié)議書（按同意之前要先看的那個）

InfoAfterFile=CocumentsandSettingsAdministrator桌面安裝后說明.txt

;安裝完成后的話

OutputDir=CocumentsandSettingsAdministrator桌面

;輸出目錄存放的目錄

OutputBaseFilename=紙莎草書繁體中文破解版

;輸出的游戲名稱

SetupIconFile=D:圖標(biāo)紙莎草書.ico

;圖標(biāo)位置

Compression=lzma

;壓縮方式：極限壓縮

SolidCompression=yes

;（yes為固實壓縮no則相反）

InternalCompressLevel=ultra

;文件極限壓縮目錄下的文件

VersionInfoDescription=紙莎草書繁體中文破解版

;產(chǎn)品名稱

VersionInfoCopyright=Copyright(C)2009ByF.B.I游戲室（yang8871/yangteng)

;版權(quán)

DiskSpanning=true

;分卷壓縮

DiskSliceSize=645766400

;分割的文件大小單位K大小為615M

VersionInfoVersion=1.0

;文件版本

VersionInfoTextVersion=1.0

TouchTime=22:23

;生成的時間

PrivilegesRequired=none

;不需要管理權(quán)限也能安裝

AlwaysRestart=yes

;詢問是否要重新啟動？（可以設(shè)置強制重新啟動但是感覺沒必要就不要害人）

[Files]

Source:"C:紙莎草書繁體中文破解版game.exe";DestDir:"{app}";Flags:ignoreversion

;游戲生成的快捷方式所指原執(zhí)行文件

Source:"C:紙莎草書繁體中文破解版*";DestDir:"{app}";Flags:ignoreversionrecursesubdirscreateallsubdirs

;要打包的目錄

[Languages]

Name:"chinesesimp";MessagesFile:"compileranguagesChineseSimp.isl"

;語言中性

[Icons]

Name:"{group}紙莎草書繁體中文破解版";Filename:"{app}game.exe";WorkingDir:"{app}"

;生成開始菜單游戲可執(zhí)行程序game.exe是你目錄下的可執(zhí)行文件WorkingDir:{app}”WorkingDir后面加{app}app的意思是隨安裝目錄生成

Name:"{group}{cmrogramOnTheWeb,訪問青空學(xué)園}";Filename:";WorkingDir:{app}"

;生成開始菜單網(wǎng)站

Name:"{group}{cm:UninstallProgram,紙莎草書繁體中文破解版}";Filename:"{uninstallexe};WorkingDir:{app}"

;生成開始菜單卸載

Name:"{commondesktop}紙莎草書繁體中文破解版";Filename:"{app}game.exe";Tasks:desktopicon;WorkingDir:"{app}"

;Tasks:desktopicon任務(wù)：生成快捷方式

[Tasks]

Name:changestartpage;Description:"設(shè)置青空學(xué)園為主頁"

Name:"desktopicon";Description:"{cm:CreateDesktopIcon}";GroupDescription:"{cm:AdditionalIcons}";Flags:unchecked

;Tasks:desktopicon任務(wù)：生成快捷方式

壓縮方式的設(shè)置：默認(rèn)是lzma

[Setup]

Compression=XXX

XXX表示壓縮方式，目前的版本支持以下的壓縮方式：

zip;相當(dāng)于zip/7，是軟件默認(rèn)的壓縮方式

zip/1;Zip格式，壓縮率最低，速度最快，耗內(nèi)存最少

zip/9;Zip格式，壓縮率最高，速度最慢，耗內(nèi)存最大

bzip;相當(dāng)于bzip/9

bzip/1;BZip2格式（壓縮率高于Zip格式），壓縮率最低，速度最快，耗內(nèi)存最少

bzip/9;BZip2格式，壓縮率最高，速度最慢，耗內(nèi)存最大

lzma;相當(dāng)于lzma/max

lzma/fast;7-ZipLZMA格式（壓縮率高于Zip和BZip2格式），壓縮率低，速度快

lzma/normal;7-ZipLZMA格式，壓縮率一般，速度一般

lzma/max;7-ZipLZMA格式，壓縮率高，速度慢

lzma/ultra;7-ZipLZMA格式，超級壓縮（謹(jǐn)慎使用，特別耗內(nèi)存！?。?/p>

none;不壓縮

讓安裝程序安裝后隨WINDOWS啟動~這個感覺沒必要要娛樂一下的試試看?

[Tasks]

Name:"startup";Description:"隨windwos啟動";GroupDescription:"添加啟動選"

;Takes建立任務(wù)類似快捷方式類的

[Registry]

Root:HKCU;SubKey:SoftwareMicrosoftWindowsCurrentVersionRun;valueType:string;valueName:"fileBX";valueData:"{app}fileBX.exe";Flags:uninsdeletevalue;Tasks:startup

;在注冊表上修改隨windows啟動！

想把這2個圖片換了？安裝軟件后目錄有2個圖片你可以替換這2個頭像就可以了。

WizModernSmallImage.bmp這個右上方的網(wǎng)站標(biāo)志（注意只是舉例）

WizModernImage.bmp這個是左邊的游戲圖片

創(chuàng)建關(guān)于按鈕和按鈕下的內(nèi)容及右邊的網(wǎng)站鏈接

創(chuàng)建關(guān)于按鈕和按鈕下的內(nèi)容及右邊的網(wǎng)站鏈接.rar(879Bytes,下載次數(shù):99)

[Code]

procedureURLLabelOnClick(Sender:TObject);

var

ErrorCode:Integer;

begin

ShellExec('open','/','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);

end;

procedureAboutButtonOnClick(Sender:TObject);

begin

MsgBox('^青空學(xué)園—多次元動漫游戲論壇^'#13#10'',mbInformation,MB_OK);

;這是關(guān)于按鈕里面的內(nèi)容#13#10是換行的意思

end;

var

AboutButton,CancelButton:TButton;

URLLabel:TNewStaticText;

procedureInitializeWizard();

begin

{Createthepages}

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:='『青空學(xué)園』';

URLLabel.Cursor:=crHand;

URLLabel.OnClick:=@URLLabelOnClick;

URLLabel.Parent:=WizardForm;

{AlterFont*after*settingParentsothecorrectdefaultsareinheritedfirst}

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;

默認(rèn)勾選同意~急著安裝？不用急這就是設(shè)定默認(rèn)的同意！

[Code]

var

Label2:TLabel;

Label1:TLabel;

CheckBox1:TCheckBox;

NewStaticText1:TNewStaticText;

procedureCus_Next(Sender:TObject);

begin

ifCheckBox1.Checked=Truethen

WizardForm.LicenseAcceptedRadio.Checked:=True

else

WizardForm.LicenseNotAcceptedRadio.Checked:=True

end;

procedureInitializeWizard();

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:='如果您接受許可協(xié)議，點擊下方的單選框。您必須接受協(xié)議才能安裝我的程序'#13'1.5。單擊[下一步

(N)]繼續(xù)。';

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:='我同意“許可協(xié)議”中的條款(&A)';

CheckBox1.TabOrder:=0;

CheckBox1.OnClick:=@Cus_Next;

end;

去掉“關(guān)于安裝程序”菜單

[code]

constMF_BYPOSITION=$400;

functionDeleteMenu(HMENU:HWND;uPosition:UINT;uFlags:UINT):BOOL;

external'DeleteMenu@user32.dllstdcall';

functionGetSystemMenu(HWND:hWnd;bRevert:BOOL):HWND;

external'GetSystemMenu@user32.dllstdcall';

procedureInitializeWizard();

begin

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

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

end;

[Messages]

ClickNext=單擊“下一步”繼續(xù)，或單擊“取消”退出安裝程序。%n%n%n%n%n%n%n此程序由yang8871/yangteng制作，對此程序保留權(quán)利%n歡迎加入青空學(xué)園：/%n本程序僅供個人研究、學(xué)習(xí)而自行制作完成。%n僅供論壇內(nèi)部交流和使用，禁止用于任何商業(yè)用途原始軟件的所有權(quán)利皆屬于原公司或組織！

說明一下這個字體是跟上面那個歡迎安裝向?qū)У淖煮w一樣的！%n是空一行的意思學(xué)過C語言的都知道吧？？C語言室/Ninno是%N差不多了！

換行符號：

在[Messages]換行符號為%n

在MsgBox中換行符號為#13#10//#13為回車字符

procedureInitializeWizard();這個不能重復(fù)~只能是一個~注意編譯時常常會出現(xiàn)錯誤都是因為這個。都?xì)w到一個命令下就可以了~

左下方F.B.I標(biāo)志XXXX改為你的名字或組織均可！

[Messages]

BeveledLabel=XXXXXX

添加任務(wù)設(shè)定為主頁，卸載游戲以后會自動訪問青空學(xué)園，至于安裝游戲自動添加到收藏夾就不弄了。因為系統(tǒng)不同的關(guān)系這個會出錯~XP,VISTA默認(rèn)的管理目錄不同！

[Tasks]

Name:changestartpage;Description:"設(shè)置青空學(xué)園為主頁"

;建立一個如上圖的任務(wù)

[Registry]

Root:HKCU;Subkey:"SoftwareMicrosoftInternetExplorerMain";ValueType:string;ValueName:"StartPage";ValueData:"/";tasks:changestartpage

;定義網(wǎng)站地址上面的改成你想要修改的網(wǎng)頁即可

安裝完成后想自動訪問網(wǎng)站~

[CODE]

procedureCurStepChanged(CurStep:TSetupStep);

var

ErrorCode:Integer;

begin

ifCurStep=ssDonethenShellExec('open','','','',SW_SHOWNORMAL,ewNoWait,ErrorCode);

end;

安裝、卸載時判斷是否程序正在運行,卸載后自動打開網(wǎng)頁

[code]

var

ErrorCode:Integer;

IsRunning:Integer;

//安裝時判斷客戶端是否正在運行

functionInitializeSetup():Boolean;

begin

Result:=true;//安裝程序繼續(xù)

IsRunning:=FindWindowByWindowName('東方寬頻網(wǎng)絡(luò)電視');

whileIsRunning<>0do

begin

ifMsgbox('安裝程序檢測到客戶端正在運行。'#13#13'您必須先關(guān)閉它然后單擊“是”繼續(xù)安裝，或按“否”退出！',mbConfirmation,MB_YESNO)=idNOthen

begin

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

IsRunning:=0;

endelsebegin

Result:=true;//安裝程序繼續(xù)

IsRunning:=FindWindowByWindowName('東方寬頻網(wǎng)絡(luò)電視');

end;

end;

end;

//卸載時判斷客戶端是否正在運行

functionInitializeUninstall():Boolean;

begin

Result:=true;//安裝程序繼續(xù)

IsRunning:=FindWindowByWindowName('東方寬頻網(wǎng)絡(luò)電視');

whileIsRunning<>0do

begin

ifMsgbox('安裝程序檢測到客戶端正在運行。'#13#13'您必須先關(guān)閉它然后單擊“是”繼續(xù)安裝，或按“否”退出！',mbConfirmation,MB_YESNO)=idNOthen

begin

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

IsRunning:=0;

endelsebegin

Result:=true;//安裝程序繼續(xù)

IsRunning:=FindWindowByWindowName('東方寬頻網(wǎng)絡(luò)電視');

end;

end;

end;

procedureCurUninstallStepChanged(CurUninstallStep:TUninstallStep);

begin

caseCurUninstallStepof

usUninstall:

begin//開始卸載

end;

usPostUninstall:

begin//卸載完成

//MsgBox('CurUninstallStepChanged:'#13#13'Uninstalljustfinished.',mbInformation,MB_OK);

//...insertcodetoperformpost-uninstalltaskshere...

ShellExec('open','','','',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這個是分割文件的大?。?/p>

自動寫入注冊表有些部分是要手動注冊的。以下功能可實現(xiàn)自動注冊！說明一下一般注冊表都是自己手動進入注冊表尋找的不過有些玩家要求這里介紹一個軟件（萬象注冊表分析工具）大家不妨一試

注冊表監(jiān)視器用法：拖動exe安裝程序到軟件界面，安裝結(jié)束后會彈出關(guān)于注冊表變化的信息！大部分提取注冊表適用，但是不排除有些游戲會出錯！

下載地址：

例如需要手動注冊的注冊表內(nèi)容為：

[HKEY_LOCAL_MACHINESoftwareNINELIVESPrincessMaker3CHT1.0]

"InstPath"="C:美少女夢工廠3夢幻妖精簡體中文XP版"

寫入的內(nèi)容應(yīng)為：

[Registry]

Root:HKLM;SubKey:SOFTWARENINELIVES;Flags:uninsdeletekeyifempty

Root:HKLM;SubKey:SOFTWARENINELIVESPrincessMaker3CHT;Flags:uninsdeletekeyifempty

Root:HKLM;SubKey:SOFTWARENINELIVESPrincessMaker3CHT1.0;Flags:uninsdeletekeyifempty

Root:HKLM;SubKey:SOFTWARENINELIVESPrincessMaker3CHT1.0;Flags:uninsdeletekey;ValueType:string;ValueName:InstPath;ValueData:{app}

不好意思各位我忽略了一些東西！本人不用ISTOOL的基本上都是自己寫！通過這個注冊表工具可以提取注冊表或者自己到注冊提取都可以！

然后用ISTOOL導(dǎo)入變成IS能識別的語言！

中級教程

啟動安裝彈出閃屏及音樂，關(guān)于按鈕也寫進去了~原創(chuàng)編寫·不過這插件是由高人提取NISS的插件應(yīng)用到inno中的，使inno比之niss制作更加美觀簡單！來吧！不懂慢慢看！解壓到桌面就可以了寫的時候也是默認(rèn)桌面的~注意解壓的時候解壓名為NSISADDIN加了一點原創(chuàng)標(biāo)志所以解壓后名字不同~注意不然就把下面的命令自己改下一樣的

今天到此為止先。累了~

插件如下：

NSISADDIN.rar(293.86KB,下載次數(shù):89)

[Setup]

AppName=我的程序

AppVerName=我的程序1.5版本

DefaultDirName={pf}我的程序

DefaultGroupName=我的程序

[Files]

;打包實現(xiàn)閃屏和背景音樂所必需的插件文件

Source:"CocumentsandSettingsAdministrator桌面NSISADDINNSISADDINcallnsis.dll";DestDir:"{tmp}";Flags:

dontcopy

Source:"CocumentsandSettingsAdministrator桌面NSISADDINNSISADDINNewAdvSplash.dll";DestDir:"{tmp}";

Flags:dontcopy

Source:"CocumentsandSettingsAdministrator桌面NSISADDINNSISADDINBass.dll";DestDir:"{tmp}";Flags:

dontcopy

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

Source:"CocumentsandSettingsAdministrator桌面NSISADDINNSISADDINsplash.gif";DestDir:"{tmp}";Flags:

dontcopy

Source:"CocumentsandSettingsAdministrator桌面NSISADDINNSISADDINmymusic.mp3";DestDir:"{tmp}";Flags:

dontcopy

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

;請自己加上

;以下是安裝腳本的其它段代碼

;請自己加上

[Code]

Type

HSAMPLE=DWORD;

HCHANNEL=DWORD;

var

MusicSwitchLabel0,MusicSwitchLabel1,MusicSwitchLabel2:TNewStaticText;

sample:HSAMPLE;

channel:HCHANNEL;

//以下是所調(diào)用的插件函數(shù)

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

external'BASS_Init@files:BASS.dllstdcalldelayload';

procedureBASS_Free();

external'BASS_Free@files:BASS.dllstdcalldelayload';

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

external'BASS_SampleLoad@files:BASS.dllstdcalldelayload';

functionBASS_ChannelPlay(handle:DWORD;restart:BOOL):BOOL;

external'BASS_ChannelPlay@files:BASS.dllstdcalldelayload';

functionBASS_ChannelPause(handle:DWORD):BOOL;

external'BASS_ChannelPause@files:BASS.dllstdcalldelayload';

functionBASS_SampleGetChannel(handle:HSAMPLE;onlynew:BOOL):HCHANNEL;

external'BASS_SampleGetChannel@files:BASS.dllstdcalldelayload';

procedurecallplug(parentwnd:Integer;

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

external'callplug@files:callnsis.dllstdcalldelayload';

//以下是點擊“關(guān)于”按鈕后的響應(yīng)函數(shù)

procedureAboutButtonOnClick(Sender:TObject);

begin

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

end;

//以下是點擊“打開音樂”按鈕后的響應(yīng)函數(shù)

procedureMusicSwitchLabel1OnClick(Sender:TObject);

begin

BASS_ChannelPlay(channel,false);

MusicSwitchLabel1.Font.Color:=clGray;

MusicSwitchLabel2.Font.Color:=clBlue;

end;

//以下是點擊“關(guān)閉音樂”按鈕后的響應(yīng)函數(shù)

procedureMusicSwitchLabel2OnClick(Sender:TObject);

begin

BASS_ChannelPause(channel);

MusicSwitchLabel2.Font.Color:=clGray;

MusicSwitchLabel1.Font.Color:=clBlue;

end;

//安裝向?qū)С跏蓟瘮?shù)

procedureInitializeWizard();

var

AboutButton:TButton;

BGMusicFile,SplashFile:string;

begin

//創(chuàng)建“關(guān)于”按鈕

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:='關(guān)于(&A)...';

AboutButton.OnClick:=@AboutButtonOnClick;

AboutButton.Parent:=WizardForm;

//創(chuàng)建文字標(biāo)簽“音樂:”

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;

//創(chuàng)建文字標(biāo)簽作為“打開音樂”按鈕（采用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;

//創(chuàng)建文字標(biāo)簽作為“關(guān)閉音樂”按鈕（采用