trayicon.pas

if you want to program an alert task like ardv

unit Trayicon;
interface
uses

SysUtils, Windows, Messages, Classes, Graphics, Controls, ShellAPI, Forms,
menus;
const WM_TOOLTRAYICON = WM_USER+1;

WM_RESETTOOLTIP = WM_USER+2;
type

TTrayIcon = class(TComponent)
private
// BDS
{ 潆