TSystemTrayIcon -
Register -
TMouseButtonProc
TMouseMoveProc
TSystemTrayIconHint
constHINTLENGTH
constINVALIDHANDLE
constNULL
constUNDEFINED
WM_SYSTEMTRAYICON
InstanceCount
procedure Register;
TMouseButtonProc = procedure (Sender: TObject; Button: TMouseButton) of object
Make room for TAsyncSocket
TMouseMoveProc = procedure (Sender: TObject; X, Y: LongInt) of object
TSystemTrayIconHint = Array [0..constHINTLENGTH - 1] of AnsiChar;
constHINTLENGTH = 64
constINVALIDHANDLE = -1
constNULL = 0
*********************************************************************** ** SystemTrayIcon Component ** *********************************************************************** ** This component allows you to place an icon in the system tray. ** ** The code contained in this document is entirely free to use in ** ** both commercial and non-commercial applications. If this ** ** component is utilized in any way, shape, or form, I would ** ** appreciate a notification via email indicating this, as well as ** ** any comments or suggestions you may have. Bug reports are ** ** encouraged. ** ** I can be reached at: ** ** elvis@sway.com ** ** Sincerely, ** ** T. J. Sobotka ** ** June 1997 **
constUNDEFINED = -1
WM_SYSTEMTRAYICON = WM_USER + 1000
InstanceCount : LongInt = 0