这个或许有点用处: 在前面的例程S 1 6 _ 3 1中,我们通过自己的程序启动了“计算器”程序。下面在例程 S 1 6 _ 3 1的主窗体上再增加一个B u t t o n组件,并为其添加O n C l i c k事件的处理过程,实现关闭 “计算器”程序的功能。具体代码如下: procedure TForm1.Button3Click(Sender: TO b j e c t ) ; v a r HWndCalc: HWnd; // 窗口句柄 b e g i n 第16章章其他编程技术章名431 // 查找"计算器"窗口 HWndCalc:= FindWindow(nil, '计算器' ) ; if HWndCalc <> 0 then SendMessage(HWndCalc, WM_CLOSE, 0, 0); e n d ;
在前面的例程S 1 6 _ 3 1中,我们通过自己的程序启动了“计算器”程序。下面在例程
S 1 6 _ 3 1的主窗体上再增加一个B u t t o n组件,并为其添加O n C l i c k事件的处理过程,实现关闭
“计算器”程序的功能。具体代码如下:
procedure TForm1.Button3Click(Sender: TO b j e c t ) ;
v a r
HWndCalc: HWnd; // 窗口句柄
b e g i n
第16章章其他编程技术章名431
// 查找"计算器"窗口
HWndCalc:= FindWindow(nil, '计算器' ) ;
if HWndCalc <> 0 then
SendMessage(HWndCalc, WM_CLOSE, 0, 0);
e n d ;