{********************************************************************}
{                                                                    }
{ written by TMS Software                                            }
{            copyright © 2014                                        }
{            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 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 FMX.TMSSplash;

interface

{$I TMSDEFS.INC}

{$IFDEF WIN32}
uses
  ToolsApi, Windows, Classes;
{$ENDIF}

{$R FMX.TMSSPLASH.RES}

implementation

{$IFDEF WIN32}
procedure AddSplash;
const
  VERNUM = '2.3.0.1';
var
  resh: THandle;
begin
  resh := LoadBitmap(HInstance,'tmssplash');
  {$IFDEF FREEWARE} 
  SplashScreenServices.AddPluginBitmap('TMS Pack for FireMonkey ' + VERNUM, resh, false,'Trial','');
  {$ELSE}
  SplashScreenServices.AddPluginBitmap('TMS Pack for FireMonkey ' + VERNUM, resh, false,'Registered','');
  {$ENDIF}
end;

begin
  AddSplash;
{$ENDIF}

end.
