| 導購 | 订阅 | 在线投稿
分享
 
 
 

控制系統菜單

來源:互聯網  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=/bbs/detail_1785110.html][img]http://image.wangchao.net.cn/it/1323424679362.gif[/img][/url] 更多內容請看系統安全設置 系統安裝手冊 系統備份專題專題,或
󰈣󰈤
王朝萬家燈火計劃
期待原創作者加盟
 
 
 
>>返回首頁<<
 
 
 
 
 熱帖排行
 
 
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有