On 9/26/08, Glenn Linderman <[EMAIL PROTECTED]> wrote:
> On approximately 9/26/2008 3:37 PM, came the following characters from the
> keyboard of Gabe Schaffer:
>
> > On 9/26/08, Glenn Linderman <[EMAIL PROTECTED]> wrote:
> >
> > > So either skip using IrfanView (if you figure out the API that sets the
> > > wallpaper in Windows directly, we can figure out how to make a Perl
> > > script set the wallpaper, eh?), or tell Irfan to fix his program...
> >
> > Ask and ye shall receive?
> >
> > Try this: http://www.perlmonks.org/?node_id=181191
>
> That's half the job, it changes the wall paper, but doesn't allow changing
> the mode (centered, stretched, tiled).
>
> Guess the mode is a registry tweak, according to the following MSDN blog,
> which doesn't discuss an API to use to do it... Unfortunately, the blog is
> not in Perl code...
>
> http://blogs.msdn.com/coding4fun/archive/2006/10/31/912569.aspx
It's not hard to do in Perl:
use Win32::Registry;
Win32::Registry::SetValue('HKEY_CURRENT_USER\Control Panel\Desktop',
'WallpaperStyle', ®_SZ, $style);
Win32::Registry::SetValue('HKEY_CURRENT_USER\Control Panel\Desktop',
'TileWallpaper', ®_SZ, $tile);
GNS
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
