{***************************************************************************}
{ TMS IntraWeb Component Pack Pro                                           }
{ for Delphi & C++Builder                                                   }
{                                                                           }
{ written by TMS Software                                                   }
{            copyright © 2002 - 2009                                        }
{            Email : info@tmssoftware.com                                   }
{            Web : http://www.tmssoftware.com                               }
{                                                                           }
{ The source code is given as is. The author is not responsible             }
{ for any possible damage done due to the use of this code.                 }
{ The component can be freely used in any application. The complete         }
{ source code remains property of the author and may not be distributed,    }
{ published, given or sold in any form as such. No parts of the source      }
{ code can be included in any other component or application without        }
{ written authorization of the author.                                      }
{***************************************************************************}
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';
  {$ENDIF}

  {$IFNDEF FREEWARE}
  reg := false;
  regstr := 'Registered';
  {$ENDIF}

  bmp := TBitmap.Create;
  bmp.LoadFromResourceName(HInstance, 'IWTMSSPLASH');
  {$IFDEF VER170} 
  SplashScreenServices.AddPluginBitmap('TMS IntraWeb Component Pack Pro for Delphi 2005 v3.6.0.2',bmp.Handle,reg,regstr,'');
  {$ENDIF}
  {$IFDEF VER180}
    {$IFDEF VER185}
    SplashScreenServices.AddPluginBitmap('TMS IntraWeb Component Pack Pro for Delphi/C++Builder 2007 v3.6.0.2',bmp.Handle,reg,regstr,'');
    {$ENDIF}
    {$IFNDEF VER185}
    SplashScreenServices.AddPluginBitmap('TMS IntraWeb Component Pack Pro for Delphi/C++Builder 2006 v3.6.0.2',bmp.Handle,reg,regstr,'');
    {$ENDIF}
  {$ENDIF}
  {$IFDEF VER200}
  SplashScreenServices.AddPluginBitmap('TMS IntraWeb Component Pack Pro for Delphi/C++Builder 2009 v3.6.0.2',bmp.Handle,reg,regstr,'');
  {$ENDIF}
  bmp.Free;
end;

begin
  AddSplash;
end.
