delphi任务栏托盘写法
2008-01-18 11:47
375 查看
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
ShowWindow(Application.Handle, SW_RESTORE);
ShowWindow(Application.Handle, SW_HIDE);
procedure TfrmMain.SetNotifyIcon(bShow: boolean);
var
NotifyIcon: TNotifyIconData;
begin
NotifyIcon.cbSize := sizeof(NotifyIcon);
NotifyIcon.Wnd := self.Handle;
NotifyIcon.uCallbackMessage := Message_NotifyIcon;
NotifyIcon.uID := 0;
NotifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
NotifyIcon.hIcon := Application.Icon.Handle;
NotifyIcon.szTip := 'My Tools';
if bShow then
Shell_NotifyIcon(NIM_ADD, @NotifyIcon)
else
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon);
end;
ShowWindow(Application.Handle, SW_RESTORE);
ShowWindow(Application.Handle, SW_HIDE);
procedure TfrmMain.SetNotifyIcon(bShow: boolean);
var
NotifyIcon: TNotifyIconData;
begin
NotifyIcon.cbSize := sizeof(NotifyIcon);
NotifyIcon.Wnd := self.Handle;
NotifyIcon.uCallbackMessage := Message_NotifyIcon;
NotifyIcon.uID := 0;
NotifyIcon.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
NotifyIcon.hIcon := Application.Icon.Handle;
NotifyIcon.szTip := 'My Tools';
if bShow then
Shell_NotifyIcon(NIM_ADD, @NotifyIcon)
else
Shell_NotifyIcon(NIM_DELETE, @NotifyIcon);
end;
相关文章推荐
- delphi程序最小化任务栏控件 托盘
- Delphi 最小化程序到任务栏托盘 增加右键PopMenu
- delphi 枚举托盘图标
- 如何设置delphi程序托盘图标
- Delphi 托盘程序示例
- Delphi 类似实现QQ多窗口显示任务栏上
- Qt任务栏,托盘栏,托盘菜单,图标等操作
- Delphi清除右下角的托盘上无用的托盘图标(刷新托盘)
- 修改 QQ 任务栏托盘区小图标和等级图标
- Delphi编程制作托盘图标步骤讲解
- Delphi 在任务栏隐藏程序图标
- Delphi 7下最小化到系统托盘
- 关于对话框最小化到托盘后,点击托盘图标后只在任务栏显示而无法还原窗口的解决方法。
- Delphi刷新托盘,去掉非正常退出的程序的托盘图标
- 如何在任务栏添加托盘图标
- DELPHI 托盘 实例
- DELPHI 托盘 实例
- Delphi数据库开发之SQL写法的技巧1
- delphi(api)系统托盘
- Delphi 实现任务栏多窗口图标显示