iwtmssplash.pas

来自「TMS IntraWEb增强控件TMSIntraWeb_v2.3.2.1_D20」· PAS 代码 · 共 38 行

unit IWTMSSplash;

{$I TMSDEFS.INC}

interface

uses
  ToolsApi, Windows, Classes, Graphics;

{$R IWTMSSPLASH.RES}

implementation

procedure AddSplash;
var
  bmp: TBitmap;
  reg: boolean;
  regstr: string;
begin
  {$IFDEF FREEWARE}
  reg := true;
  regstr := 'Trial version';
  {$ELSE}
  reg := false;
  regstr := 'Registered';
  {$ENDIF}

  
  bmp := TBitmap.Create;
  bmp.LoadFromResourceName(HInstance, 'IWTMSSPLASH');
  SplashScreenServices.AddPluginBitmap('TMS IntraWeb Component Pack Pro for Delphi 2005 v2.3',bmp.Handle,reg,regstr,'');
  bmp.Free;
end;

begin
  AddSplash;
end.