查阅可视窗口标题

查阅可视窗口标题 


　　下面只是举出一个例子提供参考:

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