That works great, thanks.
[EMAIL PROTECTED] wrote:
>Try this (requires Win32::API):
>
>use Win32::API;
>sub SPI_SETDESKWALLPAPER() {20}
>sub SPIF_UPDATEINIFILE() {0x0001}
>my $SystemParametersInfo = new Win32::API("user32", "SystemParametersInfo", ['I',
>'I', 'P', 'I'], 'I') or die "Failed to create API object\n";
>my $bitmap = "c:\\winnt\\winnt.bmp";
>unless ( $SystemParametersInfo->Call(SPI_SETDESKWALLPAPER, 0, $bitmap,
>SPIF_UPDATEINIFILE) )
>{
> die "Call failed\n";
>}
>
>It works under NT, but I haven't tested it on XP.
>
>Regards,
>
>Paul
>
--
Thanks,
Brian Gibson
Systems Administrator
Wheaton College
508-286-3417
[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
