Files
lasarus_compotents/UniqueInstance/registeruniqueinstance.pas
2024-04-02 08:46:59 +03:00

30 lines
417 B
ObjectPascal

unit registeruniqueinstance;
{$Mode ObjFpc}
{$H+}
interface
uses
Classes, SysUtils, LResources, LazarusPackageIntf,uniqueinstance;
procedure Register;
implementation
procedure RegisterUnitUniqueInstance;
begin
RegisterComponents('System',[TUniqueInstance]);
end;
procedure Register;
begin
RegisterUnit('uniqueinstance',@RegisterUnitUniqueInstance);
end;
initialization
{$i uniqueicon.lrs}
end.