Wallpaper setzen (Tiled oder Centred)

function PE_SetWallPaperEx(const pFileName: PChar; const bTiled: Bool):Bool;
 var
  hkResult: HKEY;
  lData    : Char;
begin

  Result := FALSE;

  if bTiled then lData := '1'
  else lData := '0';

  if ERROR_SUCCESS = RegOpenKeyEx(HKEY_CURRENT_USER,
                       PChar('Control PanelDesktop'),
                       0,
                       KEY_WRITE,
                       hkResult) then
  begin
    if ERROR_SUCCESS <> RegSetValueEx(hkResult,
                          'TileWallpaper',
                          0,
                          REG_SZ,
                          @lData,
                          1) then
    begin
      RegCloseKey(hkResult);
      Exit;
    end
    else
    RegCloseKey(hkResult);
  end
  else
  Exit;

  if SystemParametersInfo(SPI_SETDESKWALLPAPER,
                          0,
                          pFileName,
                          SPIF_SENDCHANGE OR SPIF_UPDATEINIFILE) then
  Result := True;
end;