英语翻译Private Declare Function GetWindowsDirectory Lib "kernel

英语翻译
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String,ByVal nSize As Long) As Long Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long,ByVal uParam As Long,ByVal lpvParam As Any,ByVal fuWinIni As Long) As Long Const SPI_SETDESKWALLPAPER = 20 Const SPIF_SENDWININICHANGE = &H2 Const SPIF_UPDATEINIFILE = &H1 Const REG_SZ As Long = 1 Const HKEY_CURRENT_USER = &H80000001 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long,ByVal lpSubKey As String,ByVal ulOptions As Long,ByVal samDesired As Long,phkResult As Long) As Long Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long,ByVal lpValueName As String,ByVal Reserved As Long,ByVal dwType As Long,ByVal lpValue As String,ByVal cbData As Long) As Long Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long,ByVal lpValueName As String,ByVal Reserved As Long,ByVal dwType As Long,lpValue As Long,ByVal cbData As Long) As Long

私人声明函数GetWindowsDirectory自由“kernel32“别名”GetWindowsDirectoryA”(按值传递lpBuffer作为字符串,按值传递nSize一样长)作为长私人声明函数SystemParametersInfo自由“user32“别名”SystemParametersInfoA”(按值传递uAction一样长,按值传递uParam一样长,按值传递lpvParam,按值传递fuWinIni很久)一样长SPI_SETDESKWALLPAPER Const = 20 Const SPIF_SENDWININICHANGE = &H2 Const SPIF_UPDATEINIFILE = &H1 Const reg深圳长= 1 Const根键当前用户= &H80000001私人声明函数RegCloseKey advapi32 Lib ".dll”(按值传递根键一样长)作为长私人声明函数RegOpenKeyEx自由“advapi32.dll”别名“RegOpenKeyExA”(按值传递根键长,按值传递lpSubKey作为字符串,按值传递ulOptions一样长,按值传递samDesired一样长,phkResult一样长)作为长私人声明函数RegSetValueExString自由“advapi32.dll”别名“RegSetValueExA”(按值传递根键长,按值传递lpValueName作为字符串,按值传递保留多久,按值传递dwType一样长,按值传递lpValue作为字符串,按值传递cbData一样长)作为长私人声明函数RegSetValueExLong自由“advapi32.dll“别名”RegSetValueExA”(按值传递根键长,按值传递lpValueName作为字符串,按值传递,按值传递dwType保留多久多久,lpValue一样长,按值传递cbData很久)一样长