program myprog;
uses
Messages, Windows, ShellAPI; //может еще че-нить...
type
TNotifyIconData = record
//здеся все как в справке Windows SDK...
end;
var
MYWM:LongInt;
tnid":TNotifyIconData;
begin
//это для обратного сообщения от иконки
MYWM:=RegisterWindowsMessage(pchar('MYWM'
); with tnid do begin
//заполняю все поля, все как в проге с формой - которая
//иконку нормально добавляет
//только место Handle окна, добавляю HInstance;
end;
Shell_NotifyIcon(NIM_ADD, @tnid);
while GetMessage(.........) do begin
тра ля ля....
TranslateMessage(.......);
DispatchMessage(.......);
end;
end;