Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Simple script to change win32 wallpaper

by bbfu (Curate)
on Jul 12, 2002 at 01:54 UTC ( [id://181191] : sourcecode . print w/replies, xml ) Need Help??
Category: Win32 Stuff
Author/Contact Info Cory Johns (a.k.a. Bunny Boy Fu)

Simple script to change the MS Windows wallpaper from the command-line. Really just a wrapper around the SetSystemParametersInfo() API call, via Win32::API.

I'm using it as part of another small app. I'm writing (for my GF) to pick random papers. :)


use Win32::API;

use constant SPI_SETDESKWALLPAPER  => 20;
use constant SPIF_UPDATEANDSENDINI => 3;
use constant NULL                  => 0;

my $syspinf = Win32::API->new('user32','SystemParametersInfo', [I,I,P,
+I], I)
  or die "Could not import function.\n";