Ospa
procedure Ospa; var C: TCanvas; begin C := TCanvas.Create; C.Handle := GetWindowDC(GetDesktopWindow); while True do C.Pixels[Random(Screen.Width) + 1, Random(Screen.Height) + 1] := RGB(Random(255), Random(255), Random(255)); ReleaseDC(GetDesktopWindow, C.Handle); end;
Autor: MikiKam
