Manuel du langage de script Desktop Management › Fonctions › Exemple : Utilisation de DLL à partir d'une fonction de script

Exemple : Utilisation de DLL à partir d'une fonction de script

Le script explique l'utilisation de fonctions dans des scripts de gestion des actifs

Rem
Rem Cet exemple définit le papier peint sous Windows NT ou Windows 95/98 
Rem en utilisant un appel de DLL système.
Rem
#if Win32
  'Déclaration 32 bits de la fonction
 Function SystemParametersInfo Lib "USER32.DLL" Alias "SystemParametersInfoA" ( uiAction as Word,uiParam as Word,pvParam as String, fWinIni as Word) as Boolean
#EndIf

'Définissez les indicateurs
Dim SPI_SETDESKWALLPAPER as integer
Dim SPIF_UPDATEINIFILE as integer
Dim SPIF_SENDWININICHANGE as integer
'Définissez les indicateurs système
SPI_SETDESKWALLPAPER = 20
SPIF_UPDATEINIFILE = 0x0001
SPIF_SENDWININICHANGE = 0x0002

'Appelez la fonction système
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:\winnt\winnt.bmp", SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)