registertrayicons.pas

来自「delphi换肤控件2.0破解版,虽然版本不高但相当好用的。」· PAS 代码 · 共 31 行

{*****************************************************************}
{ The CoolTrayIcon and TextTrayIcon components are freeware.      }
{                                                                 }
{ Feel free to use and improve them. I would be pleased to hear   }
{ what you think.                                                 }
{                                                                 }
{ Troels Jakobsen - [e-mail]                     }
{ Copyright (c) 2006                                              }
{                                                                 }
{ This unit by Jouni Airaksinen - [e-mail]            }
{*****************************************************************}

unit RegisterTrayIcons;

interface

procedure Register;

implementation

uses
  Classes, CoolTrayIcon, TextTrayIcon;

procedure Register;
begin
  RegisterComponents('Tray Icons', [TCoolTrayIcon, TTextTrayIcon]);
end;

end.