运用api函数 getwindow() 配合 getwindowtext().txt

自己对DELPHI学习的一点体会

运用API函数 GetWindow() 配合 GetWindowText() 逐一查出各视窗的标题 (2000年12月29日) 

网友更新  分类:数据库   作者: maming(推荐)  推荐:maming   阅读次数:507  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
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;