Delphi编程心得两则

软件世界

陈刚

1.关闭外部应用程序

如何在 Delphi 应用程序中， 关闭外部已开启的应用程序呢？下面以一段在 Delphi 中关闭“计算器”程序为例：
var
HWndCalculator:HWnd；
Begin
// 找到存在的计算器窗口
HWndCalculator:= Winprocs.FindWindow（nil， '计算器'）；
// 关闭存在的计算器窗口
if HWndCalculator <> 0 then
SendMessage(HWndCalculator， WM_CLOSE， 0， 0)；
end；

2.查阅可视窗口标题

我们可以通过下面的例子了解查阅可视窗口的标题。即运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题。
新建一个工程，在 Form1 中安排 Button 与 Memo 各一， 在 Button1 的 OnClick 事件中写上如下代码：
procedure TForm1.Button1Click(Sender: TObject)；
var
hCurrentWindow: HWnd；
szText: array[0..254] of char；
begin
hCurrentWindow := GetWindow(Handle， GW_HWNDFIRST)；
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow， @szText， 255)>0 then
Memo1.Lines.Add(StrPas(@szText))；
hCurrentWindow:=GetWindow(hCurrentWindow， GW_HWNDNEXT)；
end；
end；