取得桌面壁紙路徑

syhsieh · 发表于 2013-8-15 17:06:37

本帖最后由 syhsieh 于 2013-8-15 17:08 编辑

拜讀了那麼多的文章
好像沒有人PO關於如何取得桌面壁紙路徑的文章
其實很簡單
我把設定壁紙的程式拿來應用一下就出來了

Func z_GetWallpaperFilename()
        Return RegRead("HKEY_CURRENT_USER\Control Panel\Desktop", "Wallpaper")
EndFunc

$OldWallpaperFilename = z_GetWallpaperFilename()

_ImageFileChange(@ScriptDir & "\_pic\P1.jpg", @TempDir & "\GDIPlus_Image.bmp", "BMP")
_ChangeDesktopWallpaper(@TempDir & "\GDIPlus_Image.bmp", 2)

$NewWallpaperFilename = z_GetWallpaperFilename()
MsgBox(0,"","Old Wallpaper Filename = "&$OldWallpaperFilename &@CRLF&"New Wallpaper Filename = "&$NewWallpaperFilename)

漫反射 · 发表于 2013-8-15 19:55:58

那只能说明你拜读的文章还不多

eeee0704 · 发表于 2015-10-10 14:44:49

不错~`··`·

eeee0704 · 发表于 2015-10-10 14:44:51

不错~`··`·

		自动登录	找回密码
密码			加入

[原创] 取得桌面壁紙路徑

评分