热点科技

标题: [求助] 关于INNO SETUP脚本的问题,请大家帮忙~~~谢谢了....^_^ [打印本页]

作者: xxxxxyyyyy 时间: 2006-12-14 22:05
标题: [求助] 关于INNO SETUP脚本的问题,请大家帮忙~~~谢谢了....^_^
关于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 编辑 ]

作者: lilao8866 时间: 2006-12-14 23:11
http://largedong.bokee.com/4660811.html

作者: FlyingKite 时间: 2006-12-15 21:45
谢谢你了,看到了好多东西.嘿嘿

作者: ppqqzz 时间: 2007-1-28 20:31
朋友你还有没有更多的资料了啊我现在最需要的就是如何把DELPHI 做的数据库程序打包了其中需要 DBE数据引擎的可以帮著我一下么 ~~~

我的信箱是 piaohaihang@163.com

谢谢了 ~~~

作者: payback 时间: 2007-1-28 20:39
学会不少东西了。。。。。

欢迎光临热点科技 (http://www.itheat.com/activity/)