我想让我的程序图标放在系统托盘区,怎么实现?比较菜!请给出代码,而且图标能响应鼠标左健显示一窗口,右兼弹出菜单可以退出,否则不给分!
解决方案 »
- 求助:<delphi 5开发人员指南>
- delphi dbexpress 连接mysql数据库的问题
- 单物料进仓ADOStoredProc1:commandtext does not return a result set
- delphi做rs232 activex的接收数据如何送出来?
- 库存查询
- Dephi新手 问题
- CCTV-1的22点晚间新闻报道YY群浅太发了PP,200求~
- 请问怎么读取注册表中的双字节值(Dword)?
- 请教(有点急):listview的checkboxes属性设为true,我想让listview符合条件的行不可选中,应该如何设置?
- 小问题:如何控制DBGrig上显示字段的长度?
- id控件发不了信了,它的例程也发不了?
- 出现必须加载Dll的错误怎么办??????????????
你 也可以 搜索 一下以前的帖子 有类似的问题
自己动手丰衣足实
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
ShellAPI, StdCtrls; {自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
{自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
const MY_MESSAGE = WM_USER + 100; type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormPaint(Sender: TObject);
private
procedure OnIconNotify(var Message: TMessage);
message MY_MESSAGE;
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM}
{当小图标捕捉到鼠标事件时进入此过程}
{当小图标捕捉到鼠标事件时进入此过程}
procedure TForm1.OnIconNotify(var Message: TMessage);
const
Busy: Boolean = false;
begin
if not Busy then begin
Busy := true;
if Message.LParam=WM_LBUTTONDOWN then
if Application.MessageBox('Are you sure',
'Exit', MB_YESNO)=IDYES then Close;
Busy := false;
end;
end; {当主Form建立时通知Windows加入小图标}
procedure TForm1.FormCreate(Sender: TObject);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.Wnd := Handle; // 主窗口句柄
nid.uID := -1; // 内部标识,可设为任意数
nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?
nid.hIcon := Application.Icon.Handle; // 要加入的图标句柄,可任意指?nid.szTip := 'This is a test application'; // 提示字符串
nid.uCallbackMessage := MY_MESSAGE; // 回调函数消息
nid.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; // 指明哪些字段有?if not Shell_NotifyIcon(NIM_ADD, @nid) then begin
ShowMessage('Failed!');
Application.Terminate;
end;
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end; {程序被关闭时通知Windows去掉小图标}
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
nid: TNotifyIconData;
begin
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.cbSize := sizeof(nid); // nid变量的字节数
nid.uID := -1; //内部标识,与加入小图标时的数一致
nid.Wnd := Handle; //主窗口句柄
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标
Shell_NotifyIcon(NIM_DELETE, @nid); //去掉小图标
end; {主窗口初始化完毕并显示时将激活Paint重画事件,此时将主窗口隐藏}
procedure TForm1.FormPaint(Sender: TObject);
begin
Hide;
end; end.
unit unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Forms, //Dialogs,
StdCtrls, Menus, Controls, ShellApi; //加上ShellApiconst
{自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
MYTRAY_MESSAGE = WM_USER + 100; //托盘图标返回消息type
TMainForm = class(TForm) TrayPopMenu: TPopupMenu;
pop1: TMenuItem;
pop2: TMenuItem;
N3: TMenuItem;
popExit: TMenuItem;
//窗口事件
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
//弹出菜单事件
procedure popExitClick(Sender: TObject); private
{ Private declarations }
TrayIconData : TNotifyIconData; //定义托盘图标结构
//托盘消息处理事件
procedure MyTrayMessage(var message:TMessage);message MyTRAY_MESSAGE;
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.DFM}
// 窗口事件
//----------------------------------------------------------------
procedure TMainForm.FormCreate(Sender: TObject);
{var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
}
begin
//建立托盘图标
TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
TrayIconData.Wnd := Handle; //主窗口句柄
TrayIconData.uID := 1; //内部标识,可设为任意数
TrayIconData.hIcon := Icon.Handle;
//要加入的图标句柄,可任意指定,此处为在Tform中Icon属性中指定的图标
//TrayIconData.hIcon := Application.Icon.Handle;
//此句使用了程序的图标,和上句程序有区别,下句亦可,但推荐使用上句,这样图标加
//入到托盘中时图标不会走样。
//TrayIconData.hIcon := LoadIcon(0,IDI_APPLICATION);
TrayIconData.szTip := '系统托盘示例程序'; // 图标的提示信息,即黄色的Hint
TrayIconData.uCallbackMessage := CDROMTRAY_MESSAGE; //回调函数消息
TrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; //指明哪些字段有效
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//向托盘中添加图标
Shell_NotifyIcon(NIM_ADD, @TrayIconData);end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
TrayIconData.uID := 1; //内部标识,与加入小图标时的数一致
TrayIconData.Wnd := Handle; //主窗口句柄
//TrayIconData.uFlags := 0;
Shell_NotifyIcon(NIM_DELETE, @TrayIconData); //去掉小图标end;
//------------------------------------------------------------------
//托盘消息处理事件
//------------------------------------------------------------------
procedure TMainForm.CDRomTrayMessage(var message: Tmessage);
var
CursorPos : TPoint;begin
//在这里处理用户点击托盘图标事件,可以根据WM_MOUSEMOVE消息的不同情况产生不同的
//回应,例如区别对待单击和双击等等
case message.lParam of
//
//WM_LBUTTONDOWN :
//mcisendstring( pchar(cdromStatus),nil,0,handle);
//if not Busy then begin //ShowWindow(Handle, SW_SHOW ); WM_RBUTTONDOWN :
begin
GetCursorPos(CursorPos);
SetForegroundWindow(handle);
//此句作用是当程序失去焦点时,弹出菜单也随之消失。
Application.ProcessMessages;
//取得光标当前位置
TrayPopMenu.Popup( CursorPos.x ,CursorPos.y );
PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
end;
end;end;
//----------------------------------------------------------//弹出菜单事件
//----------------------------------------------------------
procedure TMainForm.popExitClick(Sender: TObject);
begin
Close;
end;
//----------------------------------------------------------procedure TMainForm.FormPaint(Sender: TObject);
begin
Hide;
end;end.
Windows, Messages, SysUtils, Classes, Forms, //Dialogs,
StdCtrls, Menus, Controls, ShellApi; //加上ShellApiconst
{自定义消息,当小图标捕捉到鼠标事件时Windows向回调函数发送此消息}
MYTRAY_MESSAGE = WM_USER + 100; //托盘图标返回消息type
TMainForm = class(TForm) TrayPopMenu: TPopupMenu;
pop1: TMenuItem;
pop2: TMenuItem;
N3: TMenuItem;
popExit: TMenuItem;
//窗口事件
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
//弹出菜单事件
procedure popExitClick(Sender: TObject); private
{ Private declarations }
TrayIconData : TNotifyIconData; //定义托盘图标结构
//托盘消息处理事件
procedure MyTrayMessage(var message:TMessage);message MyTRAY_MESSAGE;
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.DFM}
// 窗口事件
//----------------------------------------------------------------
procedure TMainForm.FormCreate(Sender: TObject);
{var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
}
begin
//建立托盘图标
TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
TrayIconData.Wnd := Handle; //主窗口句柄
TrayIconData.uID := 1; //内部标识,可设为任意数
TrayIconData.hIcon := Icon.Handle;
//要加入的图标句柄,可任意指定,此处为在Tform中Icon属性中指定的图标
//TrayIconData.hIcon := Application.Icon.Handle;
//此句使用了程序的图标,和上句程序有区别,下句亦可,但推荐使用上句,这样图标加
//入到托盘中时图标不会走样。
//TrayIconData.hIcon := LoadIcon(0,IDI_APPLICATION);
TrayIconData.szTip := '系统托盘示例程序'; // 图标的提示信息,即黄色的Hint
TrayIconData.uCallbackMessage := CDROMTRAY_MESSAGE; //回调函数消息
TrayIconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE; //指明哪些字段有效
{将程序的窗口样式设为TOOL窗口,可避免在任务条上出现}
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
//向托盘中添加图标
Shell_NotifyIcon(NIM_ADD, @TrayIconData);end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TrayIconData.cbSize := sizeof(TrayIconData); //TrayIconData变量的字节数
TrayIconData.uID := 1; //内部标识,与加入小图标时的数一致
TrayIconData.Wnd := Handle; //主窗口句柄
//TrayIconData.uFlags := 0;
Shell_NotifyIcon(NIM_DELETE, @TrayIconData); //去掉小图标end;
//------------------------------------------------------------------
//托盘消息处理事件
//------------------------------------------------------------------
procedure TMainForm.CDRomTrayMessage(var message: Tmessage);
var
CursorPos : TPoint;begin
//在这里处理用户点击托盘图标事件,可以根据WM_MOUSEMOVE消息的不同情况产生不同的
//回应,例如区别对待单击和双击等等
case message.lParam of
//
//WM_LBUTTONDOWN :
//mcisendstring( pchar(cdromStatus),nil,0,handle);
//if not Busy then begin //ShowWindow(Handle, SW_SHOW ); WM_RBUTTONDOWN :
begin
GetCursorPos(CursorPos);
SetForegroundWindow(handle);
//此句作用是当程序失去焦点时,弹出菜单也随之消失。
Application.ProcessMessages;
//取得光标当前位置
TrayPopMenu.Popup( CursorPos.x ,CursorPos.y );
PostMessage(Application.MainForm.Handle, WM_NULL, 0, 0);
end;
end;end;
//----------------------------------------------------------//弹出菜单事件
//----------------------------------------------------------
procedure TMainForm.popExitClick(Sender: TObject);
begin
Close;
end;
//----------------------------------------------------------procedure TMainForm.FormPaint(Sender: TObject);
begin
Hide;
end;end.