鹰之侠不懂编程也能封包软件第一课

鹰之侠

使用inno setup对破解后的软件二次封包，第一课。
给安装包增加背景音乐。制作工具可以下面的地址中下载。
感兴趣的人多就出详细的教程，大牛飞过、、、、、

鹰之侠

; -- Example1.iss --
; Demonstrates copying 3 files and creating an icon.

; SEE THE DOCUMENTATION FOR DETAILS ON CREATING .ISS SCRIPT FILES!

#include "IsSkin.ish"

[Setup]
AppName=ISSkin Example
AppVerName=ISSkin Example v1.0
AppVersion=1.0.0.2
AppCopyright=?1998-2008 Codejock Software
DefaultDirName={pf}\ISSkin
DefaultGroupName=ISSkin
Compression=lzma
SolidCompression=true
WizardImageFile={#ExtendDir}\Graphics\Wizard\Office2007Gray.bmp
WizardSmallImageFile=compiler:WizModernSmallImage-IS.bmp
UninstallDisplayIcon={app}\SkinHelper.exe
OutputDir=userdocs:Inno Setup Examples Output
OutputBaseFilename=SetupOffice2007Black
VersionInfoVersion=1.0.0.2
VersionInfoCompany=Codejock Software
VersionInfoDescription=ISSkin Example Setup
VersionInfoTextVersion=1, 0, 0, 2

[Files]
; Add the Visual Style resource contains resources used for skinning,
; you can also use Microsoft Visual Styles (*.msstyles) resources.
Source: {#ExtendDir}\ISSkin\Styles\Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy
Source: "G:\碟MP3\恋爱百分百.mp3"; DestDir: "{tmp}"; Flags: dontcopy

[Icons]
Name: {group}\Uninstall =ISSkin; Filename: {app}\unins000.exe

; The following code block is used to load the ISS, pass in
; an empty string ('') as the second parameter to LoadSkin to use
; the Blue color scheme, this is the default color scheme for
; Office2007.cjstyles.
[Code]
function InitializeSetup(): Boolean;
begin
  InitSkin('Office2007', 'NormalBlack.ini');
        Result := True;
end;

procedure DeinitializeSetup();
begin
  DeinitSkin
end;


Function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';

procedure InitializeWizard();
var
BGMusicFile, SplashFile: string;
SplashForm: TForm;
SplashFileName: String;
I: Integer;
begin

ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\恋爱百分百.mp3')));
SplashForm := TForm.create(nil);
with SplashForm do
begin
mciSendString(ExpandConstant('play {tmp}\恋爱百分百.mp3'),0,0,0);
Close;
Free;
end;
end;



--------------------------------------------
以上为全部代码直接复制到脚本区，编译即可。

浙江-杺庝

哈哈这个不错顶了

鹰之侠

新人发贴，失误之处敬请谅解，打包好的文件忘传了，需要的可以发邮箱。

涂涂

谢谢分享啊

星期五

谢谢楼主分享哈···

247605832

支持,很帮的样子  

gaozewen

感谢楼主分享！！！