Hola buenas! Que tal? espero que en este momento esten aprovechando el tiempo mejor que yo xD (ahora sabrán por qué digo ésto... jiji).

Aqui os pongo un codigo que hice en mis ratos libres y quiero compartir mis cositas friquis con ustedes. Cuando vean el resultado, ustedes le dan el nombre que quieran... a mi se me ocurrieron algunos:

Big Bang (porque es similiar a cuando no pillas la señal de TV)
Un hormiguero en mi PC
Monitor LSD (Que no es lo mismo que LCD, juasjuasjuas)
Haciendo cuadros tridimensionales (parecido a los del ojo magico... de esos que te acercas y luego va apareciendo la imagen a medida que te alejas)

Bueno ahi va (está pensado para una resolución de 1024 x 768 (que es la que yo uso...) si tienes alguna distinta cambia los valores correspondientes a estas cifras.

var
x: entero;
monitor: THandle; //manejador a nuestro monitor;

begin
x:=0;
monitor:=GetWindowDC(GetDeskTopWindow); //obtenemos el handle;
while (x<9000000) do begin
SetPixel(monitor, Random(1024), Random(768), Random(999999999));
x:=x+1;
end;
end;

La funciones:

function SetPixel(DC: THandle; X, Y: Integer; Color: integer): LongWord;
contenida en "gdi32.dll", de nombre "SetPixel"
function GetWindowDC(hWnd: THandle): THandle;
contenida en "user32.dll", de nombre "GetWindowDC"
function GetDesktopWindow(): THandle;
cotenida en "user32.dll", de nombre "GetDesktopWindow"

Debes incluirlas en el código fuente.

Si teneis no teneis ganas o tiempo aquí os dejo el ejecutable para que disfruteis de la experiencia... xD

http://www.terra.es/personal7/crazypaddr/monitor.rar

P.D: Este post tal vez debería ir en OFF-TOPIC? Lo puse aquí porque tal vez alguien sepa darle alguna utilidad a las 3 funciones de la API de Windows que he comentado

Un saludo