PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 25 → WX Informatica - Alterando o papel de parede do Windows
WX Informatica - Alterando o papel de parede do Windows
Started by BOLLER, Nov., 13 2018 1:56 AM - No answer
Registered member
3,651 messages
Popularité : +175 (223 votes)
Posted on November, 13 2018 - 1:56 AM
// 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
bAlterado 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")
bAlterado = False
ELSE
bAlterado = 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 bAlterado


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Message modified, November, 13 2018 - 1:57 AM