新建一個工程，在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；