【我的历史项目】圣诞故事：胡桃夹子中文版的脚本源码

效果图预览：


下载：
pan.baidu.com/s/1zdN6x
密码：wznn

[Code]
{ RedesignWizardFormBegin } // 不要删除这一行代码。
// 不要修改这一段代码，它是自动生成的。
procedure RedesignWizardForm;
begin
with WizardForm.WizardBitmapImage2 do
begin
ExtractTemporaryFile(*WizardForm.WizardBitmapImage2.bmp*);
Bitmap.LoadFromFile(ExpandConstant(*{tmp}\WizardForm.WizardBitmapImage2.bmp*));
end;
{ ReservationBegin }
// 这一部分是提供给你的，你可以在这里输入一些补充代码。
{ ReservationEnd }
end;
// 不要修改这一段代码，它是自动生成的。
{ RedesignWizardFormEnd } // 不要删除这一行代码。
procedure Label1Click(Sender: TObject);
begin
end;
// 定义变量
const MF_BYPOSITION=$400;
Type
HSAMPLE = DWORD;
HCHANNEL = DWORD;
var
MusicSwitchLabel0, MusicSwitchLabel1, MusicSwitchLabel2: TNewStaticText;
sample: HSAMPLE;
channel: HCHANNEL;
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
// 以下是所调用的插件函数
function DeleteMenu(HMENU: HWND; uPosition: UINT; uFlags: UINT): BOOL;
external *DeleteMenu＠user32.dll stdcall*;
function GetSystemMenu(HWND: hWnd; bRevert: BOOL): HWND;
external *GetSystemMenu＠user32.dll stdcall*;
function enabledesc(ComponentsListHandle: HWND; DescLabelHandle: HWND; DescStrings: PChar): BOOL; external *enabledesc＠files:descctrl.dll stdcall*;
//ComponentsListHandle 组件框句柄
//DescLabelHandle 描述TNewStaticText句柄
//DescStrings 描述文字 英文分号分割“;”，如果描述中必须要有英文分号，请用“#3B”代替。
function disabledesc(): BOOL; external *disabledesc＠files:descctrl.dll stdcall*;
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**#13#10*本程序使用防解包修改版的Inno Setup 5.5.2.0构建*#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
RedesignWizardForm;
// 创建“关于”按钮
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(*music.mp3*);
ExtractTemporaryFile(*splash.bmp*);
BGMusicFile := ExpandConstant(*{tmp}\music.mp3*);
SplashFile := ExpandConstant(*{tmp}\splash.bmp*);
// 播放背景音乐
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,**,**,**,**,**);
DeleteMenu(GetSystemMenu(wizardform.handle,false),8,MF_BYPOSITION);
DeleteMenu(GetSystemMenu(wizardform.handle,false),7,MF_BYPOSITION);
// 调整组件列表的大小
WizardForm.TYPESCOMBO.Visible:= false;
WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Width := ScaleX(200);
//创建一个虚拟的GroupBox，因为Inno Setup 没有啊。
InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := **;
InfoPanel.Top := WizardForm.ComponentsList.Top;
InfoPanel.Left := ScaleX(216);
InfoPanel.Width := ScaleX(200);
InfoPanel.Height := WizardForm.ComponentsList.Height;
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := *描述*;
InfoCaption.Left := ScaleX(224);
InfoCaption.Top := InfoPanel.Top - ScaleY(5);
InfoCaption.Font.Color := clActiveCaption;
// 创建描述文字
Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(188);
Info.Top := ScaleY(12);
Info.Height := WizardForm.ComponentsList.Height - ScaleY(18);
Info.Caption := *移动你的鼠标指针到组件之上，便可见到它的描述。*;
Info.WordWrap := true;
//激活描述控制
enabledesc(WizardForm.ComponentsList.Handle,Info.Handle,
*游戏主文件，不准去除！！;*+
*游戏的附加内容，有壁纸、音乐、屏保，总之是好东西！;*+
*游戏的精美壁纸;*+
*游戏的屏保;*+
*游戏的原声音乐;*
);
end;

//这里是启用皮肤的脚本
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external [url]http://*LoadSkin＠files:isskin.dll[/url] stdcall*;
procedure UnloadSkin();
external [url]http://*UnloadSkin＠files:isskin.dll[/url] stdcall*;
function ShowWindow(hWnd: Integer; uType: Integer): Integer;
external [url]http://*ShowWindow＠user32.dll[/url] stdcall*;
function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile(*Royale.cjstyles*);
LoadSkin(ExpandConstant(*{tmp}\Royale.cjstyles*), **);
Result := True;
end;
procedure DeinitializeSetup();
begin
// Hide Window before unloading skin so user does not get
// a glimse of an unskinned window before it is closed.
ShowWindow(StrToInt(ExpandConstant(*{wizardhwnd}*)), 0);
UnloadSkin();
//释放描述控制
disabledesc();
end;
[ISFormDesigner]
WizardForm=FF0A005457495A415244464F524D0030106101000054504630F10B5457697A617264466F726D0A57697A617264466F726D0C436C69656E74486569676874034C010B436C69656E74576964746803F1010D4578706C69636974576964746803F9010E4578706C69636974486569676874036E010D506978656C73506572496E636802600A54657874486569676874020C00F10C544E65774E6F7465626F6F6B0D4F757465724E6F7465626F6F6B00F110544E65774E6F7465626F6F6B5061676509496E6E65725061676500F1065450616E656C094D61696E50616E656C00F10C544269746D6170496D6167651657697A617264536D616C6C4269746D6170496D6167650A4269746D617046696C650607746F702E626D7000000000F110544E65774E6F7465626F6F6B506167650C46696E69736865645061676500F10C544269746D6170496D6167651257697A6172644269746D6170496D616765320A4269746D617046696C6506086C6566742E626D700000000000

Ｐ．Ｓ．：请将全角文字＠替换为@

脚本源代码和所需素材：
pan.baidu.com/s/1c0vkG8K
密码：pv3s

能再分享一遍吗？失效了