inno脚本实例、安装包和插件.rar

纯inno脚本实现的闪屏，调用Win32 API实现，无需额外DLL，可以作为存为iss文件include来使用。 不过有一定局限性，只能使用bmp文件。 CODE //调用方法： //ShowSplash(bmp文件名, 宽,高, 淡入/淡出毫秒时间, 图片静止毫秒时间); function SetLayeredWindowAttributes(hWnd: HWND; ColorRef: TColor; bAlpha: byte; dwFlags: LongInt): boolean; external 'SetLayeredWindowAttributes@user32 stdcall'; function SetWindowLong(hWnd : HWND; nIndex : integer; dwNewLong : Longint): Longint; external 'SetWindowLongA@user32 stdcall'; function GetWindowLong(hWnd : HWND; nIndex : integer): LongInt; external 'GetWindowLongA@user32 stdcall'; const WS_EX_LAYERED = $80000; GWL_EXSTYLE = -20; LWA_COLORKEY = 1; LWA_ALPHA = 2; FadeStep = 10; procedure SetTransparentForm(AHandle : THandle; AValue : byte); begin SetWindowLong(AHandle, GWL_EXSTYLE, GetWindowLong(AHandle, GWL_EXSTYLE) or WS_EX_LAYERED); SetLayeredWindowAttributes(AHandle, 0, AValue, LWA_ALPHA); end; procedure ShowSplash(splashFileName: String; Width, Height, fadetime, stilltime: LongInt); var SplashForm: TForm; SplashImage: TBitmapImage; i, SleepSetp: LongInt; begin SplashForm := TForm.create(nil); with SplashForm do begin Parent := nil; BorderStyle := bsNone; Position := poScreenCenter; ClientWidth := Width; ClientHeight := Height; end; SplashImage := TBitmapImage.Create(SplashForm); with SplashImage do begin BitMap.LoadFromFile(SplashFileName); Stretch := true; Align := alClient; Parent := SplashForm; end; with SplashForm do begin SetTransparentForm(SplashForm.handle, 0); show; Repaint; SleepSetp := fadetime * FadeStep / 255; for i := 1 to 255/FadeStep do begin SetTransparentForm(SplashForm.handle, i * FadeStep); Sleep(SleepSetp); end; sleep(stilltime); for i := 255/FadeStep downto 1 do begin SetTransparentForm(SplashForm.handle, i * FadeStep); Sleep(SleepSetp); end; close; release; end; end; 使用实例： CODE procedure InitializeWizard(); begin ExtractTemporaryFile('MySplash.bmp'); ShowSplash(ExpandConstant('{tmp}\MySplash.bmp'), 240,200, 1000,3000); end;