что получилось из сломанного телека VUDZ а через полчаса...... :)
wicked © (2002-03-12 12:11:00)
uses windows;
const cc = 100000;
procedure painter (p: pointer);
var dc: HDC;
cx, cy, x, y, x2, y2: integer;
w, h, w2, h2: integer;
i: integer;
begin
dc := GetDC(0);
if dc = 0 then exit;
cx := GetSystemMetrics(SM_CXSCREEN);
cy := GetSystemMetrics(SM_CYSCREEN);
randomize;
while true do begin
ReleaseDC(0, dc);
dc := GetDC(0);
if dc = 0 then exit;
for i := 0 to cc do begin
x := random(cx);
y := random(cy);
x2 := x + random(5) - 2;
y2 := y - random(5) + 2;
if x2 < 0 then x2 := 0;
if x2 > cx then x2 := cx;
if y2 < 0 then y2 := 0;
if y2 > cy then y2 := cy;
w := random(50) + 100;
h := random(50) + 100;
w2 := w + random(5) - 2;
h2 := h + random(5) - 2;
StretchBlt(dc, x, y, w, h, dc, x2, y2, w2, h2, SRCCOPY);
end;
end;
end;
var proc: THANDLE;
threadid: DWORD;
begin
Proc := THANDLE(CreateThread(0, 8192, @painter, 0, 0,
threadid));
SetThreadPriority(Proc, THREAD_PRIORITY_IDLE);
WaitForSingleObject(Proc, INFINITE);
end.
ЗЫ если надоела - сбивать палками (taskmanager"ом)...
wicked (2002-03-12 12:33:00) [1]
МОДЕРАТОРУ - извините, не туда отправил.....
должно быть в "Потрепаться".....
Наверх 
ЧАТ |
Орешник |
|
