AU3更改桌面壁纸源码

什么都不多说,直接上源码,只支持*.bmp格式图片。

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Program Files (x86)\AutoIt3\Aut2Exe\Icons\AutoIt_Main_v10_48x48_256.ico
#AutoIt3Wrapper_Res_Comment=软件开发:QQ:33706066
#AutoIt3Wrapper_Res_Description=灵阳星空
#AutoIt3Wrapper_Res_Fileversion=1.0.0
#AutoIt3Wrapper_Res_LegalCopyright=灵阳星空
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include<process.au3>
$s_BitmapImage="Y:\whjk\liantong.bmp"
_SetWallpaper($s_BitmapImage, 0)
Func _SetWallpaper($s_BitmapImage, $l_params = 0)
 RegWrite('HKEY_CURRENT_USER\Control Panel\Desktop','TileWallpaper','reg_sz','0')
 RegWrite('HKEY_CURRENT_USER\Control Panel\Desktop','WallpaperStyle','reg_sz','0')
 $ai_Ret = DllCall('user32.dll', 'long', 'SystemParametersInfoA', 'long', 20, 'long', 0, 'str', $s_BitmapImage, 'long', $l_params)
 Return $ai_Ret[0]
EndFunc
© 版权声明
THE END
喜欢就支持一下吧
点赞5赞赏
分享
评论 抢沙发

请登录后发表评论