<br> var<br> hCurrentWindow: HWnd;<br> szText: array[0..254] of char;<br> begin<br> hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);<br> While hCurrentWindow <> 0 Do<br> Begin<br> If GetWindowText(hCurrentWindow, @szText, 255) > 0 Then<br> ListBox1.Items.add(Strpas(@szText));<br> hCurrentWindow := GetNextWindow(hCurrentWindow, GW_HWNDNEXT);<br> End;<br>