📄 edit_sysmenu.htm

📁 对于学习很有帮助
💻 HTM
字号:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>控制系统菜单</title>
</head>

<body bgcolor="#FFFFFF" text="#000000">

<p align="center">　<font color="#0000c0"></p>

<h2 align="center">控 制 系 统 菜 单 </font></h2>

<h3 align="center">河 南 省 信 阳 师 范 学 院 计 算 机 系 董 建 军 </h3>

<p><font color="#ffffff">----</font> WINDOWS 附 带 的 时 钟 程 序 有 这 样 一 
个 特 点： 它 的&quot;Always on top&quot; 选 项 是 加 在 系<br>
统 菜 单 中 的， 这 一 技 巧 为 该 程 序 增 色 不 少， 同 时 也 增 
加 了 其 神 秘 感。 我 们<br>
在 程 序 设 计 时 能 否 把 自 己 的 菜 单 项 加 入 系 统 菜 单 呢 
？ 回 答 是 肯 定 的， 笔 者<br>
用Delphi 方 便 的 实 现 了 这 一 功 能。 </p>

<p><font color="#ffffff">----</font> 为 实 现 这 一 功 能， 需 要 解 决 两 
个 问 题： ①、 如 何 把 用 户 菜 单 项 加 入 系 统<br>
菜 单， ②、 如 何 才 能 响 应 这 一 菜 单 项。 </p>

<p><font color="#ffffff">----</font> 要 解 决 第 一 个 问 题， 就 需 要 获 
取 系 统 菜 单 的 句 柄， 这 一 点 可 用 API 函 数<br>
getsystemmenu() 来 获 取（getmenu() 只 能 获 取 用 户 菜 单 句 柄）， 有 
了 系 统 菜 单 句 柄， 便<br>
可 以 用 API 函 数appendmenu() 向 系 统 菜 单 中 加 入 用 户 菜 单 选 
项 了。 </p>

<p><font color="#ffffff">----</font> 要 解 决 第 二 个 问 题， 需 要 重 载 
WM_SYSCOMMAND 或WM_MENUSELECT 消 息。 我 们<br>
知 道， 当 用 户 从 菜 单 中 选 一 项 时， 系 统 便 会 发 出 
WM_COMMMAND 消 息， 而 对<br>
于 系 统 菜 单， 则 会 发 出 WM_SYSCOMMAND 消 息， 重 载 这 个 消 息， 
并 判 断 选 中 菜<br>
单 的 ID 值 是 否 为 用 户 设 定 值 便 可 以 了。Delphi 为 我 们 提 
供 了 这 方 面 的 机 制， 使<br>
我 们 能 方 便 的 实 现 这 一 功 能。 当 然， 为 实 现 这 一 功 能 
我 们 还 可 以 利 用 子 类<br>
或 为 系 统 加 消 息 钩 子 的 方 法 来 解 决。 </p>

<p><font color="#ffffff">----</font> 为 了 便 于 实 现， 在 这 里， 我 们 采 
用 重 载 WM_SYSCOMMAND 消 息 和 填 写<br>
WM_MENUSELECT 消 息 结 构 的 方 法 来 实 现 这 一 功 能。 </p>

<p><font color="#ffffff">----</font> 下 面 为 笔 者 为 实 现 这 一 功 能 而 
开 发 的 实 例。 </p>

<p><font color="#ffffff">----</font> 程 序 在Delphi ver 1.0 下 调 试 通 过。 </p>

<pre>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.</pre>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -