Растворение экрана |
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
DelphiWorld 6.0