#include "llmod.as"

#define SPI_SETDESKWALLPAPER 20  ;壁紙を変更する
#define SPIF_UPDATEINIFILE    1  ;INIをアッフデート
#define SPIF_SENDWININICHANGE 2  ;INIに基づいて更新

dialog "bmp",16,"ビットマップ" : if stat!1 : end

sdim file,1024 : file=refstr : bload file,bm,2
if bm!19778 : dialog "ビットマップしか変更できません。",1,"エラー" : end

prm.0 = SPI_SETDESKWALLPAPER
prm.1 = 0
getptr prm.2,file
prm.3 = SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE
dllproc "SystemParametersInfoA",prm,4,D_USER