📄 00407.htm
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">
<p><span style="BACKGROUND-COLOR: #ff0000"><a href="00407.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span></b><span style="background-color: #000000"><br>
</span><b><span style="background-color: #000080"><a name="1"></a>1：打开外部已开启的应用程序</span></b><span style="background-color: #000000"><br>
打开计算器应用程序，SW_NORMAL这个参数的说明可以到Windows.Pas单元里面去看说明。<br>
WinExec(Pchar('C:\Windows\calc.exe'), SW_NORMAL) ;<br>
<br>
</span><b><span style="background-color: #000080"><a name="2"></a>2：关闭外部已开启的应用程序<br>
</span></b><span style="background-color: #000000">关闭计算器程序，<br>
procedure TForm1.Button2Click(Sender: TObject);<br>
var<br>
HWndCalculator : HWnd;<br>
begin<br>
// find the exist calculator window<br>
HWndCalculator := FindWindow(nil, '计算器'); // close the exist Calculator<br>
if HWndCalculator <> 0 then<br>
SendMessage(HWndCalculator, WM_CLOSE, 0, 0);<br>
end;<br>
<br>
</span><b><span style="background-color: #000080"><a name="3"></a>3：把自己的菜单项加入系统菜单 <br>
</span></b><span style="background-color: #000000">要解决这个问题，有两个工作要做：<br>
Ⅰ：如何把用户菜单项加入系统菜单， <br>
Ⅱ：如何才能响应这一菜单项。 <br>
解决问题Ⅰ：首先需要获取系统菜单的句柄，这一点可用API函数getsystemmenu()来获取，有了系统菜单句柄，用API函数appendmenu()向系统菜单中加入用户菜单选项了。 <br>
<br>
解决问题Ⅱ：需要重载WM_SYSCOMMAND或WM_MENUSELECT消息。当用户从菜单中选一项时，系统便会发出WM_COMMMAND消息，而对于系统菜单，则会发出WM_SYSCOMMAND消息，重载这个消息，并判断选中菜<br>
单的ID值是否为用户设定值便可以了。<br>
在Private声明部分，说明了过程，procedure User_SysMenu(var msg:twmmenuselect); message wm_syscommand;用于响应用户菜单事件。<br>
<br>
procedure TForm1.user_sysmenu(var msg:TWMMENUSELECT);<br>
begin<br>
if msg.iditem=100 then Label1.Caption := '你已经成功了，真是不可思议'<br>
else inherited; { 作缺省处理,必须调用这一过程}<br>
end;<br>
<br>
procedure TForm1.Button3Click(Sender: TObject);<br>
Var<br>
Menutemp : HMENU ;<br>
begin<br>
MenuTemp := GetSystemMenu(handle,false); //获取系统菜单句柄<br>
AppendMenu(MenuTemp,MF_SEPARATOR,0,nil);<br>
AppendMenu(MenuTemp,MF_STRING,100,'测试'); //加入用户菜单<br>
end;<br>
<br>
</span>
<span style="background-color: #FF0000"><a href="00407.zip">源程序下载</a></span>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -