IconData.Wnd:=Handle;安装托盘图标时老出错？请大峡指点!

Question

procedure TMainForm.InstallIcon;
var IconData:TNotifyIconData;
begin
  NormalIcon:=TIcon.Create;
  NormalIcon:=Self.Icon;
  IconData.cbSize:=SizeOf(IconData);
  IconData.Wnd:=Handle;<---------老出错
  IconData.uID:=Icon_ID;
  IconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
  IconData.uCallBackMessage:=MI_ICONEVENT;
  IconData.hIcon:=NormalIcon.Handle;
  IconData.szTip:=';
  Shell_NotifyIcon(NIM_ADD,@IconData);
end;

Answer 1

可能是这儿出错：TNotifyIconData
    IconData.cbSize := SizeOf(TNotifyIconData);