svhost32 – Мій перший прикол)

Привіт! Сьогодні лазив у себе по компі , складав та сортував файли, і випадково натрапив на прикол, який писав колись на делфі, найперший, але досить веселий)
Суть заключається в тому, що коли юзер запускає у себе на ПК цю ехе-шку, у нього усі вікна починають трястися і надпис у заголовку вікна змінюється на “Lukario Stake out you!” ). З допомогою цієї програмки, можна гарно приколнутися над другом, приліпивши Джойнером цей прикол до іншої програми, корисної_)
Далі приведу код самої програми:

program svhost32;

uses
Windows,
messages;

{$R *.res}
function EnumChildWnd (h: hwnd):bool; stdcall;
begin
SendMessage(h,wm_settext,0,lparam(LPCTSTR(‘Lukario stake out you !!!’)));
Result:=true;
end;
function EnumWindowsWnd(h: hwnd):bool;stdcall;
var
rect:Trect;
index:integer;

begin
if not IsWindowVisible(h)then
begin
result:=true;
exit
end;
getWindowRect(h,rect);
index:=Random(2);
if index=0 then
begin
rect.Top:=rect.Top+3;
rect.Left:=rect.Left+3;
end
else
begin
rect.Top:=rect.Top-3;
rect.Left:=rect.Left-3;
end;
moveWindow(h,rect.Left,rect.Top,rect.Right-rect.Left,rect.Bottom-rect.Top,true);
result:=true;
end;
var
h:Thandle;
begin

while true do
begin
setwindowtext(GetForeGroundWindow,’Lukario stake out you !!!’);
EnumChildWindows(h,@EnumChildWnd,0);
EnumWindows(@EnumWindowsWnd,0);
h:=createEvent(nil,true,false,”);
WaitforSingleObject(h,500);
closehandle(h);
end;
end.

А ось сам ехе-шник “приколу”: скачати.

Примітка:  Щоб відключити прикол, запускаєм диспетчер завдань, і завершуєм процес svhost32.