|
关于INNO SETUP脚本的问题,请大家帮忙~~~谢谢了....^_^
关于Inno setup的使用问题.
1.我用Inno做了一个安装包,可是安装出来的是在一个文件夹,没有保持原来的文件夹结构(有图片说明)。
2.安装的时候自定义安装组件选择问题(有图片说明)。
3.用INNO做的安装包,怎么加启动图片,还是有淡入淡出的那种!
4.用INNO做安装包,可以加声音吗?
5.在开始安装的时候右下边怎样加文字(有图片说明)。
请大家帮忙看看,谢谢您了....
这是我在网上找的脚本然后自己修改成这样了:
[Setup]
AppName=工具包
AppVerName=工具包 1.6.0
AppPublisherURL=http://wise.ioov.net/bbs
AppSupportURL=http://wise.ioov.net/bbs
AppUpdatesURL=http://wise.ioov.net/bbs
DefaultDirName={pf}\工具包
DefaultGroupName=工具包
AllowNoIcons=yes
Compression=lzma
SolidCompression=yes
AppCopyright=版权所有 2004
AppVersion=2.3
AppId=工具包
VersionInfoCompany=风风阳阳
VersionInfoVersion=1.6.0
UsePreviousAppDir=yes
UsePreviousGroup=yes
UsePreviousSetupType=yes
UsePreviousTasks=yes
UninstallLogMode=overwrite
Uninstallable=yes
OutputDir=C:\Documents and Settings\Administrator\桌面
OutputBaseFilename=工具包
SetupIconFile=C:\Documents and Settings\Administrator\桌面\PL图标\manzana.ico
[Messages]
BeveledLabel=电脑爱好都,只知道天天玩!!!!
[Types]
Name: "full"; Description: "完全安装"; Flags: iscustom
Name: "custom"; Description: "自定义安装"
[Components]
Name: "main"; Description: "图像工具"; Types: full custom;
Name: "plugins"; Description: "系统工具"; Types: full custom
Name: "plugin1s"; Description: "封包工具"; Types: full custom
[Files]
Source: "D:\001\DON347\*"; DestDir: "{app}"; Components: main; Flags: ignoreversion
Source: "D:\001\DON400\*"; DestDir: "{app}"; Components: plugins; Flags: ignoreversion
Source: "D:\001\EOOT\*"; DestDir: "{app}"; Components: plugin1s; Flags: ignoreversion
[Code]
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox('这个家伙是无聊发神经,玩玩嘿嘿。', mbInformation, mb_Ok);
end;
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', 'http://tfy.ys168.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;
procedure InitializeWizard();
var
AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText;
BackgroundBitmapImage: TBitmapImage;
BackgroundBitmapText: TNewStaticText;
begin
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 := '关于这个家伙';
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Caption := '无聊发神经';
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
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;
[ 本帖最后由 tiyileo 于 2006-12-14 22:07 编辑 ]
[ 本帖最后由 tiyileo 于 2006-12-14 22:08 编辑 ] |
|
收藏
