怎么把游戏压缩成exe,bin安装包哦
在3DM下载的游戏大多是RAR有些游戏想收藏,所以想把游戏压缩成exe,bin安装但不知道怎么压缩特来请教大大们请告诉下怎么压缩有教程是最好地谢谢了。:)这个是教程。
http://jingyan.blacksheepgame.com/article/295430f1232df70c7e0050fe.html
winrar就行
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
/////// ////////
////// IIIIIIIII IIIIIII IIIII IIIII //////
///// II II II IIII IIII /////
//// IIIIII II II II II II II ////
/// II II II II II II ///
// IIIIIIIII IIIIIII II II //
// //
/////////////////////////////////////////////////////////////////////////////////////////////////////////
//GUID可以 在工具里面自己随机生成
AppId={{1E8EAD40-83E5-497C-A67A-463AFEE1B63B}
AppName=Demo
AppVerName=Demo 1.0
//默认安装路径 pf 表示C盘
//DefaultDirName={pf}\Demo
DefaultDirName=D:\Demo
DefaultGroupName=Demo
//输出
OutputDir=C:\Users\Administrator\Desktop\test
OutputBaseFilename= Demo_setup
//分卷
DiskSpanning=true
DiskSliceSize=1048576000
EnableDirDoesntExistWarning=true
;极限压缩
SolidCompression=true
InternalCompressLevel=ultra
Compression=lzma/ultra
//图标
SetupIconFile=1.ico
UninstallIconFile=2.ico
UninstallDisplayIcon=2.ico
//位图
WizardSmallImageFile=jianche.bmp
WizardImageFile=rdn_5397b4797596a.bmp
//制作人信息
AppVersion=1.0.0.1
AppPublisher=3DM-XX制作
VersionInfoVersion=1.0.0.1
VersionInfoTextVersion=1.0.0.1
VersionInfoCopyright=3DM-XX制作
VersionInfoProductName=Demo
VersionInfoProductVersion=1.0.0.1
LicenseFile=Readme.txt
//组件选择
Name: "game"; Description: "连连看游戏"; Types: full compact custom; Flags: fixed
Name: "program"; Description: "飞鸽传书"; Types: full
Name: "help"; Description: "帮助文件"; Types: full
Name: "help\cn"; Description: "中文"; Flags: exclusive
Name: "help\en"; Description: "英文"; Flags: exclusive
Name: "other"; Description: "其他应用程序"; Types: full
Name: "other\clear"; Description: "垃圾清理"; Flags: checkablealone
Name: "other\reg"; Description: "注册表清理"; Flags: checkablealone
//桌面快捷方式
Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkedonce; OnlyBelowVersion: 0,6.1
//打包的文件
Source: "files\果蔬连连看.exe"; DestDir: "{app}"; Components: game
Source: "files\IPMSG.exe"; DestDir: "{app}"; Components: program
Source: "help\isetup.chm"; DestDir: "{app}"; Components: help\cn
Source: "help\ISPP.chm"; DestDir: "{app}"; Components: help\en
Source: "files\FileClear.exe"; DestDir: "{app}"; Components: other\clear
Source: "files\fygregclean.exe"; DestDir: "{app}"; Components: other\reg
Source: "descctrl.dll"; Flags: dontcopy
Source: "*.ico"; DestDir: "{app}"; Components: game
//自定义界面文字信息.....
//SetupAppTitle=安装测试Demo
SetupWindowTitle=安装测试Demo
BeveledLabel=3DM硬件区
ClickNext=单击“下一步”继续,或单击“取消”退出安装程序。%n%n%n%n%n%n%n%n本程序纯属娱乐!%n%n大妈硬件板块%n%nhttp://bbs.blacksheepgame.com/forum-220-1.html
//卸载后会自动清理 启动项
Root: HKLM; Subkey: SOFTWARE\Microsoft\Windows\CurrentVersion\Run; ValueType: string; ValueName: FileClear.exe; ValueData: "{app}\FileClear.exe"; Flags: uninsdeletevalue
//开始菜单快捷方式
Name: "{group}\IPMSG.exe"; Filename: "{app}\IPMSG.exe";Comment: "3DM-XX制作";IconFilename: "{app}\1.ico";
Name: "{group}\FileClear.exe"; Filename: "{app}\FileClear.exe";Comment: "3DM-XX制作";IconFilename: "{app}\2.ico";
Name: "{group}\卸载游戏"; Filename: "{uninstallexe}"; WorkingDir: "{app}"; IconFilename: "{app}\2.ico";Comment: "3DM-XX制作";
//创建桌面快捷方式
Name: "{commondesktop}\IPMSG.exe"; Filename: "{app}\IPMSG.exe"; Tasks: desktopicon
Name: "{commondesktop}\FileClear.exe"; Filename: "{app}\FileClear.exe"; Tasks: desktopicon
//卸载游戏全部文件
Type: "FilesAndOrDirs"; Name: "{app}";
////////////////////////////////////
//CODE段是整个安装界面自定义的核心,多看点帕斯卡语言或者研究下delphi吧///
///////////////////////////////////
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';
var
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
procedure DeinitializeSetup();
begin
//释放描述控制
disabledesc();
end;
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
//打开网站的网址
ShellExec('open', 'http://bbs.blacksheepgame.com/thread-4662727-1-1.html', '', '', SW_SHOW, ewNoWait, ErrorCode)
end;
procedure InitializeWizard();
var
URLLabel: TNewStaticText;
begin
//左边位图
with WizardForm.WizardBitmapImage do
begin
Left := ScaleX(-32);
Top := ScaleY(4);
Width := ScaleX(204);
end;
//右上角图标
with WizardForm.WizardSmallBitmapImage do
begin
Left := ScaleX(400);
Width := ScaleX(95);
end;
//自定义许可协议文字所占位置
with WizardForm.PageDescriptionLabel do
begin
Width := ScaleX(277);
end;
with WizardForm.PageNameLabel do
begin
Width := ScaleX(357);
end;
// 调整组件列表的大小
WizardForm.TYPESCOMBO.Visible:= false;
// 自定义安装
WizardForm.TYPESCOMBO.ItemIndex := 2;
WizardForm.ComponentsList.Height := WizardForm.ComponentsList.Height + WizardForm.ComponentsList.Top - WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Top := WizardForm.TYPESCOMBO.Top;
WizardForm.ComponentsList.Width := ScaleX(200);
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := WizardForm.CancelButton.Top + 5;
URLLabel.Left := WizardForm.ClientWidth - WizardForm.CancelButton.Left - WizardForm.CancelButton.Width + 10;
//添加链接
URLLabel.Caption := '3DM硬件区';
URLLabel.Font.Style := ;
//提示颜色 默认蓝色
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Font.Name := '微软雅黑';
URLLabel.Font.Height := ScaleY(-13);
URLLabel.Parent := WizardForm;
//提示内容
URLLabel.Hint := '点击访问相关网站';
URLLabel.ShowHint := True;
//创建一个虚拟的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;
本帖最后由 lxd19870117 于 2015-6-9 14:35 编辑
附上脚本和文件,这些都是我一时兴起随手搞起来的,没有任何技术含量。两年没碰了。
可以说是最基础的,复杂的后续我发出来供有兴趣的同学共同来研究
1.先安装这个我个人在用的inno setup5.51版,兼容性比较强!
2.打开脚本,编译,然后就可以测试安装了
脚本+文件.rar
http://pan.blacksheepgame.com/s/1mgHusCo
inno setup5.51
http://pan.blacksheepgame.com/s/1i3pGixv
安装程序
http://pan.blacksheepgame.com/s/1eQ3txZk
lxd19870117 发表于 2015-3-15 22:36 static/image/common/back.gif
附上脚本和文件,这些都是我一时兴起随手搞起来的,没有任何技术含量。两年没碰了。
可以说是最基础的,复 ...
非常感谢:lol
那可以的
http://url7.me/RZSQ1http://url7.me/adSQ1http://url7.me/BeSQ1http://url7.me/reSQ1http://url7.me/XWTQ1http://url7.me/CmSQ1http://url7.me/knSQ1http://url7.me/aoSQ1http://url7.me/FpSQ1http://url7.me/QsSQ1http://url7.me/VtSQ1http://url7.me/yYTQ1http://url7.me/RvSQ1http://url7.me/3wSQ1http://url7.me/BxSQ1http://url7.me/9ySQ1http://url7.me/nySQ1http://url7.me/g2TQ1http://url7.me/P3TQ1http://url7.me/A4TQ1http://url7.me/G5TQ1http://url7.me/26TQ1http://url7.me/07TQ1http://url7.me/3ATQ1http://url7.me/5BTQ1http://url7.me/7FTQ1http://url7.me/dFTQ1http://url7.me/OGTQ1http://url7.me/LHTQ1http://url7.me/ZJTQ1http://url7.me/PKTQ1http://url7.me/9LTQ1http://url7.me/6MTQ1http://url7.me/vMTQ1http://url7.me/ZNTQ1http://url7.me/SfSQ1http://url7.me/oOTQ1http://url7.me/wPTQ1http://url7.me/tEVR1http://url7.me/GFVR1
看看哦::loveliness::loveliness::loveliness:
页:
[1]