Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Вниз

что получилось из сломанного телека VUDZ а через полчаса...... :)   Найти похожие ветки 

← →
wicked   (2002-03-12 12:11) [0]

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) [1]

МОДЕРАТОРУ - извините, не туда отправил.....
должно быть в "Потрепаться".....

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c