Perl [Perl] Funcion cambiar_fondo()

[Doddy]

Hola a todos

Acabo de hacer un funcion usando las API de Windows para poder cambiar el fondo de escritorio con solo poner la ruta de la imagen.

>

#By Doddy H

use Win32::API;

sub cambiar_fondo {

my $a = new Win32::API("user32","SystemParametersInfo", [L,L,P,L],L);
$a->Call(20,0,$_[0],0);

}

Ejemplo de uso

>
cambiar_fondo("c:/Perl/img.bmp");