program TrayPro;



uses

ShellAPi,

windows,

Messages,

Forms;



{$R *.RES}



var iconData : TNotifyIconData;

begin

with IconData do

begin

cbSize := SizeOf ( IconData );

Wnd := Application.Handle;

uID := 100;

uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;

uCallbackMessage := WM_USER;

hIcon := Application.Icon.Handle;

end;

Shell_NotifyIcon( NIM_ADD , @IconData );



end.



담과 같이 했거든여..

근데.. 아이콘이 생기는데..마우스를 갔다대면..없어져 버려요..

어떻게 하죠?



글구 여기서..프로그램 죽을때 아이콘을 없애주어야할텐데..

그거..처리하구..

그거 처리할려면..메세지를 받아서 처리해줘야겠는데요..

폼이 없어서..



웅..모르겠다..

좀 도와주세요..



글구..마우스 오른쪽 버튼 누를때 메뉴뜨는 것두 요..

폼이 없으니 메뉴두 어떻게 할수 두 없궁..



부탁함다.