写了个托盘程序，不起作用，大家看看代码是为什么？

tsp_1030 · 发表于 2009-12-24 23:17:22

procedure TForm1.Button1Click(Sender: TObject);
  var sh:Tnotifyicondata;
begin
  sh.Wnd:=handle;
  sh.uID:=100;
  sh.cbSize:=sizeof(TNotifyIconDataA);
  sh.uFlags:=2;
  sh.hIcon:=application.Icon.Handle;
  sh.szTip:='123';
  sh.uCallbackMessage:=0;
  Shell_NotifyIcon($00000000,@sh);
end;

mrduan · 发表于 2010-1-6 09:23:10

楼主曾经用过托盘程序吗？

		自动登录	找回密码
密码			立即注册（注册审核可向QQ群索取）

写了个托盘程序，不起作用，大家看看代码是为什么？

浏览过的版块