制作方法：
在D内用 FileXtra3 Xtra 把舞台拷贝给到系统文件夹内：
"Picture":
tempTarget = fxObj.fx_fileSaveAsDialog ("C:\" ,"Jajce.Bmp","Enter a filename to save the picture",True)
updatestage
starttimer
repeat while the timer < 60
end repeat
updatestage
"WallPaper":
tempTarget = fxObj.fx_folderGetSpecialPath("CSIDL_WINDOWS")
tempTarget = tempTarget & "Zjfq.Bmp"
拷贝完后调用一个外部的执行设置桌面背景的程序
用VB写一个设置wallpaper的程序：
Option Explicit
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
Const SPIF_UPDATEINIFILE = &H1
Const SPI_SETDESKWALLPAPER = 20
Const SPIF_SENDWININICHANGE = &H2
Dim X As Long
'Above: ?? Has to do with the actual changing of the wallpaper and is not my code
Dim FileName As String 'stores the filename
Dim Preview As Boolean 'If preview is enabled or not
Private Sub Form_Load()
FileName = "c:\winnt\zjfq.bmp"
'if file is selected set current file to wallpaper
X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End
End Sub
记得把Form设置成不可见
