tmssplash.pas

来自「一个非常棒的控件.做商业软件特别适用.里面的控件涉及面非常的广,有兴趣的话可以下」· PAS 代码 · 共 34 行

unit TMSSplash;

interface

uses
  ToolsApi, Windows, Classes, Graphics;

{$R TMSSPLASH.RES}

implementation

procedure AddSplash;
var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromResourceName(HInstance, 'TMSSPLASH');
  {$IFDEF VER170}
  SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2005 v4.0',bmp.Handle,false,'Registered','');
  {$ENDIF}
  {$IFDEF VER180}
  SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2006 v4.0',bmp.Handle,false,'Registered','');
  {$ENDIF}
  {$IFDEF VER190}
  SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2007 v4.0',bmp.Handle,false,'Registered','');
  {$ENDIF}
  bmp.Free;
end;

begin
  AddSplash;

end.