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

Previous  Top  Next

    
 

 

Code:

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.

 

 

©Drkb::04651

http://delphiworld.narod.ru/

DelphiWorld 6.0