| 订阅 | 在线投稿
分享
 
 
 

控制系统菜单

来源:互联网  宽屏版  评论
2008-06-01 01:58:26

INDOWS附带的时钟程序有这样一个特点:它的"Always on top"选项是加在系统菜单中的,这一技巧为该程序增色不少,同时也增加了其神秘感。我们在程序设计时能否把自己的菜单项加入系统菜单呢?回答是肯定的,笔者用Delphi方便的实现了这一功能。

为实现这一功能,需要解决两个问题:①、如何把用户菜单项加入系统菜单,②、如何才能响应这一菜单项。

要解决第一个问题,就需要获取系统菜单的句柄,这一点可用API函数getsystemmenu()来获取(getmenu()只能获取用户菜单句柄),有了系统菜单句柄,便可以用API函数appendmenu()向系统菜单中加入用户菜单选项了。

要解决第二个问题,需要重载WM_SYSCOMMAND或WM_MENUSELECT消息。我们知道,当用户从菜单中选一项时,系统便会发出WM_COMMMAND消息,而对于系统菜单,则会发出WM_SYSCOMMAND消息,重载这个消息,并判定选中菜单的ID值是否为用户设定值便可以了。Delphi为我们提供了这方面的机制,使我们能方便的实现这一功能。当然,为实现这一功能我们还可以利用子类

或为系统加消息钩子的方法来解决。

为了便于实现,在这里,我们采用重载WM_SYSCOMMAND消息和填写WM_MENUSELECT消息结构的方法来实现这一功能。

下面为笔者为实现这一功能而开发的实例。

程序在Delphiver1.0下调试通过。

PRogram Psysmenu;

uses

Forms,

Sysmenu in \SYSMENU.PAS {Form1};

{$R *.RES}

begin

application.CreateForm(TForm1, Form1);

Application.Run;

end.

unit Sysmenu;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes,

Graphics, Controls,Forms, Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

procedure user_sysmenu(var msg:twmmenuselect);

message wm_syscommand;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.user_sysmenu(var msg:TWMMENUSELECT);

begin

if msg.iditem=100 then

showmessage( 响应系统菜单!)

{ 也 可 以setwindowpos()来实现处于最前端功能}

else

inherited; { 作缺省 ?,必须调用这一过程}

end;

procedure TForm1.FormCreate(Sender: TObject);

var hmenu:integer;

begin

hmenu:=getsystemmenu(handle,false);

{获取系统菜单句柄}

appendmenu(hmenu,MF_SEPARATOR,0,nil);

appendmenu(hmenu,MF_STRING,100,加入系统菜单);

{加入用户菜单}

end;

end.

控制系统菜单
更多内容请看系统安全设置 系统安装手册 系统备份专题专题,或

 
  INDOWS附带的时钟程序有这样一个特点:它的"Always on top"选项是加在系统菜单中的,这一技巧为该程序增色不少,同时也增加了其神秘感。我们在程序设计时能否把自己的菜单项加入系统菜单呢?回答是肯定的,笔者用Delphi方便的实现了这一功能。   为实现这一功能,需要解决两个问题:①、如何把用户菜单项加入系统菜单,②、如何才能响应这一菜单项。   要解决第一个问题,就需要获取系统菜单的句柄,这一点可用API函数getsystemmenu()来获取(getmenu()只能获取用户菜单句柄),有了系统菜单句柄,便可以用API函数appendmenu()向系统菜单中加入用户菜单选项了。   要解决第二个问题,需要重载WM_SYSCOMMAND或WM_MENUSELECT消息。我们知道,当用户从菜单中选一项时,系统便会发出WM_COMMMAND消息,而对于系统菜单,则会发出WM_SYSCOMMAND消息,重载这个消息,并判定选中菜单的ID值是否为用户设定值便可以了。Delphi为我们提供了这方面的机制,使我们能方便的实现这一功能。当然,为实现这一功能我们还可以利用子类 或为系统加消息钩子的方法来解决。   为了便于实现,在这里,我们采用重载WM_SYSCOMMAND消息和填写WM_MENUSELECT消息结构的方法来实现这一功能。   下面为笔者为实现这一功能而开发的实例。   程序在Delphiver1.0下调试通过。 PRogram Psysmenu; uses Forms, Sysmenu in \SYSMENU.PAS {Form1}; {$R *.RES} begin application.CreateForm(TForm1, Form1); Application.Run; end. unit Sysmenu; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure user_sysmenu(var msg:twmmenuselect); message wm_syscommand; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.user_sysmenu(var msg:TWMMENUSELECT); begin if msg.iditem=100 then showmessage( 响应系统菜单!) { 也 可 以setwindowpos()来实现处于最前端功能} else inherited; { 作缺省 ?,必须调用这一过程} end; procedure TForm1.FormCreate(Sender: TObject); var hmenu:integer; begin hmenu:=getsystemmenu(handle,false); {获取系统菜单句柄} appendmenu(hmenu,MF_SEPARATOR,0,nil); appendmenu(hmenu,MF_STRING,100,加入系统菜单); {加入用户菜单} end; end. [url=http://www.wangchao.net.cn/bbsdetail_1785110.html][img]http://image.wangchao.net.cn/it/1323424679362.gif[/img][/url] 更多内容请看系统安全设置 系统安装手册 系统备份专题专题,或
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有