tray icon으로 등록한뒤 팝업메뉴 띄워놓고 다른데 클릭하면 없어져야 하는데 안없어짐니다.



어떻게해야 없앨수 있을가요??? 꼭 그 메뉴를 선택해야만 없어지더군요,,, ㅠ,ㅠ,,,





procedure TForm1.Button1Click(Sender: TObject);

var

TrayIcon : TIcon;

begin



TrayIcon := TIcon.Create;

TrayIcon.LoadFromFile ( 'c:아이_3.ico' );



with IconData do

begin

cbSize := SizeOf( IconData );

Wnd := Handle;

uID := 100;

uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;

uCallbackMessage := WM_USER + 1;

hIcon := TrayIcon.Handle;

szTip := '제목,,,';

end;

Form1.Hide;

Shell_NotifyIcon ( NIM_ADD, @IconData );

TrayIcon.Free;

end;



로 해서 등록했습니다,, ㅠ,ㅠ,,,