新建一個工程，在 Form1 中安排 Button 與 Memo 各一， 在 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；