Fórum Splash Screen Serviçe???? #337136

unit RegisterSplashScreen; 

interface 

uses 
  ToolsAPI; 

procedure Register; 

implementation 

uses 
  Graphics; 

{$R RegisterSplashScreen.res} 

const 
  BMP = ´BMP_SCREEN´;

procedure InstallSplash;
var
  lBitmap: TBitmap;
begin
  if SplashScreenServices = nil then
     Exit;
  lBitmap := TBitmap.Create;
  try
    lBitmap.LoadFromResourceName(hInstance, BMP_SCREEN);
    SplashScreenServices.AddPluginBitmap(´Elionai - Components Package´,
    lBitmap.Handle, True, ´Version 1.0.0.1´, ´by Elionai´); {True para Fonte Vermelha e False para Fonte Cinza}
  finally
    lBitmap.Free;
  end;
      SplashScreenInitialized := True;
end;

procedure Register; 
begin 
  InstallSplash; 
end; 

end.