cambair papel tapiz de windows
Publicado por Deyvis (21 intervenciones) el 27/01/2008 22:29:26
hola a todos del foro mi pregunta es como seria para cambiar el fondo de escritorio de windows mediante una aplicacion hecha en power builder tengo un ejemplo q es este
Primero declare la función externa así:
FUNCTION ulong SystemParametersInfoA( ulong ul_action, ulong ul_iParam, string s_bitmap, ulong ul_winIni ) LIBRARY "USER32"
Luego para invocar la función desde su programa hágalo así:
[powerscript]
CONSTANT ulong SPISETDESKWALLPAPER = 20
string ls_wallpaper
//para hacer el cambio permanente
CONSTANT ulong SPIUPDATEINIFILE = 1
// unicamente es posible con BMP
// para usar un JPG, debe convertirlo en BMP primero.
ls_wallpaper = "C:WINDOWSapotec.bmp"
SystemParametersInfoA( SPISETDESKWALLPAPER, 0, ls_wallpaper, SPIUPDATEINIFILE )
---------- se encuentra en esta direccion http://www.powerbuilder.org/modules.php?name=News&file=article&sid=271
pero la imagen no cambia si alguien tiene un ejemplo se lo agradeceria es urgente
IkA pErÚ - dEyViS
Primero declare la función externa así:
FUNCTION ulong SystemParametersInfoA( ulong ul_action, ulong ul_iParam, string s_bitmap, ulong ul_winIni ) LIBRARY "USER32"
Luego para invocar la función desde su programa hágalo así:
[powerscript]
CONSTANT ulong SPISETDESKWALLPAPER = 20
string ls_wallpaper
//para hacer el cambio permanente
CONSTANT ulong SPIUPDATEINIFILE = 1
// unicamente es posible con BMP
// para usar un JPG, debe convertirlo en BMP primero.
ls_wallpaper = "C:WINDOWSapotec.bmp"
SystemParametersInfoA( SPISETDESKWALLPAPER, 0, ls_wallpaper, SPIUPDATEINIFILE )
---------- se encuentra en esta direccion http://www.powerbuilder.org/modules.php?name=News&file=article&sid=271
pero la imagen no cambia si alguien tiene un ejemplo se lo agradeceria es urgente
IkA pErÚ - dEyViS
Valora esta pregunta


0