FOROS PROFESIONALES
WINDEV
,
WEBDEV
y
WINDEV Mobile
Inicio
|
Mensajes recientes
|
Conéctese...
|
Desconectar
|
Español
Inicio
→
WINDEV 25
→
WX Informatica - Alterando o papel de parede do Windows
WX Informatica - Alterando o papel de parede do Windows
Iniciado por BOLLER, 13,nov. 2018 01:56 - No hay respuesta
Conéctese…
BOLLER
#1
Miembro registrado
3.657 mensajes
Popularité : +175 (223 votes)
Publicado el 13,noviembre 2018 - 01:56
// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Wallpaper ()
//
// Parameters:
//
None
// Return Value:
//
boolean: //
None
//
// For instance:
// Indicate an example.
//
Procedure
Wallpaper
(
)
// Alterando o Papel de parede do Windows
b
Alterado
is boolean
=
False
fMakeDir
(
"C:\Temp\"
)
WRegFondEcran
is string
=
"C:\Temp\sapo.jpg"
fCopyFile
(
"sapo.jpg"
,
"C:\Temp\sapo.jpg"
)
WChemin
is string
=
"HKEY_CURRENT_USER\Control Panel\Desktop"
IF
RegistrySetValue
(
WChemin
,
"Wallpaper"
,
WRegFondEcran
) =
False
Error
(
"Não foi possivel alterar o papel de parede"
)
b
Alterado
=
False
ELSE
b
Alterado
=
True
uAction
is int
uParam
is int
lpvParam
is string ASCIIZ on
255
uAction
=
20
uParam
=
0
lpvParam
=
WRegFondEcran
CallDLL32
(
"user32"
,
"SystemParametersInfoA"
,
uAction
,
uParam
,
&
lpvParam
,
0
)
END
RESULT
b
Alterado
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensaje modificado, 13,noviembre 2018 - 01:57
Informar
0
0
→ Volver a WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Búsqueda Tipo
Sólo temas
Todos los mensajes
Periodo Buscar
Cualquier fecha
Última hora
Última 24 horas
Última semana
Último mes
Último año
Cancelar
Vista previa del mensaje
Añadiendo una imagen
Importar una imagen desde una URL
Enviar una imagen desde un archivo de su disco
Arrastrar un archivo o click en "Examinar..."
o
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto