Создайте новый проект, организуйте одну кнопку и меморандум в Form1 и напишите следующий код в событии Button1 OnClick:
Процедура tform1.button1click (отправитель: tobject);
вар
HcurrentWindow: hwnd;
Sztext: Array [0..254] of Char;
Начинать
hcurrentWindow: = getWindow (handle, gw_hwndfirst);
в то время как hcurrentwindow <> 0
Начинать
Если getWindowText (hcurrentWindow, @sztext, 255)> 0 тогда
Memo1.lines.add (strpas (@sztext));
hcurrentWindow: = getWindow (hcurrentWindow, gw_hwndnext);
конец;
конец;