如何使运行着的程序隐藏到右下角的工具栏?(100分)

  • 主题发起人 主题发起人 shannon
  • 开始时间 开始时间
S

shannon

Unregistered / Unconfirmed
GUEST, unregistred user!
请问使运行着的程序隐藏到右下角的工具栏是如何实现的呢?
是否需用哪个Windows SDK函数呢?[8D]
 
//安装图标
procedure TForm1.InstallIcon;
begin
IconData.cbSize:=SizeOf(IconData);
IconData.Wnd:=Handle;
IconData.uID:=ICON_ID;
IconData.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
IconData.uCallBackMessage:=ICONEVENT;
IconData.hIcon:=Form1.Icon.Handle;;
IconData.szTip:='提示信息';
Shell_NotifyIcon(NIM_ADD, @IconData );
end;


//卸载图标
procedure TForm1.UnInstallIcon;
begin
Shell_NotifyIcon(NIM_DELETE, @IconData );
end;
 
i can mail you a compnent
 
谢谢两位!
to lps 我的mail: wxj307@sina.com
谢谢
 
后退
顶部