9 de enero de 2010

Poner la imagen del papel tapiz de Windows como fondo de un formulario

Una forma fácil de poner la misma imagen del papel tapiz de Windows como fondo de un formulario.

Para ello leemos el valor de la Registry: HKCU\Control Panel\Desktop\Wallpaper con WSH (Windows Script Host)

Ejemplo:
LOCAL loForm, loWsh, lcWallpaper

loWsh = CreateObject("wscript.shell")  
lcWallpaper = loWsh.RegRead("HKCU\Control Panel\Desktop\Wallpaper")
loWsh = Null

loForm = CREATEOBJECT("Form")
loForm.WIDTH = 800
loForm.HEIGHT = 600
loForm.AUTOCENTER = .T.
loForm.PICTURE = lcWallpaper
loForm.SHOW(1)
loForm = Null

RETURN

Luis María Guayán

No hay comentarios. :

Publicar un comentario