| inno setup 脚本实例 |
| 作者：鸿飞 来源：本站整理 发布时间：2008-6-4 20:30:01 |
|
|
 减小字体
 增大字体
|
| |
|
[Code]
procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec('open', ' http://bbs.exetool.com ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end; (链接网址)
function mciSendString(lpszCommand: String; lpszReturnString: Integer; cchReturnLength: Integer; hwndCallback: Integer): Integer;
external 'mciSendStringA@winmm.dll stdcall';
procedure InitializeWizard();
var
SplashImage: TBitmapImage;
SplashForm: TForm;
SplashFileName: String;
I : Integer;
URLLabel: TNewStaticText;
CancelButton: TButton;
begin
WizardForm.WELCOMELABEL1.Font.Color:= clRed;
WizardForm.WELCOMELABEL1.Font.Name:= '宋体';
WizardForm.WELCOMELABEL1.Font.Size:= 11;
CancelButton := WizardForm.CancelButton;
ExtractTemporaryFile(ExtractFileName(ExpandConstant('{tmp}\dream.mid')));
mciSendString(ExpandConstant('play {tmp}\dream.mid'),0,0,0);
(背景音乐)
URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := CancelButton.Top;
URLLabel.Left := WizardForm.Width - CancelButton.Left - CancelButton.Width;
URLLabel.Caption := ' 软件本地化团队'; (左下角的链接文字)
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
SplashFileName := ExpandConstant('{tmp}\RAR_Splash.bmp');
ExtractTemporaryFile(ExtractFileName(SplashFileName));
SplashForm := TForm.create(nil);
with SplashForm do
begin
BorderStyle := bsNone;
Position := poScreenCenter;
ClientWidth := 354; (闪屏宽)
ClientHeight := 180; (闪屏宽)
end;
SplashImage := TBitmapImage.Create(SplashForm);
with SplashImage do
begin
Bitmap.LoadFromFile(SplashFileName);
Stretch := true;
Align := alClient;
Parent := SplashForm;
end;
with SplashForm do
begin
Show;
for I := 1 to 2 do
begin
Repaint;
Sleep(1000);
end;
Close;
Free;
end;
end; |
|
推荐：本站站长(鸿飞)原创软件免费赠送
温馨提示：如果发现资源地址无效时，请在下面的评论上留言，我会及时处理！谢谢！
|
|
[]
[返回上一页]
[打 印]
|
|
|
您当前的位置：