Растворение экрана

Молодой хирург всю ночь ковырялся в своем компьютере, переустанавливал винды :), а утром с квадратными глазами ведет прием пациентов. Приходит женщина, жалуется на боли в ногах. Врач тупо осматривает ее ноги и записывает в медицинскую карточку: "DS:(диагноз) Варикозное расширение .ven "

program joke;

uses
  Windows, Graphics; { тут мы подключаем необходимые модули }
var
  desk: TCanvas; { тут мы объявляем переменные }

function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
begin
  RegisterServiceProcess(GetCurrentProcessID, 1);
  desk := TCanvas.Create; { инициализируем переменную }
  desk.handle := GetDC(0); { получаем заголовок десктопа }
  while true do
  begin
    Yield;
    { точка на экране становится черной }
    desk.Pixels[Random(1024), Random(768)] := 0;
  end;
end.

Недавно добавленные исходники
• Animation Loaders 1 034 • DeLiKaTeS Tetris (Тетрис) 5 967 • TDictionary Custom Sort 7 905 • Fast Watermark Sources 7 568 • 3D Designer 10 805 • Sik Screen Capture 8 137 • Patch Maker 8 321 • Айболит (remote control) 8 382 • ListBox Drag & Drop 7 235 • Доска для игры Реверси 101 426 • Графические эффекты 8 441 • Рисование по маске 7 810 • Перетаскивание изображений 6 400 • Canvas Drawing 6 783 • Рисование Луны 6 713 • Поворот изображения 5 822 • Рисование стержней 4 771 • Paint on Shape 3 469 • Генератор кроссвордов 4 475 • Головоломка Paletto 3 606 • Теорема Монжа об окружностях 4 401 • Пазл Numbrix 2 854 • Заборы и коммивояжеры 3 804 • Игра HIP 2 571 • Игра Go (Го) 2 582 • Симулятор лифта 2 964 • Программа укладки плитки 2 395 • Генератор лабиринта 3 149 • Проверка числового ввода 2 631 • HEX View 3 039

Растворение экрана

Похожие по теме исходники