[p314]

Требуется перебор окон на рабочем столе по нажатию клавиши.
Пытаюсь по Фленову (у него перебор через случайный промежуток времени)
запускаю в цикле
enumwindows(@enumwindowsproc,0)

А в функции

function enumwindowsproc(h:hwnd,lparam:integer):BOOL;stdcal ;
begin
iswindowsvisible(h) then
if random(100)=4 then
setforeground(h);
result:=true;

замена строчки if random ... на обработку событий от клавиатуры ни к чему не приводит, т.к. оно привязано к созданому мной приложению.