Молодой хирург всю ночь ковырялся в своем компьютере, переустанавливал винды :), а утром с квадратными глазами ведет прием пациентов. Приходит женщина, жалуется на боли в ногах. Врач тупо осматривает ее ноги и записывает в медицинскую карточку:
"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 dobegin
Yield;
{ точка на экране становится черной }
desk.Pixels[Random(1024), Random(768)] := 0;
end;
end.
Статья Растворение экрана раздела ОС и Железо Монитор и Экран может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.