Растворение экрана
|
Молодой хирург всю ночь ковырялся в своем компьютере, переустанавливал винды :), а утром с квадратными глазами ведет прием пациентов. Приходит женщина, жалуется на боли в ногах. Врач тупо осматривает ее ноги и записывает в медицинскую карточку:
"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.
|
|
