bestlong 怕失憶論壇

標題: 如何取得Windows所有視窗的標題名稱 [打印本頁]
作者: bestlong    時間: 2007-12-14 11:10     標題: 如何取得Windows所有視窗的標題名稱

在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;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5