在Delphi中如何控制其它应用程序窗口

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

在Delphi中如何控制其它应用程序窗口

在Delphi中如何控制其它应用程序窗口

广东省农业管理干部学院 陈建兵

在编写Delphi的应用程序中,常常涉及对其它Windows应用程序的操作。例如,在数据库的管理系统中,财务人员需要使用计算器,即可调用Windows内含的计算器功能,若每次使用,均通过“开始/程序/附件/计算器”来打开计算器,显然是非常繁琐的,当然可以考虑在桌面上建立一“计算器”的快捷方式,且定义一热键,需要使用计算器时,就按下这个热键来打开“计算器”。但由于“计算器”是一个“非模式”窗口程序,即每运行一次计算器,就会打开一个“计算器”窗口,这样的结果是桌面上出现了几十个“计算器”,不仅大量增加了系统内存的开销,而且也不方便用户的操作。在Delphi中可较轻易地控制,效果非常完美。下面就两个主要问题提出实现方法。

1.如何控制设计?

新建一表单,在表单中放入两个按钮,其Caption分别为“打开”(即启动“计算器”)和“关闭”(退出结束),且为它们分别添加Click事件处理。详见表单Form1及单元文件Unit1。

其中,最主要的几条语句有:

fwnd:=FindWindow('SciCalc','计算器');

函数原型为(详见Delphi的帮助):

HWND FindWindow(

LPCTSTR lpClassName, // pointer to class name

LPCTSTR lpWindowName // pointer to window name

);

此处,'SciCalc' 为计算器的类名,'计算器'为计算器的窗口标题}

setWindowPos(fwnd,HWND_NOTOPMOST,0,0,0,0,SWP_SHOWWINDOW or SWP_NOSIZE or SWP_NOMOVE);

函数原型为:

BOOL SetWindowPos(

HWND hWnd, // handle of window

HWND hWndInsertAfter, // placement-order handle

int X, // horizontal position

int Y, // vertical position

int cx, // width

int cy, // height

UINT uFlags // window-positioning flags

);

ShowWindow(fwnd,SW_RESTORE); //显示已打开的「计算器」

函数原型为:

BOOL ShowWindow(

HWND hWnd, // handle of window

int nCmdShow // show state of window

);

Ret:=WinExec('c:\windows\calc.exe',SW_SHOWNORMAL); //启动计算器

函数原型为:

UINT WinExec(

LPCSTR lpCmdLine, // address of command line

UINT uCmdShow // window style for new application

);

运行“计算器”程序并检测返回值(从而利用返回值来判断可能发生的错误)

2.如何明确应用程序的“类名”?

要控制应用程序,首先必须明确应用程序的“类名”。“类”的概念,Delphi的程序已经非常清楚,如:新建一表单Form1,该表单的“类名”为TForm1。那么其它Windows程序的“类名”如何确定呢?

值得一喜的是,Delphi提供了一实用工具Winsight,它正如一面照妖镜,不论何方妖怪,均会显露出它们的“类名”。

使用Winsight的方法如下:

⑴运行Winsight(程序名为ws32.exe,与主文件delphi32.exe同一目录),见图①;

⑵从Winsight的菜单中选择“间谍”中的“跟随焦点”,见图②;

⑶运行“计算器”程序;

⑷在Winsight中显示出了目标,如图③所示。

软件环境:中文Win98/中文Delphi5.0。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航