查阅可视窗口标题

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