ulbsplash.pas

来自「Extension for LockBox for Delphi 7. This」· PAS 代码 · 共 23 行

unit uLbSplash;

interface

implementation

uses
  Windows,
  ToolsAPI;

{$I ..\source\LockBox.inc}

{$IFDEF VERSION2005orHigher}

{$R LbBitmap.res}
begin
  {$MESSAGE ' === Adding component name in Delphi splash screen === '}
  if BorlandIDEServices <> nil then
    SplashScreenServices.AddPluginBitmap('TurboPower LockBox 2.07',
            LoadBitmap(Hinstance, 'TPLOCKBOX'), False, 'Open Source', '');
{$ENDIF}
end.