Программа меняет название всех окон на “Я вижу тебя”

 

Program Look;

uses  windows,

         Messages;

 

//Функция-ловушка

function EnumWindowsWnd(h: hwnd): BOOL; stdcall;

var

rect:TRect;

index:Integer;

begin

if not IsWindowVisible(h) then

begin

Result:=true;

exit;

end;

SendMessage(h,WM_SETTEXT,0,lparam(LPCTSTR('Я вижу тебя')));

end;

 

//Основной код

var

h:THandle;

begin

//Запускаем цикл

while true do

begin

//Запускаем перечисление всех окон

EnumWindows(@EnumWindowsWnd,0);

//Делаем задержку в 1000 мс

h:=CreateEvent(nil, true, false, ' ' ) ;

WaitForSingleObject(h, 1000);

CloseHandle(h);

end;

end.