关于SetWindowLongA

一个鼠标件控程序，最小化为托盘
Procedure TForm1.Button4Click(Sender: TObject);
Begin
MyTrayIcon.cbSize := SizeOf(TNotifyIconData);
MyTrayIcon.Wnd := Handle;
MyTrayIcon.uId := 1;
MyTrayIcon.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
MyTrayIcon.uCallbackMessage := WM_MYTRAYICONCALLBACK;
//MyTrayIcon.hIcon := LoadIcon(0,IDI_WINLOGO);
MyTrayIcon.hIcon := Application.Icon.Handle;
MyTrayIcon.szTip := '鼠标监控程序';
//向托盘添加图标
Shell_NotifyIcon(NIM_ADD,@MyTrayIcon);

form1.visible := false;
setwindowlong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
End;