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 = *(FILETIME *)&info->LastWriteTime;
 291
 292         if (len >= *name_len || (class && 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, cls_len;
 349
 350         RtlUnicodeToMultiByteSize( &len, info->Name, info->NameLength );
 351         RtlUnicodeToMultiByteSize( &cls_len, (WCHAR *)(buf_ptr + info->ClassOffset),
 352                                    info->ClassLength );
 353         if (ft) *ft = *(FILETIME *)&info->LastWriteTime;
 354
 355         if (len >= *name_len || (class && class_len && (cls_len >= *class_len)))
 356             status = STATUS_BUFFER_OVERFLOW;
 357         else
 358         {
 359             *name_len = len;
 360             RtlUnicodeToMultiByteN( name, len, NULL, info->Name, info->NameLength );
 361             name[len] = 0;
 362             if (class_len)
 363             {
 364                 *class_len = cls_len;
 365                 if (class)
 366                 {
 367                     RtlUnicodeToMultiByteN( class, cls_len, NULL,
 368                                             (WCHAR *)(buf_ptr + info->ClassOffset),
 369                                             info->ClassLength );
 370                     class[cls_len] = 0;
 371                 }
 372             }
 373         }
 374     }
 375
 376     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 377     return RtlNtStatusToDosError( status );
 378 }
 379
 380
 381 /******************************************************************************
 382  *           RegEnumKeyW   [ADVAPI32.@]
 383  */
 384 DWORD WINAPI RegEnumKeyW( HKEY hkey, DWORD index, LPWSTR name, DWORD name_len )
 385 {
 386     return RegEnumKeyExW( hkey, index, name, &name_len, NULL, NULL, NULL, NULL );
 387 }
 388
 389
 390 /******************************************************************************
 391  *           RegEnumKeyA   [ADVAPI32.@]
 392  */
 393 DWORD WINAPI RegEnumKeyA( HKEY hkey, DWORD index, LPSTR name, DWORD name_len )
 394 {
 395     return RegEnumKeyExA( hkey, index, name, &name_len, NULL, NULL, NULL, NULL );
 396 }
 397
 398
 399 /******************************************************************************
 400  *           RegQueryInfoKeyW   [ADVAPI32.@]
 401  *
 402  * PARAMS
 403  *    hkey       [I] Handle to key to query
 404  *    class      [O] Buffer for class string
 405  *    class_len  [O] Size of class string buffer
 406  *    reserved   [I] Reserved
 407  *    subkeys    [O] Buffer for number of subkeys
 408  *    max_subkey [O] Buffer for longest subkey name length
 409  *    max_class  [O] Buffer for longest class string length
 410  *    values     [O] Buffer for number of value entries
 411  *    max_value  [O] Buffer for longest value name length
 412  *    max_data   [O] Buffer for longest value data length
 413  *    security   [O] Buffer for security descriptor length
 414  *    modif      [O] Modification time
 415  *
 416  * - win95 allows class to be valid and class_len to be NULL
 417  * - winnt returns ERROR_INVALID_PARAMETER if class is valid and class_len is NULL
 418  * - both allow class to be NULL and class_len to be NULL
 419  * (it's hard to test validity, so test !NULL instead)
 420  */
 421 DWORD WINAPI RegQueryInfoKeyW( HKEY hkey, LPWSTR class, LPDWORD class_len, LPDWORD reserved,
 422                                LPDWORD subkeys, LPDWORD max_subkey, LPDWORD max_class,
 423                                LPDWORD values, LPDWORD max_value, LPDWORD max_data,
 424                                LPDWORD security, FILETIME *modif )
 425 {
 426     NTSTATUS status;
 427     char buffer[256], *buf_ptr = buffer;
 428     KEY_FULL_INFORMATION *info = (KEY_FULL_INFORMATION *)buffer;
 429     DWORD total_size;
 430
 431     TRACE( "(0x%x,%p,%ld,%p,%p,%p,%p,%p,%p,%p,%p)\n", hkey, class, class_len ? *class_len : 0,
 432            reserved, subkeys, max_subkey, values, max_value, max_data, security, modif );
 433
 434     if (class && !class_len && !(GetVersion() & 0x80000000 /*NT*/))
 435         return ERROR_INVALID_PARAMETER;
 436
 437     status = NtQueryKey( hkey, KeyFullInformation, buffer, sizeof(buffer), &total_size );
 438     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 439
 440     if (class)
 441     {
 442         /* retry with a dynamically allocated buffer */
 443         while (status == STATUS_BUFFER_OVERFLOW)
 444         {
 445             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 446             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 447                 return ERROR_NOT_ENOUGH_MEMORY;
 448             info = (KEY_FULL_INFORMATION *)buf_ptr;
 449             status = NtQueryKey( hkey, KeyFullInformation, buf_ptr, total_size, &total_size );
 450         }
 451
 452         if (status) goto done;
 453
 454         if (class_len && (info->ClassLength/sizeof(WCHAR) + 1 > *class_len))
 455         {
 456             status = STATUS_BUFFER_OVERFLOW;
 457         }
 458         else
 459         {
 460             memcpy( class, buf_ptr + info->ClassOffset, info->ClassLength );
 461             class[info->ClassLength/sizeof(WCHAR)] = 0;
 462         }
 463     }
 464     else status = STATUS_SUCCESS;
 465
 466     if (class_len) *class_len = info->ClassLength / sizeof(WCHAR);
 467     if (subkeys) *subkeys = info->SubKeys;
 468     if (max_subkey) *max_subkey = info->MaxNameLen;
 469     if (max_class) *max_class = info->MaxClassLen;
 470     if (values) *values = info->Values;
 471     if (max_value) *max_value = info->MaxValueNameLen;
 472     if (max_data) *max_data = info->MaxValueDataLen;
 473     if (modif) *modif = *(FILETIME *)&info->LastWriteTime;
 474
 475  done:
 476     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 477     return RtlNtStatusToDosError( status );
 478 }
 479
 480
 481 /******************************************************************************
 482  *           RegQueryInfoKeyA   [ADVAPI32.@]
 483  */
 484 DWORD WINAPI RegQueryInfoKeyA( HKEY hkey, LPSTR class, LPDWORD class_len, LPDWORD reserved,
 485                                LPDWORD subkeys, LPDWORD max_subkey, LPDWORD max_class,
 486                                LPDWORD values, LPDWORD max_value, LPDWORD max_data,
 487                                LPDWORD security, FILETIME *modif )
 488 {
 489     NTSTATUS status;
 490     char buffer[256], *buf_ptr = buffer;
 491     KEY_FULL_INFORMATION *info = (KEY_FULL_INFORMATION *)buffer;
 492     DWORD total_size, len;
 493
 494     TRACE( "(0x%x,%p,%ld,%p,%p,%p,%p,%p,%p,%p,%p)\n", hkey, class, class_len ? *class_len : 0,
 495            reserved, subkeys, max_subkey, values, max_value, max_data, security, modif );
 496
 497     if (class && !class_len && !(GetVersion() & 0x80000000 /*NT*/))
 498         return ERROR_INVALID_PARAMETER;
 499
 500     status = NtQueryKey( hkey, KeyFullInformation, buffer, sizeof(buffer), &total_size );
 501     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 502
 503     if (class || class_len)
 504     {
 505         /* retry with a dynamically allocated buffer */
 506         while (status == STATUS_BUFFER_OVERFLOW)
 507         {
 508             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 509             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 510                 return ERROR_NOT_ENOUGH_MEMORY;
 511             info = (KEY_FULL_INFORMATION *)buf_ptr;
 512             status = NtQueryKey( hkey, KeyFullInformation, buf_ptr, total_size, &total_size );
 513         }
 514
 515         if (status) goto done;
 516
 517         RtlUnicodeToMultiByteSize( &len, (WCHAR *)(buf_ptr + info->ClassOffset), info->ClassLength);
 518         if (class_len)
 519         {
 520             if (len + 1 > *class_len) status = STATUS_BUFFER_OVERFLOW;
 521             *class_len = len;
 522         }
 523         if (class && !status)
 524         {
 525             RtlUnicodeToMultiByteN( class, len, NULL, (WCHAR *)(buf_ptr + info->ClassOffset),
 526                                     info->ClassLength );
 527             class[len] = 0;
 528         }
 529     }
 530     else status = STATUS_SUCCESS;
 531
 532     if (subkeys) *subkeys = info->SubKeys;
 533     if (max_subkey) *max_subkey = info->MaxNameLen;
 534     if (max_class) *max_class = info->MaxClassLen;
 535     if (values) *values = info->Values;
 536     if (max_value) *max_value = info->MaxValueNameLen;
 537     if (max_data) *max_data = info->MaxValueDataLen;
 538     if (modif) *modif = *(FILETIME *)&info->LastWriteTime;
 539
 540  done:
 541     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 542     return RtlNtStatusToDosError( status );
 543 }
 544
 545
 546 /******************************************************************************
 547  *           RegCloseKey   [ADVAPI32.@]
 548  *
 549  * Releases the handle of the specified key
 550  *
 551  * PARAMS
 552  *    hkey [I] Handle of key to close
 553  *
 554  * RETURNS
 555  *    Success: ERROR_SUCCESS
 556  *    Failure: Error code
 557  */
 558 DWORD WINAPI RegCloseKey( HKEY hkey )
 559 {
 560     if (!hkey || hkey >= 0x80000000) return ERROR_SUCCESS;
 561     return RtlNtStatusToDosError( NtClose( hkey ) );
 562 }
 563
 564
 565 /******************************************************************************
 566  *           RegDeleteKeyW   [ADVAPI32.@]
 567  *
 568  * PARAMS
 569  *    hkey   [I] Handle to open key
 570  *    name   [I] Name of subkey to delete
 571  *
 572  * RETURNS
 573  *    Success: ERROR_SUCCESS
 574  *    Failure: Error code
 575  */
 576 DWORD WINAPI RegDeleteKeyW( HKEY hkey, LPCWSTR name )
 577 {
 578     DWORD ret;
 579     HKEY tmp;
 580
 581     if (!name || !*name) return NtDeleteKey( hkey );
 582     if (!(ret = RegOpenKeyExW( hkey, name, 0, 0, &tmp )))
 583     {
 584         ret = RtlNtStatusToDosError( NtDeleteKey( tmp ) );
 585         RegCloseKey( tmp );
 586     }
 587     return ret;
 588 }
 589
 590
 591 /******************************************************************************
 592  *           RegDeleteKeyA   [ADVAPI32.@]
 593  */
 594 DWORD WINAPI RegDeleteKeyA( HKEY hkey, LPCSTR name )
 595 {
 596     DWORD ret;
 597     HKEY tmp;
 598
 599     if (!name || !*name) return NtDeleteKey( hkey );
 600     if (!(ret = RegOpenKeyExA( hkey, name, 0, 0, &tmp )))
 601     {
 602         ret = RtlNtStatusToDosError( NtDeleteKey( tmp ) );
 603         RegCloseKey( tmp );
 604     }
 605     return ret;
 606 }
 607
 608
 609
 610 /******************************************************************************
 611  *           RegSetValueExW   [ADVAPI32.@]
 612  *
 613  * Sets the data and type of a value under a register key
 614  *
 615  * PARAMS
 616  *    hkey       [I] Handle of key to set value for
 617  *    name       [I] Name of value to set
 618  *    reserved   [I] Reserved - must be zero
 619  *    type       [I] Flag for value type
 620  *    data       [I] Address of value data
 621  *    count      [I] Size of value data
 622  *
 623  * RETURNS
 624  *    Success: ERROR_SUCCESS
 625  *    Failure: Error code
 626  *
 627  * NOTES
 628  *   win95 does not care about count for REG_SZ and finds out the len by itself (js)
 629  *   NT does definitely care (aj)
 630  */
 631 DWORD WINAPI RegSetValueExW( HKEY hkey, LPCWSTR name, DWORD reserved,
 632                              DWORD type, CONST BYTE *data, DWORD count )
 633 {
 634     UNICODE_STRING nameW;
 635
 636     if (GetVersion() & 0x80000000)  /* win95 */
 637     {
 638         if (type == REG_SZ) count = (strlenW( (WCHAR *)data ) + 1) * sizeof(WCHAR);
 639     }
 640     else if (count && is_string(type))
 641     {
 642         LPCWSTR str = (LPCWSTR)data;
 643         /* if user forgot to count terminating null, add it (yes NT does this) */
 644         if (str[count / sizeof(WCHAR) - 1] && !str[count / sizeof(WCHAR)])
 645             count += sizeof(WCHAR);
 646     }
 647
 648     RtlInitUnicodeString( &nameW, name );
 649     return RtlNtStatusToDosError( NtSetValueKey( hkey, &nameW, 0, type, data, count ) );
 650 }
 651
 652
 653 /******************************************************************************
 654  *           RegSetValueExA   [ADVAPI32.@]
 655  */
 656 DWORD WINAPI RegSetValueExA( HKEY hkey, LPCSTR name, DWORD reserved, DWORD type,
 657                              CONST BYTE *data, DWORD count )
 658 {
 659     ANSI_STRING nameA;
 660     WCHAR *dataW = NULL;
 661     NTSTATUS status;
 662
 663     if (GetVersion() & 0x80000000)  /* win95 */
 664     {
 665         if (type == REG_SZ) count = strlen(data) + 1;
 666     }
 667     else if (count && is_string(type))
 668     {
 669         /* if user forgot to count terminating null, add it (yes NT does this) */
 670         if (data[count-1] && !data[count]) count++;
 671     }
 672
 673     if (is_string( type )) /* need to convert to Unicode */
 674     {
 675         DWORD lenW;
 676         RtlMultiByteToUnicodeSize( &lenW, data, count );
 677         if (!(dataW = HeapAlloc( GetProcessHeap(), 0, lenW ))) return ERROR_OUTOFMEMORY;
 678         RtlMultiByteToUnicodeN( dataW, lenW, NULL, data, count );
 679         count = lenW;
 680         data = (BYTE *)dataW;
 681     }
 682
 683     RtlInitAnsiString( &nameA, name );
 684     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 685                                                  &nameA, FALSE )))
 686     {
 687         status = NtSetValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString, 0, type, data, count );
 688     }
 689     if (dataW) HeapFree( GetProcessHeap(), 0, dataW );
 690     return RtlNtStatusToDosError( status );
 691 }
 692
 693
 694 /******************************************************************************
 695  *           RegSetValueW   [ADVAPI32.@]
 696  */
 697 DWORD WINAPI RegSetValueW( HKEY hkey, LPCWSTR name, DWORD type, LPCWSTR data, DWORD count )
 698 {
 699     HKEY subkey = hkey;
 700     DWORD ret;
 701
 702     TRACE("(0x%x,%s,%ld,%s,%ld)\n", hkey, debugstr_w(name), type, debugstr_w(data), count );
 703
 704     if (type != REG_SZ) return ERROR_INVALID_PARAMETER;
 705
 706     if (name && name[0])  /* need to create the subkey */
 707     {
 708         if ((ret = RegCreateKeyW( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 709     }
 710
 711     ret = RegSetValueExW( subkey, NULL, 0, REG_SZ, (LPBYTE)data,
 712                           (strlenW( data ) + 1) * sizeof(WCHAR) );
 713     if (subkey != hkey) RegCloseKey( subkey );
 714     return ret;
 715 }
 716
 717
 718 /******************************************************************************
 719  *           RegSetValueA   [ADVAPI32.@]
 720  */
 721 DWORD WINAPI RegSetValueA( HKEY hkey, LPCSTR name, DWORD type, LPCSTR data, DWORD count )
 722 {
 723     HKEY subkey = hkey;
 724     DWORD ret;
 725
 726     TRACE("(0x%x,%s,%ld,%s,%ld)\n", hkey, debugstr_a(name), type, debugstr_a(data), count );
 727
 728     if (type != REG_SZ) return ERROR_INVALID_PARAMETER;
 729
 730     if (name && name[0])  /* need to create the subkey */
 731     {
 732         if ((ret = RegCreateKeyA( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 733     }
 734     ret = RegSetValueExA( subkey, NULL, 0, REG_SZ, (LPBYTE)data, strlen(data)+1 );
 735     if (subkey != hkey) RegCloseKey( subkey );
 736     return ret;
 737 }
 738
 739
 740
 741 /******************************************************************************
 742  *           RegQueryValueExW   [ADVAPI32.@]
 743  *
 744  * Retrieves type and data for a specified name associated with an open key
 745  *
 746  * PARAMS
 747  *    hkey      [I]   Handle of key to query
 748  *    name      [I]   Name of value to query
 749  *    reserved  [I]   Reserved - must be NULL
 750  *    type      [O]   Address of buffer for value type.  If NULL, the type
 751  *                        is not required.
 752  *    data      [O]   Address of data buffer.  If NULL, the actual data is
 753  *                        not required.
 754  *    count     [I/O] Address of data buffer size
 755  *
 756  * RETURNS
 757  *    ERROR_SUCCESS:   Success
 758  *    ERROR_MORE_DATA: !!! if the specified buffer is not big enough to hold the data
 759  *                     buffer is left untouched. The MS-documentation is wrong (js) !!!
 760  */
 761 DWORD WINAPI RegQueryValueExW( HKEY hkey, LPCWSTR name, LPDWORD reserved, LPDWORD type,
 762                                LPBYTE data, LPDWORD count )
 763 {
 764     NTSTATUS status;
 765     UNICODE_STRING name_str;
 766     DWORD total_size;
 767     char buffer[256], *buf_ptr = buffer;
 768     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buffer;
 769     static const int info_size = info->Data - (UCHAR *)info;
 770
 771     TRACE("(0x%x,%s,%p,%p,%p,%p=%ld)\n",
 772           hkey, debugstr_w(name), reserved, type, data, count, count ? *count : 0 );
 773
 774     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 775
 776     RtlInitUnicodeString( &name_str, name );
 777
 778     if (data) total_size = min( sizeof(buffer), *count + info_size );
 779     else total_size = info_size;
 780
 781     status = NtQueryValueKey( hkey, &name_str, KeyValuePartialInformation,
 782                               buffer, total_size, &total_size );
 783     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 784
 785     if (data)
 786     {
 787         /* retry with a dynamically allocated buffer */
 788         while (status == STATUS_BUFFER_OVERFLOW && total_size - info_size <= *count)
 789         {
 790             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 791             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 792                 return ERROR_NOT_ENOUGH_MEMORY;
 793             info = (KEY_VALUE_PARTIAL_INFORMATION *)buf_ptr;
 794             status = NtQueryValueKey( hkey, &name_str, KeyValuePartialInformation,
 795                                       buf_ptr, total_size, &total_size );
 796         }
 797
 798         if (!status)
 799         {
 800             memcpy( data, buf_ptr + info_size, total_size - info_size );
 801             /* if the type is REG_SZ and data is not 0-terminated
 802              * and there is enough space in the buffer NT appends a \0 */
 803             if (total_size - info_size <= *count-sizeof(WCHAR) && is_string(info->Type))
 804             {
 805                 WCHAR *ptr = (WCHAR *)(data + total_size - info_size);
 806                 if (ptr > (WCHAR *)data && ptr[-1]) *ptr = 0;
 807             }
 808         }
 809         else if (status != STATUS_BUFFER_OVERFLOW) goto done;
 810     }
 811     else status = STATUS_SUCCESS;
 812
 813     if (type) *type = info->Type;
 814     if (count) *count = total_size - info_size;
 815
 816  done:
 817     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 818     return RtlNtStatusToDosError(status);
 819 }
 820
 821
 822 /******************************************************************************
 823  *           RegQueryValueExA   [ADVAPI32.@]
 824  *
 825  * NOTES:
 826  * the documentation is wrong: if the buffer is too small it remains untouched
 827  */
 828 DWORD WINAPI RegQueryValueExA( HKEY hkey, LPCSTR name, LPDWORD reserved, LPDWORD type,
 829                                LPBYTE data, LPDWORD count )
 830 {
 831     NTSTATUS status;
 832     ANSI_STRING nameA;
 833     DWORD total_size;
 834     char buffer[256], *buf_ptr = buffer;
 835     KEY_VALUE_PARTIAL_INFORMATION *info = (KEY_VALUE_PARTIAL_INFORMATION *)buffer;
 836     static const int info_size = info->Data - (UCHAR *)info;
 837
 838     TRACE("(0x%x,%s,%p,%p,%p,%p=%ld)\n",
 839           hkey, debugstr_a(name), reserved, type, data, count, count ? *count : 0 );
 840
 841     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 842
 843     RtlInitAnsiString( &nameA, name );
 844     if ((status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
 845                                                 &nameA, FALSE )))
 846         return RtlNtStatusToDosError(status);
 847
 848     status = NtQueryValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString,
 849                               KeyValuePartialInformation, buffer, sizeof(buffer), &total_size );
 850     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 851
 852     /* we need to fetch the contents for a string type even if not requested,
 853      * because we need to compute the length of the ASCII string. */
 854     if (data || is_string(info->Type))
 855     {
 856         /* retry with a dynamically allocated buffer */
 857         while (status == STATUS_BUFFER_OVERFLOW)
 858         {
 859             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 860             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
 861             {
 862                 status = STATUS_NO_MEMORY;
 863                 goto done;
 864             }
 865             info = (KEY_VALUE_PARTIAL_INFORMATION *)buf_ptr;
 866             status = NtQueryValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString,
 867                                     KeyValuePartialInformation, buf_ptr, total_size, &total_size );
 868         }
 869
 870         if (status) goto done;
 871
 872         if (is_string(info->Type))
 873         {
 874             DWORD len;
 875
 876             RtlUnicodeToMultiByteSize( &len, (WCHAR *)(buf_ptr + info_size),
 877                                        total_size - info_size );
 878             if (data && len)
 879             {
 880                 if (len > *count) status = STATUS_BUFFER_OVERFLOW;
 881                 else
 882                 {
 883                     RtlUnicodeToMultiByteN( data, len, NULL, (WCHAR *)(buf_ptr + info_size),
 884                                             total_size - info_size );
 885                     /* if the type is REG_SZ and data is not 0-terminated
 886                      * and there is enough space in the buffer NT appends a \0 */
 887                     if (len < *count && data[len-1]) data[len] = 0;
 888                 }
 889             }
 890             total_size = len + info_size;
 891         }
 892         else if (data)
 893         {
 894             if (total_size - info_size > *count) status = STATUS_BUFFER_OVERFLOW;
 895             else memcpy( data, buf_ptr + info_size, total_size - info_size );
 896         }
 897     }
 898     else status = STATUS_SUCCESS;
 899
 900     if (type) *type = info->Type;
 901     if (count) *count = total_size - info_size;
 902
 903  done:
 904     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
 905     return RtlNtStatusToDosError(status);
 906 }
 907
 908
 909 /******************************************************************************
 910  *           RegQueryValueW   [ADVAPI32.@]
 911  */
 912 DWORD WINAPI RegQueryValueW( HKEY hkey, LPCWSTR name, LPWSTR data, LPLONG count )
 913 {
 914     DWORD ret;
 915     HKEY subkey = hkey;
 916
 917     TRACE("(%x,%s,%p,%ld)\n", hkey, debugstr_w(name), data, count ? *count : 0 );
 918
 919     if (name && name[0])
 920     {
 921         if ((ret = RegOpenKeyW( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 922     }
 923     ret = RegQueryValueExW( subkey, NULL, NULL, NULL, (LPBYTE)data, count );
 924     if (subkey != hkey) RegCloseKey( subkey );
 925     if (ret == ERROR_FILE_NOT_FOUND)
 926     {
 927         /* return empty string if default value not found */
 928         if (data) *data = 0;
 929         if (count) *count = 1;
 930         ret = ERROR_SUCCESS;
 931     }
 932     return ret;
 933 }
 934
 935
 936 /******************************************************************************
 937  *           RegQueryValueA   [ADVAPI32.@]
 938  */
 939 DWORD WINAPI RegQueryValueA( HKEY hkey, LPCSTR name, LPSTR data, LPLONG count )
 940 {
 941     DWORD ret;
 942     HKEY subkey = hkey;
 943
 944     TRACE("(%x,%s,%p,%ld)\n", hkey, debugstr_a(name), data, count ? *count : 0 );
 945
 946     if (name && name[0])
 947     {
 948         if ((ret = RegOpenKeyA( hkey, name, &subkey )) != ERROR_SUCCESS) return ret;
 949     }
 950     ret = RegQueryValueExA( subkey, NULL, NULL, NULL, (LPBYTE)data, count );
 951     if (subkey != hkey) RegCloseKey( subkey );
 952     if (ret == ERROR_FILE_NOT_FOUND)
 953     {
 954         /* return empty string if default value not found */
 955         if (data) *data = 0;
 956         if (count) *count = 1;
 957         ret = ERROR_SUCCESS;
 958     }
 959     return ret;
 960 }
 961
 962
 963 /******************************************************************************
 964  *           RegEnumValueW   [ADVAPI32.@]
 965  *
 966  * PARAMS
 967  *    hkey       [I] Handle to key to query
 968  *    index      [I] Index of value to query
 969  *    value      [O] Value string
 970  *    val_count  [I/O] Size of value buffer (in wchars)
 971  *    reserved   [I] Reserved
 972  *    type       [O] Type code
 973  *    data       [O] Value data
 974  *    count      [I/O] Size of data buffer (in bytes)
 975  */
 976
 977 DWORD WINAPI RegEnumValueW( HKEY hkey, DWORD index, LPWSTR value, LPDWORD val_count,
 978                             LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count )
 979 {
 980     NTSTATUS status;
 981     DWORD total_size;
 982     char buffer[256], *buf_ptr = buffer;
 983     KEY_VALUE_FULL_INFORMATION *info = (KEY_VALUE_FULL_INFORMATION *)buffer;
 984     static const int info_size = (char *)info->Name - (char *)info;
 985
 986     TRACE("(%x,%ld,%p,%p,%p,%p,%p,%p)\n",
 987           hkey, index, value, val_count, reserved, type, data, count );
 988
 989     /* NT only checks count, not val_count */
 990     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
 991
 992     total_size = info_size + (MAX_PATH + 1) * sizeof(WCHAR);
 993     if (data) total_size += *count;
 994     total_size = min( sizeof(buffer), total_size );
 995
 996     status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
 997                                   buffer, total_size, &total_size );
 998     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
 999
1000     if (value || data)
1001     {
1002         /* retry with a dynamically allocated buffer */
1003         while (status == STATUS_BUFFER_OVERFLOW)
1004         {
1005             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1006             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
1007                 return ERROR_NOT_ENOUGH_MEMORY;
1008             info = (KEY_VALUE_FULL_INFORMATION *)buf_ptr;
1009             status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1010                                           buf_ptr, total_size, &total_size );
1011         }
1012
1013         if (status) goto done;
1014
1015         if (value)
1016         {
1017             if (info->NameLength/sizeof(WCHAR) >= *val_count)
1018             {
1019                 status = STATUS_BUFFER_OVERFLOW;
1020                 goto done;
1021             }
1022             memcpy( value, info->Name, info->NameLength );
1023             *val_count = info->NameLength / sizeof(WCHAR);
1024             value[*val_count] = 0;
1025         }
1026
1027         if (data)
1028         {
1029             if (total_size - info->DataOffset > *count)
1030             {
1031                 status = STATUS_BUFFER_OVERFLOW;
1032                 goto done;
1033             }
1034             memcpy( data, buf_ptr + info->DataOffset, total_size - info->DataOffset );
1035             if (total_size - info->DataOffset <= *count-sizeof(WCHAR) && is_string(info->Type))
1036             {
1037                 /* if the type is REG_SZ and data is not 0-terminated
1038                  * and there is enough space in the buffer NT appends a \0 */
1039                 WCHAR *ptr = (WCHAR *)(data + total_size - info->DataOffset);
1040                 if (ptr > (WCHAR *)data && ptr[-1]) *ptr = 0;
1041             }
1042         }
1043     }
1044     else status = STATUS_SUCCESS;
1045
1046     if (type) *type = info->Type;
1047     if (count) *count = info->DataLength;
1048
1049  done:
1050     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1051     return RtlNtStatusToDosError(status);
1052 }
1053
1054
1055 /******************************************************************************
1056  *           RegEnumValueA   [ADVAPI32.@]
1057  */
1058 DWORD WINAPI RegEnumValueA( HKEY hkey, DWORD index, LPSTR value, LPDWORD val_count,
1059                             LPDWORD reserved, LPDWORD type, LPBYTE data, LPDWORD count )
1060 {
1061     NTSTATUS status;
1062     DWORD total_size;
1063     char buffer[256], *buf_ptr = buffer;
1064     KEY_VALUE_FULL_INFORMATION *info = (KEY_VALUE_FULL_INFORMATION *)buffer;
1065     static const int info_size = (char *)info->Name - (char *)info;
1066
1067     TRACE("(%x,%ld,%p,%p,%p,%p,%p,%p)\n",
1068           hkey, index, value, val_count, reserved, type, data, count );
1069
1070     /* NT only checks count, not val_count */
1071     if ((data && !count) || reserved) return ERROR_INVALID_PARAMETER;
1072
1073     total_size = info_size + (MAX_PATH + 1) * sizeof(WCHAR);
1074     if (data) total_size += *count;
1075     total_size = min( sizeof(buffer), total_size );
1076
1077     status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1078                                   buffer, total_size, &total_size );
1079     if (status && status != STATUS_BUFFER_OVERFLOW) goto done;
1080
1081     /* we need to fetch the contents for a string type even if not requested,
1082      * because we need to compute the length of the ASCII string. */
1083     if (value || data || is_string(info->Type))
1084     {
1085         /* retry with a dynamically allocated buffer */
1086         while (status == STATUS_BUFFER_OVERFLOW)
1087         {
1088             if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1089             if (!(buf_ptr = HeapAlloc( GetProcessHeap(), 0, total_size )))
1090                 return ERROR_NOT_ENOUGH_MEMORY;
1091             info = (KEY_VALUE_FULL_INFORMATION *)buf_ptr;
1092             status = NtEnumerateValueKey( hkey, index, KeyValueFullInformation,
1093                                           buf_ptr, total_size, &total_size );
1094         }
1095
1096         if (status) goto done;
1097
1098         if (value)
1099         {
1100             DWORD len;
1101
1102             RtlUnicodeToMultiByteSize( &len, info->Name, info->NameLength );
1103             if (len >= *val_count)
1104             {
1105                 status = STATUS_BUFFER_OVERFLOW;
1106                 goto done;
1107             }
1108             RtlUnicodeToMultiByteN( value, len, NULL, info->Name, info->NameLength );
1109             value[len] = 0;
1110             *val_count = len;
1111         }
1112
1113         if (is_string(info->Type))
1114         {
1115             DWORD len;
1116             RtlUnicodeToMultiByteSize( &len, (WCHAR *)(buf_ptr + info->DataOffset),
1117                                        total_size - info->DataOffset );
1118             if (data && len)
1119             {
1120                 if (len > *count)
1121                 {
1122                     status = STATUS_BUFFER_OVERFLOW;
1123                     goto done;
1124                 }
1125                 RtlUnicodeToMultiByteN( data, len, NULL, (WCHAR *)(buf_ptr + info->DataOffset),
1126                                         total_size - info->DataOffset );
1127                 /* if the type is REG_SZ and data is not 0-terminated
1128                  * and there is enough space in the buffer NT appends a \0 */
1129                 if (len < *count && data[len-1]) data[len] = 0;
1130             }
1131             info->DataLength = len;
1132         }
1133         else if (data)
1134         {
1135             if (total_size - info->DataOffset > *count) status = STATUS_BUFFER_OVERFLOW;
1136             else memcpy( data, buf_ptr + info->DataOffset, total_size - info->DataOffset );
1137         }
1138     }
1139     else status = STATUS_SUCCESS;
1140
1141     if (type) *type = info->Type;
1142     if (count) *count = info->DataLength;
1143
1144  done:
1145     if (buf_ptr != buffer) HeapFree( GetProcessHeap(), 0, buf_ptr );
1146     return RtlNtStatusToDosError(status);
1147 }
1148
1149
1150
1151 /******************************************************************************
1152  *           RegDeleteValueW   [ADVAPI32.@]
1153  *
1154  * PARAMS
1155  *    hkey   [I] handle to key
1156  *    name   [I] name of value to delete
1157  *
1158  * RETURNS
1159  *    error status
1160  */
1161 DWORD WINAPI RegDeleteValueW( HKEY hkey, LPCWSTR name )
1162 {
1163     UNICODE_STRING nameW;
1164     RtlInitUnicodeString( &nameW, name );
1165     return RtlNtStatusToDosError( NtDeleteValueKey( hkey, &nameW ) );
1166 }
1167
1168
1169 /******************************************************************************
1170  *           RegDeleteValueA   [ADVAPI32.@]
1171  */
1172 DWORD WINAPI RegDeleteValueA( HKEY hkey, LPCSTR name )
1173 {
1174     STRING nameA;
1175     NTSTATUS status;
1176
1177     RtlInitAnsiString( &nameA, name );
1178     if (!(status = RtlAnsiStringToUnicodeString( &NtCurrentTeb()->StaticUnicodeString,
1179                                                  &nameA, FALSE )))
1180     {
1181         status = NtDeleteValueKey( hkey, &NtCurrentTeb()->StaticUnicodeString );
1182     }
1183     return RtlNtStatusToDosError( status );
1184 }
1185
1186
1187 /******************************************************************************
1188  *           RegLoadKeyW   [ADVAPI32.@]
1189  *
1190  * PARAMS
1191  *    hkey      [I] Handle of open key
1192  *    subkey    [I] Address of name of subkey
1193  *    filename  [I] Address of filename for registry information
1194  */
1195 LONG WINAPI RegLoadKeyW( HKEY hkey, LPCWSTR subkey, LPCWSTR filename )
1196 {
1197     HANDLE file;
1198     DWORD ret, len, err = GetLastError();
1199
1200     TRACE( "(%x,%s,%s)\n", hkey, debugstr_w(subkey), debugstr_w(filename) );
1201
1202     if (!filename || !*filename) return ERROR_INVALID_PARAMETER;
1203     if (!subkey || !*subkey) return ERROR_INVALID_PARAMETER;
1204
1205     len = strlenW( subkey ) * sizeof(WCHAR);
1206     if (len > MAX_PATH*sizeof(WCHAR)) return ERROR_INVALID_PARAMETER;
1207
1208     if ((file = CreateFileW( filename, GENERIC_READ, 0, NULL, OPEN_EXISTING,
1209                              FILE_ATTRIBUTE_NORMAL, 0 )) == INVALID_HANDLE_VALUE)
1210     {
1211         ret = GetLastError();
1212         goto done;
1213     }
1214
1215     SERVER_START_REQ( load_registry )
1216     {
1217         req->hkey  = hkey;
1218         req->file  = file;
1219         wine_server_add_data( req, subkey, len );
1220         ret = RtlNtStatusToDosError( wine_server_call(req) );
1221     }
1222     SERVER_END_REQ;
1223     CloseHandle( file );
1224
1225  done:
1226     SetLastError( err );  /* restore the last error code */
1227     return ret;
1228 }
1229
1230
1231 /******************************************************************************
1232  *           RegLoadKeyA   [ADVAPI32.@]
1233  */
1234 LONG WINAPI RegLoadKeyA( HKEY hkey, LPCSTR subkey, LPCSTR filename )
1235 {
1236     WCHAR buffer[MAX_PATH];
1237     HANDLE file;
1238     DWORD ret, len, err = GetLastError();
1239
1240     TRACE( "(%x,%s,%s)\n", hkey, debugstr_a(subkey), debugstr_a(filename) );
1241
1242     if (!filename || !*filename) return ERROR_INVALID_PARAMETER;
1243     if (!subkey || !*subkey) return ERROR_INVALID_PARAMETER;
1244
1245     if (!(len = MultiByteToWideChar( CP_ACP, 0, subkey, strlen(subkey), buffer, MAX_PATH )))
1246         return ERROR_INVALID_PARAMETER;
1247
1248     if ((file = CreateFileA( filename, GENERIC_READ, 0, NULL, OPEN_EXISTING,
1249                              FILE_ATTRIBUTE_NORMAL, 0 )) == INVALID_HANDLE_VALUE)
1250     {
1251         ret = GetLastError();
1252         goto done;
1253     }
1254
1255     SERVER_START_REQ( load_registry )
1256     {
1257         req->hkey  = hkey;
1258         req->file  = file;
1259         wine_server_add_data( req, buffer, len * sizeof(WCHAR) );
1260         ret = RtlNtStatusToDosError( wine_server_call(req) );
1261     }
1262     SERVER_END_REQ;
1263     CloseHandle( file );
1264
1265  done:
1266     SetLastError( err );  /* restore the last error code */
1267     return ret;
1268 }
1269
1270
1271 /******************************************************************************
1272  *           RegSaveKeyA   [ADVAPI32.@]
1273  *
1274  * PARAMS
1275  *    hkey   [I] Handle of key where save begins
1276  *    lpFile [I] Address of filename to save to
1277  *    sa     [I] Address of security structure
1278  */
1279 LONG WINAPI RegSaveKeyA( HKEY hkey, LPCSTR file, LPSECURITY_ATTRIBUTES sa )
1280 {
1281     char buffer[1024];
1282     int count = 0;
1283     LPSTR name;
1284     DWORD ret, err;
1285     HFILE handle;
1286
1287     TRACE( "(%x,%s,%p)\n", hkey, debugstr_a(file), sa );
1288
1289     if (!file || !*file) return ERROR_INVALID_PARAMETER;
1290
1291     err = GetLastError();
1292     GetFullPathNameA( file, sizeof(buffer), buffer, &name );
1293     for (;;)
1294     {
1295         sprintf( name, "reg%04x.tmp", count++ );
1296         handle = CreateFileA( buffer, GENERIC_WRITE, 0, NULL,
1297                             CREATE_NEW, FILE_ATTRIBUTE_NORMAL, 0 );
1298         if (handle != INVALID_HANDLE_VALUE) break;
1299         if ((ret = GetLastError()) != ERROR_ALREADY_EXISTS) goto done;
1300
1301         /* Something gone haywire ? Please report if this happens abnormally */
1302         if (count >= 100)
1303             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);
1304     }
1305
1306     SERVER_START_REQ( save_registry )
1307     {
1308         req->hkey = hkey;
1309         req->file = handle;
1310         ret = RtlNtStatusToDosError( wine_server_call( req ) );
1311     }
1312     SERVER_END_REQ;
1313
1314     CloseHandle( handle );
1315     if (!ret)
1316     {
1317         if (!MoveFileExA( buffer, file, MOVEFILE_REPLACE_EXISTING ))
1318         {
1319             ERR( "Failed to move %s to %s\n", buffer, file );
1320             ret = GetLastError();
1321         }
1322     }
1323     if (ret) DeleteFileA( buffer );
1324
1325 done:
1326     SetLastError( err );  /* restore last error code */
1327     return ret;
1328 }
1329
1330
1331 /******************************************************************************
1332  *           RegSaveKeyW   [ADVAPI32.@]
1333  */
1334 LONG WINAPI RegSaveKeyW( HKEY hkey, LPCWSTR file, LPSECURITY_ATTRIBUTES sa )
1335 {
1336     LPSTR fileA = HEAP_strdupWtoA( GetProcessHeap(), 0, file );
1337     DWORD ret = RegSaveKeyA( hkey, fileA, sa );
1338     if (fileA) HeapFree( GetProcessHeap(), 0, fileA );
1339     return ret;
1340 }
1341
1342
1343 /******************************************************************************
1344  * RegRestoreKeyW [ADVAPI32.@]
1345  *
1346  * PARAMS
1347  *    hkey    [I] Handle of key where restore begins
1348  *    lpFile  [I] Address of filename containing saved tree
1349  *    dwFlags [I] Optional flags
1350  */
1351 LONG WINAPI RegRestoreKeyW( HKEY hkey, LPCWSTR lpFile, DWORD dwFlags )
1352 {
1353     TRACE("(%x,%s,%ld)\n",hkey,debugstr_w(lpFile),dwFlags);
1354
1355     /* It seems to do this check before the hkey check */
1356     if (!lpFile || !*lpFile)
1357         return ERROR_INVALID_PARAMETER;
1358
1359     FIXME("(%x,%s,%ld): stub\n",hkey,debugstr_w(lpFile),dwFlags);
1360
1361     /* Check for file existence */
1362
1363     return ERROR_SUCCESS;
1364 }
1365
1366
1367 /******************************************************************************
1368  * RegRestoreKeyA [ADVAPI32.@]
1369  */
1370 LONG WINAPI RegRestoreKeyA( HKEY hkey, LPCSTR lpFile, DWORD dwFlags )
1371 {
1372     LPWSTR lpFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpFile );
1373     LONG ret = RegRestoreKeyW( hkey, lpFileW, dwFlags );
1374     HeapFree( GetProcessHeap(), 0, lpFileW );
1375     return ret;
1376 }
1377
1378
1379 /******************************************************************************
1380  * RegUnLoadKeyW [ADVAPI32.@]
1381  *
1382  * PARAMS
1383  *    hkey     [I] Handle of open key
1384  *    lpSubKey [I] Address of name of subkey to unload
1385  */
1386 LONG WINAPI RegUnLoadKeyW( HKEY hkey, LPCWSTR lpSubKey )
1387 {
1388     FIXME("(%x,%s): stub\n",hkey, debugstr_w(lpSubKey));
1389     return ERROR_SUCCESS;
1390 }
1391
1392
1393 /******************************************************************************
1394  * RegUnLoadKeyA [ADVAPI32.@]
1395  */
1396 LONG WINAPI RegUnLoadKeyA( HKEY hkey, LPCSTR lpSubKey )
1397 {
1398     LPWSTR lpSubKeyW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpSubKey );
1399     LONG ret = RegUnLoadKeyW( hkey, lpSubKeyW );
1400     if(lpSubKeyW) HeapFree( GetProcessHeap(), 0, lpSubKeyW);
1401     return ret;
1402 }
1403
1404
1405 /******************************************************************************
1406  * RegReplaceKeyW [ADVAPI32.@]
1407  *
1408  * PARAMS
1409  *    hkey      [I] Handle of open key
1410  *    lpSubKey  [I] Address of name of subkey
1411  *    lpNewFile [I] Address of filename for file with new data
1412  *    lpOldFile [I] Address of filename for backup file
1413  */
1414 LONG WINAPI RegReplaceKeyW( HKEY hkey, LPCWSTR lpSubKey, LPCWSTR lpNewFile,
1415                               LPCWSTR lpOldFile )
1416 {
1417     FIXME("(%x,%s,%s,%s): stub\n", hkey, debugstr_w(lpSubKey),
1418           debugstr_w(lpNewFile),debugstr_w(lpOldFile));
1419     return ERROR_SUCCESS;
1420 }
1421
1422
1423 /******************************************************************************
1424  * RegReplaceKeyA [ADVAPI32.@]
1425  */
1426 LONG WINAPI RegReplaceKeyA( HKEY hkey, LPCSTR lpSubKey, LPCSTR lpNewFile,
1427                               LPCSTR lpOldFile )
1428 {
1429     LPWSTR lpSubKeyW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpSubKey );
1430     LPWSTR lpNewFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpNewFile );
1431     LPWSTR lpOldFileW = HEAP_strdupAtoW( GetProcessHeap(), 0, lpOldFile );
1432     LONG ret = RegReplaceKeyW( hkey, lpSubKeyW, lpNewFileW, lpOldFileW );
1433     HeapFree( GetProcessHeap(), 0, lpOldFileW );
1434     HeapFree( GetProcessHeap(), 0, lpNewFileW );
1435     HeapFree( GetProcessHeap(), 0, lpSubKeyW );
1436     return ret;
1437 }
1438
1439
1440 /******************************************************************************
1441  * RegSetKeySecurity [ADVAPI32.@]
1442  *
1443  * PARAMS
1444  *    hkey          [I] Open handle of key to set
1445  *    SecurityInfo  [I] Descriptor contents
1446  *    pSecurityDesc [I] Address of descriptor for key
1447  */
1448 LONG WINAPI RegSetKeySecurity( HKEY hkey, SECURITY_INFORMATION SecurityInfo,
1449                                PSECURITY_DESCRIPTOR pSecurityDesc )
1450 {
1451     TRACE("(%x,%ld,%p)\n",hkey,SecurityInfo,pSecurityDesc);
1452
1453     /* It seems to perform this check before the hkey check */
1454     if ((SecurityInfo & OWNER_SECURITY_INFORMATION) ||
1455         (SecurityInfo & GROUP_SECURITY_INFORMATION) ||
1456         (SecurityInfo & DACL_SECURITY_INFORMATION) ||
1457         (SecurityInfo & SACL_SECURITY_INFORMATION)) {
1458         /* Param OK */
1459     } else
1460         return ERROR_INVALID_PARAMETER;
1461
1462     if (!pSecurityDesc)
1463         return ERROR_INVALID_PARAMETER;
1464
1465     FIXME(":(%x,%ld,%p): stub\n",hkey,SecurityInfo,pSecurityDesc);
1466
1467     return ERROR_SUCCESS;
1468 }
1469
1470
1471 /******************************************************************************
1472  * RegGetKeySecurity [ADVAPI32.@]
1473  * Retrieves a copy of security descriptor protecting the registry key
1474  *
1475  * PARAMS
1476  *    hkey                   [I]   Open handle of key to set
1477  *    SecurityInformation    [I]   Descriptor contents
1478  *    pSecurityDescriptor    [O]   Address of descriptor for key
1479  *    lpcbSecurityDescriptor [I/O] Address of size of buffer and description
1480  *
1481  * RETURNS
1482  *    Success: ERROR_SUCCESS
1483  *    Failure: Error code
1484  */
1485 LONG WINAPI RegGetKeySecurity( HKEY hkey, SECURITY_INFORMATION SecurityInformation,
1486                                PSECURITY_DESCRIPTOR pSecurityDescriptor,
1487                                LPDWORD lpcbSecurityDescriptor )
1488 {
1489     TRACE("(%x,%ld,%p,%ld)\n",hkey,SecurityInformation,pSecurityDescriptor,
1490           lpcbSecurityDescriptor?*lpcbSecurityDescriptor:0);
1491
1492     /* FIXME: Check for valid SecurityInformation values */
1493
1494     if (*lpcbSecurityDescriptor < sizeof(SECURITY_DESCRIPTOR))
1495         return ERROR_INSUFFICIENT_BUFFER;
1496
1497     FIXME("(%x,%ld,%p,%ld): stub\n",hkey,SecurityInformation,
1498           pSecurityDescriptor,lpcbSecurityDescriptor?*lpcbSecurityDescriptor:0);
1499
1500     return ERROR_SUCCESS;
1501 }
1502
1503
1504 /******************************************************************************
1505  * RegFlushKey [ADVAPI32.@]
1506  * Immediately writes key to registry.
1507  * Only returns after data has been written to disk.
1508  *
1509  * FIXME: does it really wait until data is written ?
1510  *
1511  * PARAMS
1512  *    hkey [I] Handle of key to write
1513  *
1514  * RETURNS
1515  *    Success: ERROR_SUCCESS
1516  *    Failure: Error code
1517  */
1518 DWORD WINAPI RegFlushKey( HKEY hkey )
1519 {
1520     FIXME( "(%x): stub\n", hkey );
1521     return ERROR_SUCCESS;
1522 }
1523
1524
1525 /******************************************************************************
1526  * RegConnectRegistryW [ADVAPI32.@]
1527  *
1528  * PARAMS
1529  *    lpMachineName [I] Address of name of remote computer
1530  *    hHey          [I] Predefined registry handle
1531  *    phkResult     [I] Address of buffer for remote registry handle
1532  */
1533 LONG WINAPI RegConnectRegistryW( LPCWSTR lpMachineName, HKEY hKey,
1534                                    LPHKEY phkResult )
1535 {
1536     TRACE("(%s,%x,%p): stub\n",debugstr_w(lpMachineName),hKey,phkResult);
1537
1538     if (!lpMachineName || !*lpMachineName) {
1539         /* Use the local machine name */
1540         return RegOpenKeyA( hKey, "", phkResult );
1541     }
1542
1543     FIXME("Cannot connect to %s\n",debugstr_w(lpMachineName));
1544     return ERROR_BAD_NETPATH;
1545 }
1546
1547
1548 /******************************************************************************
1549  * RegConnectRegistryA [ADVAPI32.@]
1550  */
1551 LONG WINAPI RegConnectRegistryA( LPCSTR machine, HKEY hkey, LPHKEY reskey )
1552 {
1553     LPWSTR machineW = HEAP_strdupAtoW( GetProcessHeap(), 0, machine );
1554     DWORD ret = RegConnectRegistryW( machineW, hkey, reskey );
1555     HeapFree( GetProcessHeap(), 0, machineW );
1556     return ret;
1557 }
1558
1559
1560 /******************************************************************************
1561  * RegNotifyChangeKeyValue [ADVAPI32.@]
1562  *
1563  * PARAMS
1564  *    hkey            [I] Handle of key to watch
1565  *    fWatchSubTree   [I] Flag for subkey notification
1566  *    fdwNotifyFilter [I] Changes to be reported
1567  *    hEvent          [I] Handle of signaled event
1568  *    fAsync          [I] Flag for asynchronous reporting
1569  */
1570 LONG WINAPI RegNotifyChangeKeyValue( HKEY hkey, BOOL fWatchSubTree,
1571                                      DWORD fdwNotifyFilter, HANDLE hEvent,
1572                                      BOOL fAsync )
1573 {
1574     FIXME("(%x,%i,%ld,%x,%i): stub\n",hkey,fWatchSubTree,fdwNotifyFilter,
1575           hEvent,fAsync);
1576     return ERROR_SUCCESS;
1577 }