最小化时图标没有出现在右下角,大家帮忙看看,谢谢!!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  lpData:PNotifyIconData;
begin
  lpData:=new(PNotifyIconDataA);
  lpData.cbSize:=88;//SizeOf(PNotifyIconDataA)
  lpData.Wnd:=Form1.Handle;
  lpData.uCallbackMessage:=WM_BARICON;
  lpData.uID:=0;
  lpData.szTip:='小闹钟';
  lpData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  Shell_NotifyIcon(NIM_ADD,lpData);
  dispose(lpData);
  Form1.Visible:=False;
end;   运行单击后,程序不见了,但并未在右下角的任务栏中出现小图标.

Answer 1

试试
//lpData.Wnd:=Form1.Handle;
lpData.Wnd:=Handle;