Desktop Management スクリプト言語 › 関数 › 例： スクリプト関数からの DLL の使用

例： スクリプト関数からの DLL の使用

このスクリプトでは、Asset Management スクリプトで関数を使用する方法が説明されています。

Rem
以下の例では、Windows NT または Windows 95/98 に壁紙を設定します。 
Rem でシステム DLL 呼び出しを使用します。
Rem
#if Win32
  '32 ビットの関数の宣言
 Function SystemParametersInfo Lib "USER32.DLL" Alias "SystemParametersInfoA" ( uiAction as Word,uiParam as Word,pvParam as String, fWinIni as Word) as Boolean
#EndIf

'フラグの定義
Dim SPI_SETDESKWALLPAPER as integer
Dim SPIF_UPDATEINIFILE as integer
Dim SPIF_SENDWININICHANGE as integer
'システム フラグの設定
SPI_SETDESKWALLPAPER = 20
SPIF_UPDATEINIFILE = 0x0001
SPIF_SENDWININICHANGE = 0x0002

'システム関数の呼び出し
SystemParametersInfo(SPI_SETDESKWALLPAPER,0,"c:\winnt\winnt.bmp", SPIF_UPDATEINIFILE OR SPIF_SENDWININICHANGE)