registertrayicons.pas

来自「很好用的 tray icon 控件 delphi 3.0, 4.0, 5.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) 2002                                              }
{                                                                 }
{ 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.