Unit SysTray

Classes

TSystemTrayIcon -

Functions

Register -

Types

TMouseButtonProc
TMouseMoveProc
TSystemTrayIconHint

Constants

constHINTLENGTH
constINVALIDHANDLE
constNULL
constUNDEFINED
WM_SYSTEMTRAYICON

Variables

InstanceCount


Functions


procedure Register;


Types


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;

Constants

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


Variables

InstanceCount : LongInt = 0