Cree un nuevo proyecto, organice un botón y memo en Form1, y escriba el siguiente código en el evento OnClick de Button1:
procedimiento tForm1.Button1Click (remitente: tobject);
varilla
hcurrentwindow: hwnd;
SzText: Array [0..254] de char;
Comenzar
hcurrentwindow: = getwindow (manejo, gw_hwndfirst);
mientras que hcurrentwindow <> 0 do
Comenzar
if getWindowText (hcurrentwindow, @szText, 255)> 0 entonces
Memo1.lines.add (strpas (@szText));
hcurrentwindow: = getwindow (hcurrentwindow, gw_hwndnext);
fin;
fin;