[Perl] Funcion cambiar_fondo()

Iniciado por BigBear, Julio 03, 2011, 09:40:04 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario
Julio 03, 2011, 09:40:04 PM Ultima modificación: Marzo 14, 2015, 10:08:38 AM por Expermicid
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

Código: perl


#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

Código: perl

cambiar_fondo("c:/Perl/img.bmp");
Imprimir
Ir Arriba Páginas1
Acciones del Usuario