如何取得Windows所有視窗的標題名稱

bestlong

在Memo1中列出所有視窗標題名稱

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. var
   
3.   HCurrentWindow: HWND;
   
4.   szText: array[0..254] of char;
   
5. begin
   
6.   Memo1.Clear;
   
7.   HCurrentWindow := GetWindow(Handle, GW_Hwndfirst);
   
8.   begin
   
9.     while HCurrentWindow <> 0 do
   
10.     begin
    
11.       if GetWindowtext(HCurrentWindow, @szText, 255) > 0 then
    
12.         Memo1.Lines.Add(StrPas(@szText));
    
13.       HCurrentWindow := GetWindow(HCurrentWindow, GW_HwndNext);
    
14.     end;
    
15.   end;
    
16. end;

複製代碼