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