[Perl] Funcion cambiar_fondo()
Publicado: 30 Sep 2015, 18:57
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
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);
}Código: Seleccionar todo
cambiar_fondo("c:/Perl/img.bmp");