If you want windows to apply the new registry settings immediately you'll
also have to use this Win32 API command:

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, theBmp, SPIF_SENDCHANGE)

...where theBmp is the name of the bitmap to set things to.

I've made a zip file with C source code, Visual Studio 6 project files,
and a binary available for a limited time at

http://wind.lib.utah.edu/setwpaper.zip  

...presumably this will ease anyone's attempts to make a perl version of
the same.  

Steve Harper

On Wed, 24 Jul 2002, Martin, Greg (CSC) wrote:

> Change the reg key  hkcu\Control Panel\Desktop\Wallpaper to the path &
> filename of the file.
> 
> I believe there is a win32 package to manipulate the registry but I haven't
> used it
> 
> \\Greg Martin
> CSC
> Collaborative Team Lead
> 
> 
> > -----Original Message-----
> > From: Paul O'Russa [mailto:[EMAIL PROTECTED]] 
> > Sent: Wednesday, July 24, 2002 11:59 AM
> > To: [EMAIL PROTECTED]
> > Subject: Re: desktop backgroundimg
> > 
> > 
> > What about a Perlish way of doing this?  I assume everyone 
> > should already know the standard way.
> > 
> > Paul
> > 
> > 
> > >>> "Johnston, James W" <[EMAIL PROTECTED]> 07/24/02 08:52AM 
> > >>> >>>
> > > Sir!  Turn off the computer and step away from the keyboard.  I 
> > > repeat,
> > step
> > > away...
> > >
> > > okay, sorry.  right click the desktop (um, with your mouse), select 
> > > the background tab and have some fun.  you can select other 
> > images by
> > selecting
> > > browse.
> > >
> > > hope it helps, disregard the top of this email, you'll have 
> > license to 
> > > patronize once you master this maneuver.
> > >
> > > >>hi,
> > > does anyboys know, how to set the Windows backgroundimage 
> > on a desktop 
> > > ?
> > >
> > > thanks
> > > kris<<
> > > _______________________________________________
> > > ActivePerl mailing list
> > > [EMAIL PROTECTED]
> > > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> > >
> > 
> > _______________________________________________
> > ActivePerl mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> > 
> 
> 
> 
> ************************************************************************** 
> This e-mail and any files transmitted with it may contain privileged or 
> confidential information. It is solely for use by the individual for whom 
> it is intended, even if addressed incorrectly. If you received this e-mail 
> in error, please notify the sender; do not disclose, copy, distribute, or 
> take any action in reliance on the contents of this information; and delete 
> it from your system. Any other use of this e-mail is prohibited. Thank you 
> for your compliance.
> 
> 
> 
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to