[Ошибки] Смена обоев на рабочем столе

#Include <WinAPI.au3>
#include <GDIPlus.au3>

Global Const $SPI_SETDESKWALLPAPER            = 0x0014
Global Const $SPIF_UPDATEINIFILE                = 0x0001
Global Const $SPIF_SENDCHANGE                  = 0x0002

Func _ChangeDesktopBackground($sFile, $iPosition=3)
    Local $sCLSID, $tBuffer, $hImage, $sTemp

; Convert JPG image to BMP image
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($sFile)
    $sCLSID = _GDIPlus_EncodersGetCLSID("BMP")
    $sTemp  = _Str_ChangeFileExt($sFile, ".bmp")
    _GDIPlus_ImageSaveToFile($hImage, $sTemp)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()

; Set wallpaper position
    Switch $iPosition
        Case 1; Tile
            RegWrite('HKCU\Control Panel\Desktop', 'TileWallpaper' , 'reg_sz', '1')
            RegWrite('HKCU\Control Panel\Desktop', 'WallpaperStyle', 'reg_sz', '0')
        Case 2; Center
            RegWrite('HKCU\Control Panel\Desktop', 'TileWallpaper' , 'reg_sz', '0')
            RegWrite('HKCU\Control Panel\Desktop', 'WallpaperStyle', 'reg_sz', '0')
        Case 3; Stretch
            RegWrite('HKCU\Control Panel\Desktop', 'TileWallpaper' , 'reg_sz', '0')
            RegWrite('HKCU\Control Panel\Desktop', 'WallpaperStyle', 'reg_sz', '2')
    EndSwitch

; Set wallpaper
    $tBuffer = DllStructCreate("char Text[" & StringLen($sTemp) + 1 & "]")
    DllStructSetData($tBuffer, "Text", $sTemp)
    _WinAPI_SystemParametersInfo($SPI_SETDESKWALLPAPER, 1, DllStructGetPtr($tBuffer), BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
EndFunc

Func _Str_ChangeFileExt($sFileName, $sExtension)
  Local $iIndex

  $iIndex = _Str_LastDelimiter(".\:", $sFileName)
  if ($iIndex = 0) or (StringMid($sFileName, $iIndex, 1) <> ".") then $iIndex = StringLen($sFileName) + 1
  Return StringLeft($sFileName, $iIndex - 1) & $sExtension
EndFunc

Func _Str_LastDelimiter($sDelimiters, $sString)
  Local $iI, $iN, $sDelimiter

  for $iI = 1 to StringLen($sDelimiters)
    $sDelimiter = StringMid($sDelimiters, $iI, 1)
    $iN = StringInStr($sString, $sDelimiter, 0, -1)
    if $iN > 0 then Return $iN
  next
EndFunc

; НАЧАЛО

; Смена рисунка рабочего стола

 #include <gdiplus.au3>

 $SOURCE="X:\123.jpg"
 $TARGET=$SOURCE&".bmp"
 _GDIPlus_Startup()
 $IMAGE=_GDIPlus_ImageLoadFromFile($SOURCE)
 _GDIPlus_ImageSaveToFile($IMAGE,$TARGET)
 _GDIPlus_ShutDown()

 RegWrite('HKCU\Control Panel\Desktop','TileWallpaper' ,'reg_sz','0')
 RegWrite('HKCU\Control Panel\Desktop','WallpaperStyle','reg_sz','2')

 $tBuffer=DllStructCreate("char Text["&StringLen($TARGET)+1&"]")
 DllStructSetData($tBuffer,"Text",$TARGET)
 DllCall("user32.dll","int","SystemParametersInfo","int",0x0014,"int",0,"int",DllStructGetPtr($tBuffer),"int",0x0003)

; КОНЕЦ

$nError = _WinApiGetLastError() ; 2

$tBuffer = DllStructCreate("wchar Text[" & (StringLen($sTemp) * 2) + 1 & "]")

DllCall("user32.dll", "bool", "SystemParametersInfo", "uint", 0x0014, "uint", 0, "wstr", $TARGET, "uint", 0x0003)