git.oblomov.eu Git - wine/blob - dlls/advapi32/registry.c

   1 /*
   2  * Registry management
   3  *
   4  * Copyright (C) 1999 Alexandre Julliard
   5  *
   6  * Based on misc/registry.c code
   7  * Copyright (C) 1996 Marcus Meissner
   8  * Copyright (C) 1998 Matthew Becker
   9  * Copyright (C) 1999 Sylvain St-Germain
  10  *
  11  * This file is concerned about handle management and interaction with the Wine server.
  12  * Registry file I/O is in misc/registry.c.
  13  */
  14
  15 #include <stdlib.h>
  16 #include <stdio.h>
  17 #include <unistd.h>
  18
  19 #include "winbase.h"
  20 #include "winreg.h"
  21 #include "winerror.h"
  22 #include "wine/unicode.h"
  23 #include "heap.h"
  24 #include "wine/server.h"
  25 #include "debugtools.h"
  26
  27 DEFAULT_DEBUG_CHANNEL(reg);
  28
  29
  30 /* check if value type needs string conversion (Ansi<->Unicode) */
  31 static inline int is_string( DWORD type )
  32 {
  33     return (type == REG_SZ) || (type == REG_EXPAND_SZ) || (type == REG_MULTI_SZ);
  34 }
  35
  36
  37 /******************************************************************************
  38  *           RegCreateKeyExW   [ADVAPI32.@]
  39  *
  40  * PARAMS
  41  *    hkey       [I] Handle of an open key
  42  *    name       [I] Address of subkey name
  43  *    reserved   [I] Reserved - must be 0
  44  *    class      [I] Address of class string
  45  *    options    [I] Special options flag
  46  *    access     [I] Desired security access
  47  *    sa         [I] Address of key security structure
  48  *    retkey     [O] Address of buffer for opened handle
  49  *    dispos     [O] Receives REG_CREATED_NEW_KEY or REG_OPENED_EXISTING_KEY
  50  *
  51  * NOTES
  52  *  in case of failing retkey remains untouched
  53  */
  54 DWORD WINAPI RegCreateKeyExW( HKEY hkey, LPCWSTR name, DWORD reserved, LPWSTR class,
  55                               DWORD options, REGSAM access, SECURITY_ATTRIBUTES *sa,
  56                               LPHKEY retkey, LPDWORD dispos )
  57 {
  58     OBJECT_ATTRIBUTES attr;
  59     UNICODE_STRING nameW, classW;
  60
  61     if (reserved) return ERROR_INVALID_PARAMETER;
  62     if (!(access & KEY_ALL_ACCESS) || (access & ~KEY_ALL_ACCESS)) return ERROR_ACCESS_DENIED;
  63
  64     attr.Length = sizeof(attr);
  65     attr.RootDirectory = hkey;
  66     attr.ObjectName = &nameW;
  67     attr.Attributes = 0;
  68     attr.SecurityDescriptor = NULL;
  69     attr.SecurityQualityOfService = NULL;
  70     RtlInitUnicodeString( &nameW, name );
  71     RtlInitUnicodeString( &classW, class );
  72
  73     return RtlNtStatusToDosError( NtCreateKey( retkey, access, &attr, 0,
  74                                                &classW, options, dispos ) );
  75 }
  76
  77
  78 /******************************************************************************
  79  *           RegCreateKeyExA   [ADVAPI32.@]
  80  */
  81 DWORD WINAPI RegCreateKeyExA( HKEY hkey, LPCSTR name, DWORD reserved, LPSTR class,
  82                               DWORD options, REGSAM access, SECURITY_ATTRIBUTES *sa,
  83                               LPHKEY retkey, LPDWORD dispos )
  84 {
  85     OBJECT_ATTRIBUTES attr;
  86     UNICODE_STRING classW;
  87     ANSI_STRING nameA, classA;
  88     NTSTATUS status;
  89
  90     if (reserved) return ERROR_INVALID_PARAMETER;
  91     if (!(access & KEY_ALL_ACCESS) || (access & ~KEY_ALL_ACCESS)) return ERROR_ACCESS_DENIED;
  92
  93     attr.Length = sizeof(attr);
  94     attr.RootDirectory = hkey;
  95     attr.ObjectName = &NtCurrentTeb()->StaticUnicodeString;
  96     attr.Attributes = 0;
  97     attr.SecurityDescriptor = NULL;
  98     attr.SecurityQualityOfService = NULL;
  99     RtlInitAnsiString( &nameA, name );
 100     RtlInitAnsiString( &classA, class );
 101
 102     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 103                                                  &nameA, FALSE )))
 104     {
 105         if (!(status = RtlAnsiStringToUnicodeString( &classW, &classA, TRUE )))
 106         {
 107             status = NtCreateKey( retkey, access, &attr, 0, &classW, options, dispos );
 108             RtlFreeUnicodeString( &classW );
 109         }
 110     }
 111     return RtlNtStatusToDosError( status );
 112 }
 113
 114
 115 /******************************************************************************
 116  *           RegCreateKeyW   [ADVAPI32.@]
 117  */
 118 DWORD WINAPI RegCreateKeyW( HKEY hkey, LPCWSTR name, LPHKEY retkey )
 119 {
 120     /* FIXME: previous implementation converted ERROR_INVALID_HANDLE to ERROR_BADKEY, */
 121     /* but at least my version of NT (4.0 SP5) doesn't do this.  -- AJ */
 122     return RegCreateKeyExW( hkey, name, 0, NULL, REG_OPTION_NON_VOLATILE,
 123                             KEY_ALL_ACCESS, NULL, retkey, NULL );
 124 }
 125
 126
 127 /******************************************************************************
 128  *           RegCreateKeyA   [ADVAPI32.@]
 129  */
 130 DWORD WINAPI RegCreateKeyA( HKEY hkey, LPCSTR name, LPHKEY retkey )
 131 {
 132     return RegCreateKeyExA( hkey, name, 0, NULL, REG_OPTION_NON_VOLATILE,
 133                             KEY_ALL_ACCESS, NULL, retkey, NULL );
 134 }
 135
 136
 137
 138 /******************************************************************************
 139  *           RegOpenKeyExW   [ADVAPI32.@]
 140  *
 141  * Opens the specified key
 142  *
 143  * Unlike RegCreateKeyEx, this does not create the key if it does not exist.
 144  *
 145  * PARAMS
 146  *    hkey       [I] Handle of open key
 147  *    name       [I] Name of subkey to open
 148  *    reserved   [I] Reserved - must be zero
 149  *    access     [I] Security access mask
 150  *    retkey     [O] Handle to open key
 151  *
 152  * RETURNS
 153  *    Success: ERROR_SUCCESS
 154  *    Failure: Error code
 155  *
 156  * NOTES
 157  *  in case of failing is retkey = 0
 158  */
 159 DWORD WINAPI RegOpenKeyExW( HKEY hkey, LPCWSTR name, DWORD reserved, REGSAM access, LPHKEY retkey )
 160 {
 161     OBJECT_ATTRIBUTES attr;
 162     UNICODE_STRING nameW;
 163
 164     attr.Length = sizeof(attr);
 165     attr.RootDirectory = hkey;
 166     attr.ObjectName = &nameW;
 167     attr.Attributes = 0;
 168     attr.SecurityDescriptor = NULL;
 169     attr.SecurityQualityOfService = NULL;
 170     RtlInitUnicodeString( &nameW, name );
 171     return RtlNtStatusToDosError( NtOpenKey( retkey, access, &attr ) );
 172 }
 173
 174
 175 /******************************************************************************
 176  *           RegOpenKeyExA   [ADVAPI32.@]
 177  */
 178 DWORD WINAPI RegOpenKeyExA( HKEY hkey, LPCSTR name, DWORD reserved, REGSAM access, LPHKEY retkey )
 179 {
 180     OBJECT_ATTRIBUTES attr;
 181     STRING nameA;
 182     NTSTATUS status;
 183
 184     attr.Length = sizeof(attr);
 185     attr.RootDirectory = hkey;
 186     attr.ObjectName = &NtCurrentTeb()->StaticUnicodeString;
 187     attr.Attributes = 0;
 188     attr.SecurityDescriptor = NULL;
 189     attr.SecurityQualityOfService = NULL;
 190
 191     RtlInitAnsiString( &nameA, name );
 192     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 193                                                  &nameA, FALSE )))
 194     {
 195         status = NtOpenKey( retkey, access, &attr );
 196     }
 197     return RtlNtStatusToDosError( status );
 198 }
 199
 200
 201 /******************************************************************************
 202  *           RegOpenKeyW   [ADVAPI32.@]
 203  *
 204  * PARAMS
 205  *    hkey    [I] Handle of open key
 206  *    name    [I] Address of name of subkey to open
 207  *    retkey  [O] Handle to open key
 208  *
 209  * RETURNS
 210  *    Success: ERROR_SUCCESS
 211  *    Failure: Error code
 212  *
 213  * NOTES
 214  *  in case of failing is retkey = 0
 215  */
 216 DWORD WINAPI RegOpenKeyW( HKEY hkey, LPCWSTR name, LPHKEY retkey )
 217 {
 218     return RegOpenKeyExW( hkey, name, 0, KEY_ALL_ACCESS, retkey );
 219 }
 220
 221
 222 /******************************************************************************
 223  *           RegOpenKeyA   [ADVAPI32.@]
 224  */
 225 DWORD WINAPI RegOpenKeyA( HKEY hkey, LPCSTR name, LPHKEY retkey )
 226 {
 227     return RegOpenKeyExA( hkey, name, 0, KEY_ALL_ACCESS, retkey );
 228 }
 229
 230
 231 /******************************************************************************
 232  *           RegOpenCurrentUser   [ADVAPI32.@]
 233  * FIXME: This function is supposed to retrieve a handle to the
 234  * HKEY_CURRENT_USER for the user the current thread is impersonating.
 235  * Since Wine does not currently allow threads to impersonate other users,
 236  * this stub should work fine.
 237  */
 238 DWORD WINAPI RegOpenCurrentUser( REGSAM access, PHKEY retkey )
 239 {
 240     return RegOpenKeyExA( HKEY_CURRENT_USER, "", 0, access, retkey );
 241 }
 242
 243
 244
 245 /******************************************************************************
 246  *           RegEnumKeyExW   [ADVAPI32.@]
 247  *
 248  * PARAMS
 249  *    hkey         [I] Handle to key to enumerate
 250  *    index        [I] Index of subkey to enumerate
 251  *    name         [O] Buffer for subkey name
 252  *    name_len     [O] Size of subkey buffer
 253  *    reserved     [I] Reserved
 254  *    class        [O] Buffer for class string
 255  *    class_len    [O] Size of class buffer
 256  *    ft           [O] Time key last written to
 257  */
 258 DWORD WINAPI RegEnumKeyExW( HKEY hkey, DWORD index, LPWSTR name, LPDWORD name_len,
 259                             LPDWORD reserved, LPWSTR class, LPDWORD class_len, FILETIME *ft )
 260 {
 261     NTSTATUS status;
 262     char buffer[256], *buf_ptr = buffer;
 263     KEY_NODE_INFORMATION *info = (KEY_NODE_INFORMATION *)buffer;
 264     DWORD total_size;
 265
 266     TRACE( "(0x%x,%ld,%p,%p(%ld),%p,%p,%p,%p)\n", hkey, index, name, name_len,
 267            name_len ? *name_len : -1, reserved, class, class_len, ft );
 268
 269     if (reserved) return ERROR_INVALID_PARAMETER;
 270
 271     status = NtEnumerateKey( hkey, index, KeyNodeInformation,
 272                              buffer, sizeof(buffer), &total_size );
 273
 274     while (status == STATUS_BUFFER_OVERFLOW)
 275     {
 276         /* retry with a dynamically allocated buffer */
 277         if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 278         if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 279             return ERROR_NOT_ENOUGH_MEMORY;
 280         info = (KEY_NODE_INFORMATION *)buf_ptr;
 281         status = NtEnumerateKey( hkey, index, KeyNodeInformation,
 282                                  buf_ptr, total_size, &total_size );
 283     }
 284
 285     if (!status)
 286     {
 287         DWORD len = info->NameLength / sizeof(WCHAR);
 288         DWORD cls_len = info->ClassLength / sizeof(WCHAR);
 289
 290         if (ft) *ft = info->LastWriteTime;
 291
 292         if (len >= *name_len || (class_len && (cls_len >= *class_len)))
 293             status = STATUS_BUFFER_OVERFLOW;
 294         else
 295         {
 296             *name_len = len;
 297             memcpy( name, info->Name, info->NameLength );
 298             name[len] = 0;
 299             if (class_len)
 300             {
 301                 *class_len = cls_len;
 302                 if (class)
 303                 {
 304                     memcpy( class, buf_ptr + info->ClassOffset, info->ClassLength );
 305                     class[cls_len] = 0;
 306                 }
 307             }
 308         }
 309     }
 310
 311     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 312     return RtlNtStatusToDosError( status );
 313 }
 314
 315
 316 /******************************************************************************
 317  *           RegEnumKeyExA   [ADVAPI32.@]
 318  */
 319 DWORD WINAPI RegEnumKeyExA( HKEY hkey, DWORD index, LPSTR name, LPDWORD name_len,
 320                             LPDWORD reserved, LPSTR class, LPDWORD class_len, FILETIME *ft )
 321 {
 322     NTSTATUS status;
 323     char buffer[256], *buf_ptr = buffer;
 324     KEY_NODE_INFORMATION *info = (KEY_NODE_INFORMATION *)buffer;
 325     DWORD total_size;
 326
 327     TRACE( "(0x%x,%ld,%p,%p(%ld),%p,%p,%p,%p)\n", hkey, index, name, name_len,
 328            name_len ? *name_len : -1, reserved, class, class_len, ft );
 329
 330     if (reserved) return ERROR_INVALID_PARAMETER;
 331
 332     status = NtEnumerateKey( hkey, index, KeyNodeInformation,
 333                              buffer, sizeof(buffer), &total_size );
 334
 335     while (status == STATUS_BUFFER_OVERFLOW)
 336     {
 337         /* retry with a dynamically allocated buffer */
 338         if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 339         if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 340             return ERROR_NOT_ENOUGH_MEMORY;
 341         info = (KEY_NODE_INFORMATION *)buf_ptr;
 342         status = NtEnumerateKey( hkey, index, KeyNodeInformation,
 343                                  buf_ptr, total_size, &total_size );
 344     }
 345
 346     if (!status)
 347     {
 348         DWORD len = WideCharToMultiByte( CP_ACP, 0, info->Name, info->NameLength/sizeof(WCHAR),
 349                                          NULL, 0, NULL, NULL );
 350         DWORD cls_len = WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info->ClassOffset),
 351                                              info->ClassLength / sizeof(WCHAR),
 352                                              NULL, 0, NULL, NULL );
 353
 354         if (ft) *ft = info->LastWriteTime;
 355
 356         if (len >= *name_len || (class_len && (cls_len >= *class_len)))
 357             status = STATUS_BUFFER_OVERFLOW;
 358         else
 359         {
 360             *name_len = len;
 361             WideCharToMultiByte( CP_ACP, 0, info->Name, info->NameLength/sizeof(WCHAR),
 362                                  name, len, NULL, NULL );
 363             name[len] = 0;
 364             if (class_len)
 365             {
 366                 *class_len = cls_len;
 367                 if (class)
 368                 {
 369                     WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info->ClassOffset),
 370                                          info->ClassLength / sizeof(WCHAR),
 371                                          class, cls_len, NULL, NULL );
 372                     class[cls_len] = 0;
 373                 }
 374             }
 375         }
 376     }
 377
 378     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 379     return RtlNtStatusToDosError( status );
 380 }
 381
 382
 383 /******************************************************************************
 384  *           RegEnumKeyW   [ADVAPI32.@]
 385  */
 386 DWORD WINAPI RegEnumKeyW( HKEY hkey, DWORD index, LPWSTR name, DWORD name_len )
 387 {
 388     return RegEnumKeyExW( hkey, index, name, &name_len, NULL, NULL, NULL, NULL );
 389 }
 390
 391
 392 /******************************************************************************
 393  *           RegEnumKeyA   [ADVAPI32.@]
 394  */
 395 DWORD WINAPI RegEnumKeyA( HKEY hkey, DWORD index, LPSTR name, DWORD name_len )
 396 {
 397     return RegEnumKeyExA( hkey, index, name, &name_len, NULL, NULL, NULL, NULL );
 398 }
 399
 400
 401 /******************************************************************************
 402  *           RegQueryInfoKeyW   [ADVAPI32.@]
 403  *
 404  * PARAMS
 405  *    hkey       [I] Handle to key to query
 406  *    class      [O] Buffer for class string
 407  *    class_len  [O] Size of class string buffer
 408  *    reserved   [I] Reserved
 409  *    subkeys    [O] Buffer for number of subkeys
 410  *    max_subkey [O] Buffer for longest subkey name length
 411  *    max_class  [O] Buffer for longest class string length
 412  *    values     [O] Buffer for number of value entries
 413  *    max_value  [O] Buffer for longest value name length
 414  *    max_data   [O] Buffer for longest value data length
 415  *    security   [O] Buffer for security descriptor length
 416  *    modif      [O] Modification time
 417  *
 418  * - win95 allows class to be valid and class_len to be NULL
 419  * - winnt returns ERROR_INVALID_PARAMETER if class is valid and class_len is NULL
 420  * - both allow class to be NULL and class_len to be NULL
 421  * (it's hard to test validity, so test !NULL instead)
 422  */
 423 DWORD WINAPI RegQueryInfoKeyW( HKEY hkey, LPWSTR class, LPDWORD class_len, LPDWORD reserved,
 424                                LPDWORD subkeys, LPDWORD max_subkey, LPDWORD max_class,
 425                                LPDWORD values, LPDWORD max_value, LPDWORD max_data,
 426                                LPDWORD security, FILETIME *modif )
 427 {
 428     NTSTATUS status;
 429     char buffer[256], *buf_ptr = buffer;
 430     KEY_FULL_INFORMATION *info = (KEY_FULL_INFORMATION *)buffer;
 431     DWORD total_size;
 432
 433     TRACE( "(0x%x,%p,%ld,%p,%p,%p,%p,%p,%p,%p,%p)\n", hkey, class, class_len ? *class_len : 0,
 434            reserved, subkeys, max_subkey, values, max_value, max_data, security, modif );
 435
 436     if (class && !class_len && !(GetVersion() & 0x80000000 /*NT*/))
 437         return ERROR_INVALID_PARAMETER;
 438
 439     status = NtQueryKey( hkey, KeyFullInformation, buffer, sizeof(buffer), &total_size );
 440     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 441
 442     if (class)
 443     {
 444         /* retry with a dynamically allocated buffer */
 445         while (status == STATUS_BUFFER_OVERFLOW)
 446         {
 447             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 448             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 449                 return ERROR_NOT_ENOUGH_MEMORY;
 450             info = (KEY_FULL_INFORMATION *)buf_ptr;
 451             status = NtQueryKey( hkey, KeyFullInformation, buf_ptr, total_size, &total_size );
 452         }
 453
 454         if (status) goto done;
 455
 456         if (class_len && (info->ClassLength/sizeof(WCHAR) + 1 > *class_len))
 457         {
 458             status = STATUS_BUFFER_OVERFLOW;
 459         }
 460         else
 461         {
 462             memcpy( class, buf_ptr + info->ClassOffset, info->ClassLength );
 463             class[info->ClassLength/sizeof(WCHAR)] = 0;
 464         }
 465     }
 466     else status = STATUS_SUCCESS;
 467
 468     if (class_len) *class_len = info->ClassLength / sizeof(WCHAR);
 469     if (subkeys) *subkeys = info->SubKeys;
 470     if (max_subkey) *max_subkey = info->MaxNameLen;
 471     if (max_class) *max_class = info->MaxClassLen;
 472     if (values) *values = info->Values;
 473     if (max_value) *max_value = info->MaxValueNameLen;
 474     if (max_data) *max_data = info->MaxValueDataLen;
 475     if (modif) *modif = info->LastWriteTime;
 476
 477  done:
 478     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 479     return RtlNtStatusToDosError( status );
 480 }
 481
 482
 483 /******************************************************************************
 484  *           RegQueryInfoKeyA   [ADVAPI32.@]
 485  */
 486 DWORD WINAPI RegQueryInfoKeyA( HKEY hkey, LPSTR class, LPDWORD class_len, LPDWORD reserved,
 487                                LPDWORD subkeys, LPDWORD max_subkey, LPDWORD max_class,
 488                                LPDWORD values, LPDWORD max_value, LPDWORD max_data,
 489                                LPDWORD security, FILETIME *modif )
 490 {
 491     NTSTATUS status;
 492     char buffer[256], *buf_ptr = buffer;
 493     KEY_FULL_INFORMATION *info = (KEY_FULL_INFORMATION *)buffer;
 494     DWORD total_size, len;
 495
 496     TRACE( "(0x%x,%p,%ld,%p,%p,%p,%p,%p,%p,%p,%p)\n", hkey, class, class_len ? *class_len : 0,
 497            reserved, subkeys, max_subkey, values, max_value, max_data, security, modif );
 498
 499     if (class && !class_len && !(GetVersion() & 0x80000000 /*NT*/))
 500         return ERROR_INVALID_PARAMETER;
 501
 502     status = NtQueryKey( hkey, KeyFullInformation, buffer, sizeof(buffer), &total_size );
 503     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 504
 505     if (class || class_len)
 506     {
 507         /* retry with a dynamically allocated buffer */
 508         while (status == STATUS_BUFFER_OVERFLOW)
 509         {
 510             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 511             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 512                 return ERROR_NOT_ENOUGH_MEMORY;
 513             info = (KEY_FULL_INFORMATION *)buf_ptr;
 514             status = NtQueryKey( hkey, KeyFullInformation, buf_ptr, total_size, &total_size );
 515         }
 516
 517         if (status) goto done;
 518
 519         len = WideCharToMultiByte( CP_ACP, 0,
 520                                    (WCHAR *)(buf_ptr + info->ClassOffset),
 521                                    info->ClassLength/sizeof(WCHAR),
 522                                    NULL, 0, NULL, NULL );
 523         if (class_len)
 524         {
 525             if (len + 1 > *class_len) status = STATUS_BUFFER_OVERFLOW;
 526             *class_len = len;
 527         }
 528         if (class && !status)
 529         {
 530             WideCharToMultiByte( CP_ACP, 0,
 531                                  (WCHAR *)(buf_ptr + info->ClassOffset),
 532                                  info->ClassLength/sizeof(WCHAR),
 533                                  class, len, NULL, NULL );
 534             class[len] = 0;
 535         }
 536     }
 537     else status = STATUS_SUCCESS;
 538
 539     if (subkeys) *subkeys = info->SubKeys;
 540     if (max_subkey) *max_subkey = info->MaxNameLen;
 541     if (max_class) *max_class = info->MaxClassLen;
 542     if (values) *values = info->Values;
 543     if (max_value) *max_value = info->MaxValueNameLen;
 544     if (max_data) *max_data = info->MaxValueDataLen;
 545     if (modif) *modif = info->LastWriteTime;
 546
 547  done:
 548     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 549     return RtlNtStatusToDosError( status );
 550 }
 551
 552
 553 /******************************************************************************
 554  *           RegCloseKey   [ADVAPI32.@]
 555  *
 556  * Releases the handle of the specified key
 557  *
 558  * PARAMS
 559  *    hkey [I] Handle of key to close
 560  *
 561  * RETURNS
 562  *    Success: ERROR_SUCCESS
 563  *    Failure: Error code
 564  */
 565 DWORD WINAPI RegCloseKey( HKEY hkey )
 566 {
 567     if (!hkey || hkey >= 0x80000000) return ERROR_SUCCESS;
 568     return RtlNtStatusToDosError( NtClose( hkey ) );
 569 }
 570
 571
 572 /******************************************************************************
 573  *           RegDeleteKeyW   [ADVAPI32.@]
 574  *
 575  * PARAMS
 576  *    hkey   [I] Handle to open key
 577  *    name   [I] Name of subkey to delete
 578  *
 579  * RETURNS
 580  *    Success: ERROR_SUCCESS
 581  *    Failure: Error code
 582  */
 583 DWORD WINAPI RegDeleteKeyW( HKEY hkey, LPCWSTR name )
 584 {
 585     DWORD ret;
 586     HKEY tmp;
 587
 588     if (!name || !*name) return NtDeleteKey( hkey );
 589     if (!(ret = RegOpenKeyExW( hkey, name, 0, 0, &tmp )))
 590     {
 591         ret = RtlNtStatusToDosError( NtDeleteKey( tmp ) );
 592         RegCloseKey( tmp );
 593     }
 594     return ret;
 595 }
 596
 597
 598 /******************************************************************************
 599  *           RegDeleteKeyA   [ADVAPI32.@]
 600  */
 601 DWORD WINAPI RegDeleteKeyA( HKEY hkey, LPCSTR name )
 602 {
 603     DWORD ret;
 604     HKEY tmp;
 605
 606     if (!name || !*name) return NtDeleteKey( hkey );
 607     if (!(ret = RegOpenKeyExA( hkey, name, 0, 0, &tmp )))
 608     {
 609         ret = RtlNtStatusToDosError( NtDeleteKey( tmp ) );
 610         RegCloseKey( tmp );
 611     }
 612     return ret;
 613 }
 614
 615
 616
 617 /******************************************************************************
 618  *           RegSetValueExW   [ADVAPI32.@]
 619  *
 620  * Sets the data and type of a value under a register key
 621  *
 622  * PARAMS
 623  *    hkey       [I] Handle of key to set value for
 624  *    name       [I] Name of value to set
 625  *    reserved   [I] Reserved - must be zero
 626  *    type       [I] Flag for value type
 627  *    data       [I] Address of value data
 628  *    count      [I] Size of value data
 629  *
 630  * RETURNS
 631  *    Success: ERROR_SUCCESS
 632  *    Failure: Error code
 633  *
 634  * NOTES
 635  *   win95 does not care about count for REG_SZ and finds out the len by itself (js)
 636  *   NT does definitely care (aj)
 637  */
 638 DWORD WINAPI RegSetValueExW( HKEY hkey, LPCWSTR name, DWORD reserved,
 639                              DWORD type, CONST BYTE *data, DWORD count )
 640 {
 641     UNICODE_STRING nameW;
 642
 643     if (GetVersion() & 0x80000000)  /* win95 */
 644     {
 645         if (type == REG_SZ) count = (strlenW( (WCHAR *)data ) + 1) * sizeof(WCHAR);
 646     }
 647     else if (count && is_string(type))
 648     {
 649         LPCWSTR str = (LPCWSTR)data;
 650         /* if user forgot to count terminating null, add it (yes NT does this) */
 651         if (str[count / sizeof(WCHAR) - 1] && !str[count / sizeof(WCHAR)])
 652             count += sizeof(WCHAR);
 653     }
 654
 655     RtlInitUnicodeString( &nameW, name );
 656     return RtlNtStatusToDosError( NtSetValueKey( hkey, &nameW, 0, type, data, count ) );
 657 }
 658
 659
 660 /******************************************************************************
 661  *           RegSetValueExA   [ADVAPI32.@]
 662  */
 663 DWORD WINAPI RegSetValueExA( HKEY hkey, LPCSTR name, DWORD reserved, DWORD type,
 664                              CONST BYTE *data, DWORD count )
 665 {
 666     ANSI_STRING nameA;
 667     WCHAR *dataW = NULL;
 668     NTSTATUS status;
 669
 670     if (GetVersion() & 0x80000000)  /* win95 */
 671     {
 672         if (type == REG_SZ) count = strlen(data) + 1;
 673     }
 674     else if (count && is_string(type))
 675     {
 676         /* if user forgot to count terminating null, add it (yes NT does this) */
 677         if (data[count-1] && !data[count]) count++;
 678     }
 679
 680     if (is_string( type )) /* need to convert to Unicode */
 681     {
 682         DWORD lenW = MultiByteToWideChar( CP_ACP, 0, data, count, NULL, 0 );
 683         if (!(dataW = HeapAlloc( GetProcessHeap(), 0, lenW*sizeof(WCHAR) )))
 684             return ERROR_OUTOFMEMORY;
 685         MultiByteToWideChar( CP_ACP, 0, data, count, dataW, lenW );
 686         count = lenW * sizeof(WCHAR);
 687         data = (BYTE *)dataW;
 688     }
 689
 690     RtlInitAnsiString( &nameA, name );
 691     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 692                                                  &nameA, FALSE )))
 693     {
 694         status = NtSetValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString, 0, type, data, count );
 695     }
 696     if (dataW) HeapFree( GetProcessHeap(), 0, dataW );
 697     return RtlNtStatusToDosError( status );
 698 }
 699
 700
 701 /******************************************************************************
 702  *           RegSetValueW   [ADVAPI32.@]
 703  */
 704 DWORD WINAPI RegSetValueW( HKEY hkey, LPCWSTR name, DWORD type, LPCWSTR data, DWORD count )
 705 {
 706     HKEY subkey = hkey;
 707     DWORD ret;
 708
 709     TRACE("(0x%x,%s,%ld,%s,%ld)\n", hkey, debugstr_w(name), type, debugstr_w(data), count );
 710
 711     if (type != REG_SZ) return ERROR_INVALID_PARAMETER;
 712
 713     if (name && name[0])  /* need to create the subkey */
 714     {
 715         if ((ret = RegCreateKeyW( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 716     }
 717
 718     ret = RegSetValueExW( subkey, NULL, 0, REG_SZ, (LPBYTE)data,
 719                           (strlenW( data ) + 1) * sizeof(WCHAR) );
 720     if (subkey != hkey) RegCloseKey( subkey );
 721     return ret;
 722 }
 723
 724
 725 /******************************************************************************
 726  *           RegSetValueA   [ADVAPI32.@]
 727  */
 728 DWORD WINAPI RegSetValueA( HKEY hkey, LPCSTR name, DWORD type, LPCSTR data, DWORD count )
 729 {
 730     HKEY subkey = hkey;
 731     DWORD ret;
 732
 733     TRACE("(0x%x,%s,%ld,%s,%ld)\n", hkey, debugstr_a(name), type, debugstr_a(data), count );
 734
 735     if (type != REG_SZ) return ERROR_INVALID_PARAMETER;
 736
 737     if (name && name[0])  /* need to create the subkey */
 738     {
 739         if ((ret = RegCreateKeyA( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 740     }
 741     ret = RegSetValueExA( subkey, NULL, 0, REG_SZ, (LPBYTE)data, strlen(data)+1 );
 742     if (subkey != hkey) RegCloseKey( subkey );
 743     return ret;
 744 }
 745
 746
 747
 748 /******************************************************************************
 749  *           RegQueryValueExW   [ADVAPI32.@]
 750  *
 751  * Retrieves type and data for a specified name associated with an open key
 752  *
 753  * PARAMS
 754  *    hkey      [I]   Handle of key to query
 755  *    name      [I]   Name of value to query
 756  *    reserved  [I]   Reserved - must be NULL
 757  *    type      [O]   Address of buffer for value type.  If NULL, the type
 758  *                        is not required.
 759  *    data      [O]   Address of data buffer.  If NULL, the actual data is
 760  *                        not required.
 761  *    count     [I/O] Address of data buffer size
 762  *
 763  * RETURNS
 764  *    ERROR_SUCCESS:   Success
 765  *    ERROR_MORE_DATA: !!! if the specified buffer is not big enough to hold the data
 766  *                     buffer is left untouched. The MS-documentation is wrong (js) !!!
 767  */
 768 DWORD WINAPI RegQueryValueExW( HKEY hkey, LPCWSTR name, LPDWORD reserved, LPDWORD type,
 769                                LPBYTE data, LPDWORD count )
 770 {
 771     NTSTATUS status;
 772     UNICODE_STRING name_str;
 773     DWORD total_size;
 774     char buffer[256], *buf_ptr = buffer;
 775     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buffer;
 776     static const int info_size = sizeof(*info) - sizeof(info->Data);
 777
 778     TRACE("(0x%x,%s,%p,%p,%p,%p=%ld)\n",
 779           hkey, debugstr_w(name), reserved, type, data, count, count ? *count : 0 );
 780
 781     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 782
 783     RtlInitUnicodeString( &name_str, name );
 784
 785     if (data) total_size = min( sizeof(buffer), *count + info_size );
 786     else total_size = info_size;
 787
 788     status = NtQueryValueKey( hkey, &name_str, KeyValuePartialInformation,
 789                               buffer, total_size, &total_size );
 790     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 791
 792     if (data)
 793     {
 794         /* retry with a dynamically allocated buffer */
 795         while (status == STATUS_BUFFER_OVERFLOW && total_size - info_size <= *count)
 796         {
 797             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 798             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 799                 return ERROR_NOT_ENOUGH_MEMORY;
 800             info = (KEY_VALUE_PARTIAL_INFORMATION *)buf_ptr;
 801             status = NtQueryValueKey( hkey, &name_str, KeyValuePartialInformation,
 802                                       buf_ptr, total_size, &total_size );
 803         }
 804
 805         if (!status)
 806         {
 807             memcpy( data, buf_ptr + info_size, total_size - info_size );
 808             /* if the type is REG_SZ and data is not 0-terminated
 809              * and there is enough space in the buffer NT appends a \0 */
 810             if (total_size - info_size <= *count-sizeof(WCHAR) && is_string(info->Type))
 811             {
 812                 WCHAR *ptr = (WCHAR *)(data + total_size - info_size);
 813                 if (ptr > (WCHAR *)data && ptr[-1]) *ptr = 0;
 814             }
 815         }
 816         else if (status != STATUS_BUFFER_OVERFLOW) goto done;
 817     }
 818     else status = STATUS_SUCCESS;
 819
 820     if (type) *type = info->Type;
 821     if (count) *count = total_size - info_size;
 822
 823  done:
 824     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 825     return RtlNtStatusToDosError(status);
 826 }
 827
 828
 829 /******************************************************************************
 830  *           RegQueryValueExA   [ADVAPI32.@]
 831  *
 832  * NOTES:
 833  * the documentation is wrong: if the buffer is too small it remains untouched
 834  */
 835 DWORD WINAPI RegQueryValueExA( HKEY hkey, LPCSTR name, LPDWORD reserved, LPDWORD type,
 836                                LPBYTE data, LPDWORD count )
 837 {
 838     NTSTATUS status;
 839     ANSI_STRING nameA;
 840     DWORD total_size;
 841     char buffer[256], *buf_ptr = buffer;
 842     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buffer;
 843     static const int info_size = sizeof(*info) - sizeof(info->Data);
 844
 845     TRACE("(0x%x,%s,%p,%p,%p,%p=%ld)\n",
 846           hkey, debugstr_a(name), reserved, type, data, count, count ? *count : 0 );
 847
 848     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 849
 850     RtlInitAnsiString( &nameA, name );
 851     if ((status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 852                                                 &nameA, FALSE )))
 853         return RtlNtStatusToDosError(status);
 854
 855     status = NtQueryValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString,
 856                               KeyValuePartialInformation, buffer, sizeof(buffer), &total_size );
 857     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 858
 859     /* we need to fetch the contents for a string type even if not requested,
 860      * because we need to compute the length of the ASCII string. */
 861     if (data || is_string(info->Type))
 862     {
 863         /* retry with a dynamically allocated buffer */
 864         while (status == STATUS_BUFFER_OVERFLOW)
 865         {
 866             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 867             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 868             {
 869                 status = STATUS_NO_MEMORY;
 870                 goto done;
 871             }
 872             info = (KEY_VALUE_PARTIAL_INFORMATION *)buf_ptr;
 873             status = NtQueryValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString,
 874                                     KeyValuePartialInformation, buf_ptr, total_size, &total_size );
 875         }
 876
 877         if (status) goto done;
 878
 879         if (is_string(info->Type))
 880         {
 881             DWORD len = WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info_size),
 882                                              (total_size - info_size) /sizeof(WCHAR),
 883                                              NULL, 0, NULL, NULL );
 884             if (data && len)
 885             {
 886                 if (len > *count) status = STATUS_BUFFER_OVERFLOW;
 887                 else
 888                 {
 889                     WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info_size),
 890                                          (total_size - info_size) /sizeof(WCHAR),
 891                                          data, len, NULL, NULL );
 892                     /* if the type is REG_SZ and data is not 0-terminated
 893                      * and there is enough space in the buffer NT appends a \0 */
 894                     if (len < *count && data[len-1]) data[len] = 0;
 895                 }
 896             }
 897             total_size = len + info_size;
 898         }
 899         else if (data)
 900         {
 901             if (total_size - info_size > *count) status = STATUS_BUFFER_OVERFLOW;
 902             else memcpy( data, buf_ptr + info_size, total_size - info_size );
 903         }
 904     }
 905     else status = STATUS_SUCCESS;
 906
 907     if (type) *type = info->Type;
 908     if (count) *count = total_size - info_size;
 909
 910  done:
 911     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 912     return RtlNtStatusToDosError(status);
 913 }
 914
 915
 916 /******************************************************************************
 917  *           RegQueryValueW   [ADVAPI32.@]
 918  */
 919 DWORD WINAPI RegQueryValueW( HKEY hkey, LPCWSTR name, LPWSTR data, LPLONG count )
 920 {
 921     DWORD ret;
 922     HKEY subkey = hkey;
 923
 924     TRACE("(%x,%s,%p,%ld)\n", hkey, debugstr_w(name), data, count ? *count : 0 );
 925
 926     if (name && name[0])
 927     {
 928         if ((ret = RegOpenKeyW( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 929     }
 930     ret = RegQueryValueExW( subkey, NULL, NULL, NULL, (LPBYTE)data, count );
 931     if (subkey != hkey) RegCloseKey( subkey );
 932     if (ret == ERROR_FILE_NOT_FOUND)
 933     {
 934         /* return empty string if default value not found */
 935         if (data) *data = 0;
 936         if (count) *count = 1;
 937         ret = ERROR_SUCCESS;
 938     }
 939     return ret;
 940 }
 941
 942
 943 /******************************************************************************
 944  *           RegQueryValueA   [ADVAPI32.@]
 945  */
 946 DWORD WINAPI RegQueryValueA( HKEY hkey, LPCSTR name, LPSTR data, LPLONG count )
 947 {
 948     DWORD ret;
 949     HKEY subkey = hkey;
 950
 951     TRACE("(%x,%s,%p,%ld)\n", hkey, debugstr_a(name), data, count ? *count : 0 );
 952
 953     if (name && name[0])
 954     {
 955         if ((ret = RegOpenKeyA( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 956     }
 957     ret = RegQueryValueExA( subkey, NULL, NULL, NULL, (LPBYTE)data, count );
 958     if (subkey != hkey) RegCloseKey( subkey );
 959     if (ret == ERROR_FILE_NOT_FOUND)
 960     {
 961         /* return empty string if default value not found */
 962         if (data) *data = 0;
 963         if (count) *count = 1;
 964         ret = ERROR_SUCCESS;
 965     }
 966     return ret;
 967 }
 968
 969
 970 /******************************************************************************
 971  *           RegEnumValueW   [ADVAPI32.@]
 972  *
 973  * PARAMS
 974  *    hkey       [I] Handle to key to query
 975  *    index      [I] Index of value to query
 976  *    value      [O] Value string
 977  *    val_count  [I/O] Size of value buffer (in wchars)
 978  *    reserved   [I] Reserved
 979  *    type       [O] Type code
 980  *    data       [O] Value data
 981  *    count      [I/O] Size of data buffer (in bytes)
 982  */
 983
 984 DWORD WINAPI RegEnumValueW( HKEY hkey, DWORD index, LPWSTR value, LPDWORD val_count,
 985                             LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count )
 986 {
 987     NTSTATUS status;
 988     DWORD total_size;
 989     char buffer[256], *buf_ptr = buffer;
 990     KEY_VALUE_FULL_INFORMATION *info = (KEY_VALUE_FULL_INFORMATION *)buffer;
 991     static const int info_size = sizeof(*info) - sizeof(info->Name);
 992
 993     TRACE("(%x,%ld,%p,%p,%p,%p,%p,%p)\n",
 994           hkey, index, value, val_count, reserved, type, data, count );
 995
 996     /* NT only checks count, not val_count */
 997     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 998
 999     total_size = info_size + (MAX_PATH + 1) * sizeof(WCHAR);
1000     if (data) total_size += *count;
1001     total_size = min( sizeof(buffer), total_size );
1002
1003     status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1004                                   buffer, total_size, &total_size );
1005     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
1006
1007     if (value || data)
1008     {
1009         /* retry with a dynamically allocated buffer */
1010         while (status == STATUS_BUFFER_OVERFLOW)
1011         {
1012             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1013             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
1014                 return ERROR_NOT_ENOUGH_MEMORY;
1015             info = (KEY_VALUE_FULL_INFORMATION *)buf_ptr;
1016             status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1017                                           buf_ptr, total_size, &total_size );
1018         }
1019
1020         if (status) goto done;
1021
1022         if (value)
1023         {
1024             if (info->NameLength/sizeof(WCHAR) >= *val_count)
1025             {
1026                 status = STATUS_BUFFER_OVERFLOW;
1027                 goto done;
1028             }
1029             memcpy( value, info->Name, info->NameLength );
1030             *val_count = info->NameLength / sizeof(WCHAR);
1031             value[*val_count] = 0;
1032         }
1033
1034         if (data)
1035         {
1036             if (total_size - info->DataOffset > *count)
1037             {
1038                 status = STATUS_BUFFER_OVERFLOW;
1039                 goto done;
1040             }
1041             memcpy( data, buf_ptr + info->DataOffset, total_size - info->DataOffset );
1042             if (total_size - info->DataOffset <= *count-sizeof(WCHAR) && is_string(info->Type))
1043             {
1044                 /* if the type is REG_SZ and data is not 0-terminated
1045                  * and there is enough space in the buffer NT appends a \0 */
1046                 WCHAR *ptr = (WCHAR *)(data + total_size - info->DataOffset);
1047                 if (ptr > (WCHAR *)data && ptr[-1]) *ptr = 0;
1048             }
1049         }
1050     }
1051     else status = STATUS_SUCCESS;
1052
1053     if (type) *type = info->Type;
1054     if (count) *count = info->DataLength;
1055
1056  done:
1057     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1058     return RtlNtStatusToDosError(status);
1059 }
1060
1061
1062 /******************************************************************************
1063  *           RegEnumValueA   [ADVAPI32.@]
1064  */
1065 DWORD WINAPI RegEnumValueA( HKEY hkey, DWORD index, LPSTR value, LPDWORD val_count,
1066                             LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count )
1067 {
1068     NTSTATUS status;
1069     DWORD total_size;
1070     char buffer[256], *buf_ptr = buffer;
1071     KEY_VALUE_FULL_INFORMATION *info = (KEY_VALUE_FULL_INFORMATION *)buffer;
1072     static const int info_size = sizeof(*info) - sizeof(info->Name);
1073
1074     TRACE("(%x,%ld,%p,%p,%p,%p,%p,%p)\n",
1075           hkey, index, value, val_count, reserved, type, data, count );
1076
1077     /* NT only checks count, not val_count */
1078     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
1079
1080     total_size = info_size + (MAX_PATH + 1) * sizeof(WCHAR);
1081     if (data) total_size += *count;
1082     total_size = min( sizeof(buffer), total_size );
1083
1084     status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1085                                   buffer, total_size, &total_size );
1086     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
1087
1088     /* we need to fetch the contents for a string type even if not requested,
1089      * because we need to compute the length of the ASCII string. */
1090     if (value || data || is_string(info->Type))
1091     {
1092         /* retry with a dynamically allocated buffer */
1093         while (status == STATUS_BUFFER_OVERFLOW)
1094         {
1095             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1096             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
1097                 return ERROR_NOT_ENOUGH_MEMORY;
1098             info = (KEY_VALUE_FULL_INFORMATION *)buf_ptr;
1099             status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1100                                           buf_ptr, total_size, &total_size );
1101         }
1102
1103         if (status) goto done;
1104
1105         if (value)
1106         {
1107             DWORD len = WideCharToMultiByte( CP_ACP, 0, info->Name, info->NameLength/sizeof(WCHAR),
1108                                              NULL, 0, NULL, NULL );
1109             if (len >= *val_count)
1110             {
1111                 status = STATUS_BUFFER_OVERFLOW;
1112                 goto done;
1113             }
1114             WideCharToMultiByte( CP_ACP, 0, info->Name, info->NameLength/sizeof(WCHAR),
1115                                  value, len, NULL, NULL );
1116             value[len] = 0;
1117             *val_count = len;
1118         }
1119
1120         if (is_string(info->Type))
1121         {
1122             DWORD len = WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info->DataOffset),
1123                                              (total_size - info->DataOffset) / sizeof(WCHAR),
1124                                              NULL, 0, NULL, NULL );
1125             if (data && len)
1126             {
1127                 if (len > *count)
1128                 {
1129                     status = STATUS_BUFFER_OVERFLOW;
1130                     goto done;
1131                 }
1132                 WideCharToMultiByte( CP_ACP, 0, (WCHAR *)(buf_ptr + info->DataOffset),
1133                                      (total_size - info->DataOffset) / sizeof(WCHAR),
1134                                      data, len, NULL, NULL );
1135                 /* if the type is REG_SZ and data is not 0-terminated
1136                  * and there is enough space in the buffer NT appends a \0 */
1137                 if (len < *count && data[len-1]) data[len] = 0;
1138             }
1139             info->DataLength = len;
1140         }
1141         else if (data)
1142         {
1143             if (total_size - info->DataOffset > *count) status = STATUS_BUFFER_OVERFLOW;
1144             else memcpy( data, buf_ptr + info->DataOffset, total_size - info->DataOffset );
1145         }
1146     }
1147     else status = STATUS_SUCCESS;
1148
1149     if (type) *type = info->Type;
1150     if (count) *count = info->DataLength;
1151
1152  done:
1153     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1154     return RtlNtStatusToDosError(status);
1155 }
1156
1157
1158
1159 /******************************************************************************
1160  *           RegDeleteValueW   [ADVAPI32.@]
1161  *
1162  * PARAMS
1163  *    hkey   [I] handle to key
1164  *    name   [I] name of value to delete
1165  *
1166  * RETURNS
1167  *    error status
1168  */
1169 DWORD WINAPI RegDeleteValueW( HKEY hkey, LPCWSTR name )
1170 {
1171     UNICODE_STRING nameW;
1172     RtlInitUnicodeString( &nameW, name );
1173     return RtlNtStatusToDosError( NtDeleteValueKey( hkey, &nameW ) );
1174 }
1175
1176
1177 /******************************************************************************
1178  *           RegDeleteValueA   [ADVAPI32.@]
1179  */
1180 DWORD WINAPI RegDeleteValueA( HKEY hkey, LPCSTR name )
1181 {
1182     STRING nameA;
1183     NTSTATUS status;
1184
1185     RtlInitAnsiString( &nameA, name );
1186     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
1187                                                  &nameA, FALSE )))
1188     {
1189         status = NtDeleteValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString );
1190     }
1191     return RtlNtStatusToDosError( status );
1192 }
1193
1194
1195 /******************************************************************************
1196  *           RegLoadKeyW   [ADVAPI32.@]
1197  *
1198  * PARAMS
1199  *    hkey      [I] Handle of open key
1200  *    subkey    [I] Address of name of subkey
1201  *    filename  [I] Address of filename for registry information
1202  */
1203 LONG WINAPI RegLoadKeyW( HKEY hkey, LPCWSTR subkey, LPCWSTR filename )
1204 {
1205     HANDLE file;
1206     DWORD ret, len, err = GetLastError();
1207
1208     TRACE( "(%x,%s,%s)\n", hkey, debugstr_w(subkey), debugstr_w(filename) );
1209
1210     if (!filename || !*filename) return ERROR_INVALID_PARAMETER;
1211     if (!subkey || !*subkey) return ERROR_INVALID_PARAMETER;
1212
1213     len = strlenW( subkey ) * sizeof(WCHAR);
1214     if (len > MAX_PATH*sizeof(WCHAR)) return ERROR_INVALID_PARAMETER;
1215
1216     if ((file = CreateFileW( filename, GENERIC_READ, 0, NULL, OPEN_EXISTING,
1217                              FILE_ATTRIBUTE_NORMAL, 0 )) == INVALID_HANDLE_VALUE)
1218     {
1219         ret = GetLastError();
1220         goto done;
1221     }
1222
1223     SERVER_START_VAR_REQ( load_registry, len )
1224     {
1225         req->hkey  = hkey;
1226         req->file  = file;
1227         memcpy( server_data_ptr(req), subkey, len );
1228         ret = RtlNtStatusToDosError( SERVER_CALL() );
1229     }
1230     SERVER_END_VAR_REQ;
1231     CloseHandle( file );
1232
1233  done:
1234     SetLastError( err );  /* restore the last error code */
1235     return ret;
1236 }
1237
1238
1239 /******************************************************************************
1240  *           RegLoadKeyA   [ADVAPI32.@]
1241  */
1242 LONG WINAPI RegLoadKeyA( HKEY hkey, LPCSTR subkey, LPCSTR filename )
1243 {
1244     HANDLE file;
1245     DWORD ret, len, err = GetLastError();
1246
1247     TRACE( "(%x,%s,%s)\n", hkey, debugstr_a(subkey), debugstr_a(filename) );
1248
1249     if (!filename || !*filename) return ERROR_INVALID_PARAMETER;
1250     if (!subkey || !*subkey) return ERROR_INVALID_PARAMETER;
1251
1252     len = MultiByteToWideChar( CP_ACP, 0, subkey, strlen(subkey), NULL, 0 ) * sizeof(WCHAR);
1253     if (len > MAX_PATH*sizeof(WCHAR)) return ERROR_INVALID_PARAMETER;
1254
1255     if ((file = CreateFileA( filename, GENERIC_READ, 0, NULL, OPEN_EXISTING,
1256                              FILE_ATTRIBUTE_NORMAL, 0 )) == INVALID_HANDLE_VALUE)
1257     {
1258         ret = GetLastError();
1259         goto done;
1260     }
1261
1262     SERVER_START_VAR_REQ( load_registry, len )
1263     {
1264         req->hkey  = hkey;
1265         req->file  = file;
1266         MultiByteToWideChar( CP_ACP, 0, subkey, strlen(subkey),
1267                              server_data_ptr(req), len/sizeof(WCHAR) );
1268         ret = RtlNtStatusToDosError( SERVER_CALL() );
1269     }
1270     SERVER_END_VAR_REQ;
1271     CloseHandle( file );
1272
1273  done:
1274     SetLastError( err );  /* restore the last error code */
1275     return ret;
1276 }
1277
1278
1279 /******************************************************************************
1280  *           RegSaveKeyA   [ADVAPI32.@]
1281  *
1282  * PARAMS
1283  *    hkey   [I] Handle of key where save begins
1284  *    lpFile [I] Address of filename to save to
1285  *    sa     [I] Address of security structure
1286  */
1287 LONG WINAPI RegSaveKeyA( HKEY hkey, LPCSTR file, LPSECURITY_ATTRIBUTES sa )
1288 {
1289     char buffer[1024];
1290     int count = 0;
1291     LPSTR name;
1292     DWORD ret, err;
1293     HFILE handle;
1294
1295     TRACE( "(%x,%s,%p)\n", hkey, debugstr_a(file), sa );
1296
1297     if (!file || !*file) return ERROR_INVALID_PARAMETER;
1298
1299     err = GetLastError();
1300     GetFullPathNameA( file, sizeof(buffer), buffer, &name );
1301     for (;;)
1302     {
1303         sprintf( name, "reg%04x.tmp", count++ );
1304         handle = CreateFileA( buffer, GENERIC_WRITE, 0, NULL,
1305                             CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0 );
1306         if (handle != INVALID_HANDLE_VALUE) break;
1307         if ((ret = GetLastError()) != ERROR_ALREADY_EXISTS) goto done;
1308
1309         /* Something gone haywire ? Please report if this happens abnormally */
1310         if (count >= 100)
1311             MESSAGE("Wow, we are already fiddling with a temp file %s with an ordinal as high as %d !\nYou might want to delete all corresponding temp files in that directory.\n", buffer, count);
1312     }
1313
1314     SERVER_START_REQ( save_registry )
1315     {
1316         req->hkey = hkey;
1317         req->file = handle;
1318         ret = RtlNtStatusToDosError( SERVER_CALL() );
1319     }
1320     SERVER_END_REQ;
1321
1322     CloseHandle( handle );
1323     if (!ret)
1324     {
1325         if (!MoveFileExA( buffer, file, MOVEFILE_REPLACE_EXISTING ))
1326         {
1327             ERR( "Failed to move %s to %s\n", buffer, file );
1328             ret = GetLastError();
1329         }
1330     }
1331     if (ret) DeleteFileA( buffer );
1332
1333 done:
1334     SetLastError( err );  /* restore last error code */
1335     return ret;
1336 }
1337
1338
1339 /******************************************************************************
1340  *           RegSaveKeyW   [ADVAPI32.@]
1341  */
1342 LONG WINAPI RegSaveKeyW( HKEY hkey, LPCWSTR file, LPSECURITY_ATTRIBUTES sa )
1343 {
1344     LPSTR fileA = HEAP_strdupWtoA( GetProcessHeap(), 0, file );
1345     DWORD ret = RegSaveKeyA( hkey, fileA, sa );
1346     if (fileA) HeapFree( GetProcessHeap(), 0, fileA );
1347     return ret;
1348 }
1349
1350
1351 /******************************************************************************
1352  * RegRestoreKeyW [ADVAPI32.@]
1353  *
1354  * PARAMS
1355  *    hkey    [I] Handle of key where restore begins
1356  *    lpFile  [I] Address of filename containing saved tree
1357  *    dwFlags [I] Optional flags
1358  */
1359 LONG WINAPI RegRestoreKeyW( HKEY hkey, LPCWSTR lpFile, DWORD dwFlags )
1360 {
1361     TRACE("(%x,%s,%ld)\n",hkey,debugstr_w(lpFile),dwFlags);
1362
1363     /* It seems to do this check before the hkey check */
1364     if (!lpFile || !*lpFile)
1365         return ERROR_INVALID_PARAMETER;
1366
1367     FIXME("(%x,%s,%ld): stub\n",hkey,debugstr_w(lpFile),dwFlags);
1368
1369     /* Check for file existence */
1370
1371     return ERROR_SUCCESS;
1372 }
1373
1374
1375 /******************************************************************************
1376  * RegRestoreKeyA [ADVAPI32.@]
1377  */
1378 LONG WINAPI RegRestoreKeyA( HKEY hkey, LPCSTR lpFile, DWORD dwFlags )
1379 {
1380     LPWSTR lpFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpFile );
1381     LONG ret = RegRestoreKeyW( hkey, lpFileW, dwFlags );
1382     HeapFree( GetProcessHeap(), 0, lpFileW );
1383     return ret;
1384 }
1385
1386
1387 /******************************************************************************
1388  * RegUnLoadKeyW [ADVAPI32.@]
1389  *
1390  * PARAMS
1391  *    hkey     [I] Handle of open key
1392  *    lpSubKey [I] Address of name of subkey to unload
1393  */
1394 LONG WINAPI RegUnLoadKeyW( HKEY hkey, LPCWSTR lpSubKey )
1395 {
1396     FIXME("(%x,%s): stub\n",hkey, debugstr_w(lpSubKey));
1397     return ERROR_SUCCESS;
1398 }
1399
1400
1401 /******************************************************************************
1402  * RegUnLoadKeyA [ADVAPI32.@]
1403  */
1404 LONG WINAPI RegUnLoadKeyA( HKEY hkey, LPCSTR lpSubKey )
1405 {
1406     LPWSTR lpSubKeyW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpSubKey );
1407     LONG ret = RegUnLoadKeyW( hkey, lpSubKeyW );
1408     if(lpSubKeyW) HeapFree( GetProcessHeap(), 0, lpSubKeyW);
1409     return ret;
1410 }
1411
1412
1413 /******************************************************************************
1414  * RegReplaceKeyW [ADVAPI32.@]
1415  *
1416  * PARAMS
1417  *    hkey      [I] Handle of open key
1418  *    lpSubKey  [I] Address of name of subkey
1419  *    lpNewFile [I] Address of filename for file with new data
1420  *    lpOldFile [I] Address of filename for backup file
1421  */
1422 LONG WINAPI RegReplaceKeyW( HKEY hkey, LPCWSTR lpSubKey, LPCWSTR lpNewFile,
1423                               LPCWSTR lpOldFile )
1424 {
1425     FIXME("(%x,%s,%s,%s): stub\n", hkey, debugstr_w(lpSubKey),
1426           debugstr_w(lpNewFile),debugstr_w(lpOldFile));
1427     return ERROR_SUCCESS;
1428 }
1429
1430
1431 /******************************************************************************
1432  * RegReplaceKeyA [ADVAPI32.@]
1433  */
1434 LONG WINAPI RegReplaceKeyA( HKEY hkey, LPCSTR lpSubKey, LPCSTR lpNewFile,
1435                               LPCSTR lpOldFile )
1436 {
1437     LPWSTR lpSubKeyW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpSubKey );
1438     LPWSTR lpNewFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpNewFile );
1439     LPWSTR lpOldFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpOldFile );
1440     LONG ret = RegReplaceKeyW( hkey, lpSubKeyW, lpNewFileW, lpOldFileW );
1441     HeapFree( GetProcessHeap(), 0, lpOldFileW );
1442     HeapFree( GetProcessHeap(), 0, lpNewFileW );
1443     HeapFree( GetProcessHeap(), 0, lpSubKeyW );
1444     return ret;
1445 }
1446
1447
1448 /******************************************************************************
1449  * RegSetKeySecurity [ADVAPI32.@]
1450  *
1451  * PARAMS
1452  *    hkey          [I] Open handle of key to set
1453  *    SecurityInfo  [I] Descriptor contents
1454  *    pSecurityDesc [I] Address of descriptor for key
1455  */
1456 LONG WINAPI RegSetKeySecurity( HKEY hkey, SECURITY_INFORMATION SecurityInfo,
1457                                PSECURITY_DESCRIPTOR pSecurityDesc )
1458 {
1459     TRACE("(%x,%ld,%p)\n",hkey,SecurityInfo,pSecurityDesc);
1460
1461     /* It seems to perform this check before the hkey check */
1462     if ((SecurityInfo & OWNER_SECURITY_INFORMATION) ||
1463         (SecurityInfo & GROUP_SECURITY_INFORMATION) ||
1464         (SecurityInfo & DACL_SECURITY_INFORMATION) ||
1465         (SecurityInfo & SACL_SECURITY_INFORMATION)) {
1466         /* Param OK */
1467     } else
1468         return ERROR_INVALID_PARAMETER;
1469
1470     if (!pSecurityDesc)
1471         return ERROR_INVALID_PARAMETER;
1472
1473     FIXME(":(%x,%ld,%p): stub\n",hkey,SecurityInfo,pSecurityDesc);
1474
1475     return ERROR_SUCCESS;
1476 }
1477
1478
1479 /******************************************************************************
1480  * RegGetKeySecurity [ADVAPI32.@]
1481  * Retrieves a copy of security descriptor protecting the registry key
1482  *
1483  * PARAMS
1484  *    hkey                   [I]   Open handle of key to set
1485  *    SecurityInformation    [I]   Descriptor contents
1486  *    pSecurityDescriptor    [O]   Address of descriptor for key
1487  *    lpcbSecurityDescriptor [I/O] Address of size of buffer and description
1488  *
1489  * RETURNS
1490  *    Success: ERROR_SUCCESS
1491  *    Failure: Error code
1492  */
1493 LONG WINAPI RegGetKeySecurity( HKEY hkey, SECURITY_INFORMATION SecurityInformation,
1494                                PSECURITY_DESCRIPTOR pSecurityDescriptor,
1495                                LPDWORD lpcbSecurityDescriptor )
1496 {
1497     TRACE("(%x,%ld,%p,%ld)\n",hkey,SecurityInformation,pSecurityDescriptor,
1498           lpcbSecurityDescriptor?*lpcbSecurityDescriptor:0);
1499
1500     /* FIXME: Check for valid SecurityInformation values */
1501
1502     if (*lpcbSecurityDescriptor < sizeof(SECURITY_DESCRIPTOR))
1503         return ERROR_INSUFFICIENT_BUFFER;
1504
1505     FIXME("(%x,%ld,%p,%ld): stub\n",hkey,SecurityInformation,
1506           pSecurityDescriptor,lpcbSecurityDescriptor?*lpcbSecurityDescriptor:0);
1507
1508     return ERROR_SUCCESS;
1509 }
1510
1511
1512 /******************************************************************************
1513  * RegFlushKey [ADVAPI32.@]
1514  * Immediately writes key to registry.
1515  * Only returns after data has been written to disk.
1516  *
1517  * FIXME: does it really wait until data is written ?
1518  *
1519  * PARAMS
1520  *    hkey [I] Handle of key to write
1521  *
1522  * RETURNS
1523  *    Success: ERROR_SUCCESS
1524  *    Failure: Error code
1525  */
1526 DWORD WINAPI RegFlushKey( HKEY hkey )
1527 {
1528     FIXME( "(%x): stub\n", hkey );
1529     return ERROR_SUCCESS;
1530 }
1531
1532
1533 /******************************************************************************
1534  * RegConnectRegistryW [ADVAPI32.@]
1535  *
1536  * PARAMS
1537  *    lpMachineName [I] Address of name of remote computer
1538  *    hHey          [I] Predefined registry handle
1539  *    phkResult     [I] Address of buffer for remote registry handle
1540  */
1541 LONG WINAPI RegConnectRegistryW( LPCWSTR lpMachineName, HKEY hKey,
1542                                    LPHKEY phkResult )
1543 {
1544     TRACE("(%s,%x,%p): stub\n",debugstr_w(lpMachineName),hKey,phkResult);
1545
1546     if (!lpMachineName || !*lpMachineName) {
1547         /* Use the local machine name */
1548         return RegOpenKeyA( hKey, "", phkResult );
1549     }
1550
1551     FIXME("Cannot connect to %s\n",debugstr_w(lpMachineName));
1552     return ERROR_BAD_NETPATH;
1553 }
1554
1555
1556 /******************************************************************************
1557  * RegConnectRegistryA [ADVAPI32.@]
1558  */
1559 LONG WINAPI RegConnectRegistryA( LPCSTR machine, HKEY hkey, LPHKEY reskey )
1560 {
1561     LPWSTR machineW = HEAP_strdupAtoW( GetProcessHeap(), 0, machine );
1562     DWORD ret = RegConnectRegistryW( machineW, hkey, reskey );
1563     HeapFree( GetProcessHeap(), 0, machineW );
1564     return ret;
1565 }
1566
1567
1568 /******************************************************************************
1569  * RegNotifyChangeKeyValue [ADVAPI32.@]
1570  *
1571  * PARAMS
1572  *    hkey            [I] Handle of key to watch
1573  *    fWatchSubTree   [I] Flag for subkey notification
1574  *    fdwNotifyFilter [I] Changes to be reported
1575  *    hEvent          [I] Handle of signaled event
1576  *    fAsync          [I] Flag for asynchronous reporting
1577  */
1578 LONG WINAPI RegNotifyChangeKeyValue( HKEY hkey, BOOL fWatchSubTree,
1579                                      DWORD fdwNotifyFilter, HANDLE hEvent,
1580                                      BOOL fAsync )
1581 {
1582     FIXME("(%x,%i,%ld,%x,%i): stub\n",hkey,fWatchSubTree,fdwNotifyFilter,
1583           hEvent,fAsync);
1584     return ERROR_SUCCESS;
1585 }