tmssplash.pas

TMS Component Pack V5.0包含了超过 280 个为 Delphi 以及 C++Builder 设计的 TMS 生产控件

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 v5.0',bmp.Handle,false,'Registered','');
  {$ENDIF}
  {$IFDEF VER180}
    {$IFDEF VER185}
    SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2007  v5.0',bmp.Handle,false,'Registered','');
    {$ENDIF}
    {$IFNDEF VER185}
    SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2006 v5.0',bmp.Handle,false,'Registered','');
    {$ENDIF}
  {$ENDIF}
  {$IFDEF VER200}
    SplashScreenServices.AddPluginBitmap('TMS Component Pack Pro for Delphi 2009 v5.0',bmp.Handle,false,'Registered','');
  {$ENDIF} 
  bmp.Free;
end;

begin
  AddSplash;

end.