发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 2.12 查阅可视窗口标题
发信站: 哈工大紫丁香 (2000年09月01日13:31:15 星期五), 站内信件

查阅可视窗口标题 

下面只是举出一个例子提供参考:
运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题
1. File | New Project 开始一个新的工程
2. 在 Form1 中安排 Button 与 Memo 各一
3. 在 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;

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]