Форум: "Основная";
Текущий архив: 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