reg.c 45.6 KB
Newer Older
Juergen Schmied's avatar
Juergen Schmied committed
1
/*
2 3 4 5
 * Registry functions
 *
 * Copyright (C) 1999 Juergen Schmied
 * Copyright (C) 2000 Alexandre Julliard
6
 * Copyright 2005 Ivan Leo Puoti, Laurent Pinchart
7
 *
8 9 10 11 12 13 14 15 16 17 18 19
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
20
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21
 *
22 23 24 25 26
 * NOTES:
 * 	HKEY_LOCAL_MACHINE	\\REGISTRY\\MACHINE
 *	HKEY_USERS		\\REGISTRY\\USER
 *	HKEY_CURRENT_CONFIG	\\REGISTRY\\MACHINE\\SYSTEM\\CURRENTCONTROLSET\\HARDWARE PROFILES\\CURRENT
  *	HKEY_CLASSES		\\REGISTRY\\MACHINE\\SOFTWARE\\CLASSES
Juergen Schmied's avatar
Juergen Schmied committed
27 28
 */

29 30 31
#include "config.h"
#include "wine/port.h"

32
#include <stdarg.h>
33
#include <stdio.h>
34
#include <string.h>
35

36 37
#include "ntstatus.h"
#define WIN32_NO_STATUS
38
#include "wine/library.h"
39
#include "ntdll_misc.h"
40
#include "wine/debug.h"
41
#include "wine/unicode.h"
42

43
WINE_DEFAULT_DEBUG_CHANNEL(reg);
44

45 46
/* maximum length of a key/value name in bytes (without terminating null) */
#define MAX_NAME_LENGTH ((MAX_PATH-1) * sizeof(WCHAR))
47

48
/******************************************************************************
49
 * NtCreateKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
50
 * ZwCreateKey [NTDLL.@]
51
 */
52
NTSTATUS WINAPI NtCreateKey( PHANDLE retkey, ACCESS_MASK access, const OBJECT_ATTRIBUTES *attr,
53 54
                             ULONG TitleIndex, const UNICODE_STRING *class, ULONG options,
                             PULONG dispos )
55
{
56 57
    NTSTATUS ret;

58 59
    if (!retkey || !attr) return STATUS_ACCESS_VIOLATION;
    if (attr->Length > sizeof(OBJECT_ATTRIBUTES)) return STATUS_INVALID_PARAMETER;
60
    if (attr->ObjectName->Length > MAX_NAME_LENGTH) return STATUS_BUFFER_OVERFLOW;
61

62
    TRACE( "(%p,%s,%s,%x,%x,%p)\n", attr->RootDirectory, debugstr_us(attr->ObjectName),
63 64
           debugstr_us(class), options, access, retkey );

65
    SERVER_START_REQ( create_key )
66
    {
67
        req->parent     = wine_server_obj_handle( attr->RootDirectory );
68 69 70 71
        req->access     = access;
        req->attributes = attr->Attributes;
        req->options    = options;
        req->namelen    = attr->ObjectName->Length;
72 73 74
        wine_server_add_data( req, attr->ObjectName->Buffer, attr->ObjectName->Length );
        if (class) wine_server_add_data( req, class->Buffer, class->Length );
        if (!(ret = wine_server_call( req )))
75
        {
76
            *retkey = wine_server_ptr_handle( reply->hkey );
77
            if (dispos) *dispos = reply->created ? REG_CREATED_NEW_KEY : REG_OPENED_EXISTING_KEY;
78
        }
79
    }
80
    SERVER_END_REQ;
Patrik Stridvall's avatar
Patrik Stridvall committed
81
    TRACE("<- %p\n", *retkey);
82
    return ret;
83 84
}

85 86 87 88 89
/******************************************************************************
 *  RtlpNtCreateKey [NTDLL.@]
 *
 *  See NtCreateKey.
 */
90
NTSTATUS WINAPI RtlpNtCreateKey( PHANDLE retkey, ACCESS_MASK access, const OBJECT_ATTRIBUTES *attr,
91 92 93
                                 ULONG TitleIndex, const UNICODE_STRING *class, ULONG options,
                                 PULONG dispos )
{
94 95
    OBJECT_ATTRIBUTES oa;

96
    if (attr)
97
    {
98
        oa = *attr;
99 100 101
        oa.Attributes &= ~(OBJ_PERMANENT|OBJ_EXCLUSIVE);
        attr = &oa;
    }
102 103 104

    return NtCreateKey(retkey, access, attr, 0, NULL, 0, dispos);
}
105

106
/******************************************************************************
107
 * NtOpenKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
108 109
 * ZwOpenKey [NTDLL.@]
 *
110
 *   OUT	HANDLE			retkey (returns 0 when failure)
111
 *   IN		ACCESS_MASK		access
112
 *   IN		POBJECT_ATTRIBUTES 	attr
113
 */
114
NTSTATUS WINAPI NtOpenKey( PHANDLE retkey, ACCESS_MASK access, const OBJECT_ATTRIBUTES *attr )
115
{
116
    NTSTATUS ret;
117
    DWORD len = attr->ObjectName->Length;
118

119
    TRACE( "(%p,%s,%x,%p)\n", attr->RootDirectory,
120
           debugstr_us(attr->ObjectName), access, retkey );
121

122
    if (len > MAX_NAME_LENGTH) return STATUS_BUFFER_OVERFLOW;
123
    if (!retkey) return STATUS_INVALID_PARAMETER;
124

125
    SERVER_START_REQ( open_key )
126
    {
127
        req->parent     = wine_server_obj_handle( attr->RootDirectory );
128 129
        req->access     = access;
        req->attributes = attr->Attributes;
130 131
        wine_server_add_data( req, attr->ObjectName->Buffer, len );
        ret = wine_server_call( req );
132
        *retkey = wine_server_ptr_handle( reply->hkey );
133
    }
134
    SERVER_END_REQ;
Patrik Stridvall's avatar
Patrik Stridvall committed
135
    TRACE("<- %p\n", *retkey);
136
    return ret;
137 138
}

139 140 141 142 143
/******************************************************************************
 * RtlpNtOpenKey [NTDLL.@]
 *
 * See NtOpenKey.
 */
144
NTSTATUS WINAPI RtlpNtOpenKey( PHANDLE retkey, ACCESS_MASK access, OBJECT_ATTRIBUTES *attr )
145 146 147 148 149
{
    if (attr)
        attr->Attributes &= ~(OBJ_PERMANENT|OBJ_EXCLUSIVE);
    return NtOpenKey(retkey, access, attr);
}
150

151
/******************************************************************************
152
 * NtDeleteKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
153
 * ZwDeleteKey [NTDLL.@]
154
 */
155
NTSTATUS WINAPI NtDeleteKey( HANDLE hkey )
156
{
157
    NTSTATUS ret;
158

159
    TRACE( "(%p)\n", hkey );
160

161
    SERVER_START_REQ( delete_key )
162
    {
163
        req->hkey = wine_server_obj_handle( hkey );
164
        ret = wine_server_call( req );
165 166 167
    }
    SERVER_END_REQ;
    return ret;
168 169
}

170 171 172 173 174
/******************************************************************************
 * RtlpNtMakeTemporaryKey [NTDLL.@]
 *
 *  See NtDeleteKey.
 */
175
NTSTATUS WINAPI RtlpNtMakeTemporaryKey( HANDLE hkey )
176 177 178
{
    return NtDeleteKey(hkey);
}
179

180
/******************************************************************************
181
 * NtDeleteValueKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
182
 * ZwDeleteValueKey [NTDLL.@]
183
 */
184
NTSTATUS WINAPI NtDeleteValueKey( HANDLE hkey, const UNICODE_STRING *name )
185
{
186 187
    NTSTATUS ret;

Patrik Stridvall's avatar
Patrik Stridvall committed
188
    TRACE( "(%p,%s)\n", hkey, debugstr_us(name) );
189
    if (name->Length > MAX_NAME_LENGTH) return STATUS_BUFFER_OVERFLOW;
190

191
    SERVER_START_REQ( delete_key_value )
192
    {
193
        req->hkey = wine_server_obj_handle( hkey );
194 195
        wine_server_add_data( req, name->Buffer, name->Length );
        ret = wine_server_call( req );
196
    }
197
    SERVER_END_REQ;
198
    return ret;
199
}
200

201

202
/******************************************************************************
203
 *     enumerate_key
204
 *
205
 * Implementation of NtQueryKey and NtEnumerateKey
206
 */
207
static NTSTATUS enumerate_key( HANDLE handle, int index, KEY_INFORMATION_CLASS info_class,
208
                               void *info, DWORD length, DWORD *result_len )
209

210 211 212 213
{
    NTSTATUS ret;
    void *data_ptr;
    size_t fixed_size;
214 215 216

    switch(info_class)
    {
217 218 219
    case KeyBasicInformation: data_ptr = ((KEY_BASIC_INFORMATION *)info)->Name; break;
    case KeyFullInformation:  data_ptr = ((KEY_FULL_INFORMATION *)info)->Class; break;
    case KeyNodeInformation:  data_ptr = ((KEY_NODE_INFORMATION *)info)->Name;  break;
220
    default:
221
        FIXME( "Information class %d not implemented\n", info_class );
222 223
        return STATUS_INVALID_PARAMETER;
    }
224
    fixed_size = (char *)data_ptr - (char *)info;
225

226
    SERVER_START_REQ( enum_key )
227
    {
228
        req->hkey       = wine_server_obj_handle( handle );
229 230 231 232 233 234 235 236 237 238 239
        req->index      = index;
        req->info_class = info_class;
        if (length > fixed_size) wine_server_set_reply( req, data_ptr, length - fixed_size );
        if (!(ret = wine_server_call( req )))
        {
            switch(info_class)
            {
            case KeyBasicInformation:
                {
                    KEY_BASIC_INFORMATION keyinfo;
                    fixed_size = (char *)keyinfo.Name - (char *)&keyinfo;
240
                    keyinfo.LastWriteTime.QuadPart = reply->modif;
241 242 243 244 245 246 247 248 249
                    keyinfo.TitleIndex = 0;
                    keyinfo.NameLength = reply->namelen;
                    memcpy( info, &keyinfo, min( length, fixed_size ) );
                }
                break;
            case KeyFullInformation:
                {
                    KEY_FULL_INFORMATION keyinfo;
                    fixed_size = (char *)keyinfo.Class - (char *)&keyinfo;
250
                    keyinfo.LastWriteTime.QuadPart = reply->modif;
251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266
                    keyinfo.TitleIndex = 0;
                    keyinfo.ClassLength = wine_server_reply_size(reply);
                    keyinfo.ClassOffset = keyinfo.ClassLength ? fixed_size : -1;
                    keyinfo.SubKeys = reply->subkeys;
                    keyinfo.MaxNameLen = reply->max_subkey;
                    keyinfo.MaxClassLen = reply->max_class;
                    keyinfo.Values = reply->values;
                    keyinfo.MaxValueNameLen = reply->max_value;
                    keyinfo.MaxValueDataLen = reply->max_data;
                    memcpy( info, &keyinfo, min( length, fixed_size ) );
                }
                break;
            case KeyNodeInformation:
                {
                    KEY_NODE_INFORMATION keyinfo;
                    fixed_size = (char *)keyinfo.Name - (char *)&keyinfo;
267
                    keyinfo.LastWriteTime.QuadPart = reply->modif;
268
                    keyinfo.TitleIndex = 0;
269 270 271 272 273 274 275 276 277 278
                    if (reply->namelen < wine_server_reply_size(reply))
                    {
                        keyinfo.ClassLength = wine_server_reply_size(reply) - reply->namelen;
                        keyinfo.ClassOffset = fixed_size + reply->namelen;
                    }
                    else
                    {
                        keyinfo.ClassLength = 0;
                        keyinfo.ClassOffset = -1;
                    }
279 280 281 282 283 284 285 286
                    keyinfo.NameLength = reply->namelen;
                    memcpy( info, &keyinfo, min( length, fixed_size ) );
                }
                break;
            }
            *result_len = fixed_size + reply->total;
            if (length < *result_len) ret = STATUS_BUFFER_OVERFLOW;
        }
287
    }
288 289
    SERVER_END_REQ;
    return ret;
290 291 292 293
}



294
/******************************************************************************
295
 * NtEnumerateKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
296
 * ZwEnumerateKey [NTDLL.@]
297 298
 *
 * NOTES
299
 *  the name copied into the buffer is NOT 0-terminated
300
 */
301
NTSTATUS WINAPI NtEnumerateKey( HANDLE handle, ULONG index, KEY_INFORMATION_CLASS info_class,
302
                                void *info, DWORD length, DWORD *result_len )
303
{
304 305
    /* -1 means query key, so avoid it here */
    if (index == (ULONG)-1) return STATUS_NO_MORE_ENTRIES;
306
    return enumerate_key( handle, index, info_class, info, length, result_len );
307 308
}

309

310 311 312 313
/******************************************************************************
 * RtlpNtEnumerateSubKey [NTDLL.@]
 *
 */
314
NTSTATUS WINAPI RtlpNtEnumerateSubKey( HANDLE handle, UNICODE_STRING *out, ULONG index )
315 316 317 318 319 320 321 322
{
  KEY_BASIC_INFORMATION *info;
  DWORD dwLen, dwResultLen;
  NTSTATUS ret;

  if (out->Length)
  {
    dwLen = out->Length + sizeof(KEY_BASIC_INFORMATION);
323
    info = RtlAllocateHeap( GetProcessHeap(), 0, dwLen );
324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351
    if (!info)
      return STATUS_NO_MEMORY;
  }
  else
  {
    dwLen = 0;
    info = NULL;
  }

  ret = NtEnumerateKey( handle, index, KeyBasicInformation, info, dwLen, &dwResultLen );
  dwResultLen -= sizeof(KEY_BASIC_INFORMATION);

  if (ret == STATUS_BUFFER_OVERFLOW)
    out->Length = dwResultLen;
  else if (!ret)
  {
    if (out->Length < info->NameLength)
    {
      out->Length = dwResultLen;
      ret = STATUS_BUFFER_OVERFLOW;
    }
    else
    {
      out->Length = info->NameLength;
      memcpy(out->Buffer, info->Name, info->NameLength);
    }
  }

352
  RtlFreeHeap( GetProcessHeap(), 0, info );
353 354 355
  return ret;
}

356
/******************************************************************************
357
 * NtQueryKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
358
 * ZwQueryKey [NTDLL.@]
359
 */
360
NTSTATUS WINAPI NtQueryKey( HANDLE handle, KEY_INFORMATION_CLASS info_class,
361
                            void *info, DWORD length, DWORD *result_len )
362
{
363
    return enumerate_key( handle, -1, info_class, info, length, result_len );
364 365 366
}


367 368 369
/* fill the key value info structure for a specific info class */
static void copy_key_value_info( KEY_VALUE_INFORMATION_CLASS info_class, void *info,
                                 DWORD length, int type, int name_len, int data_len )
370
{
371 372 373 374 375 376 377 378
    switch(info_class)
    {
    case KeyValueBasicInformation:
        {
            KEY_VALUE_BASIC_INFORMATION keyinfo;
            keyinfo.TitleIndex = 0;
            keyinfo.Type       = type;
            keyinfo.NameLength = name_len;
379
            length = min( length, (char *)keyinfo.Name - (char *)&keyinfo );
380 381 382 383 384 385 386 387
            memcpy( info, &keyinfo, length );
            break;
        }
    case KeyValueFullInformation:
        {
            KEY_VALUE_FULL_INFORMATION keyinfo;
            keyinfo.TitleIndex = 0;
            keyinfo.Type       = type;
388
            keyinfo.DataOffset = (char *)keyinfo.Name - (char *)&keyinfo + name_len;
389 390
            keyinfo.DataLength = data_len;
            keyinfo.NameLength = name_len;
391
            length = min( length, (char *)keyinfo.Name - (char *)&keyinfo );
392 393 394 395 396 397 398 399 400
            memcpy( info, &keyinfo, length );
            break;
        }
    case KeyValuePartialInformation:
        {
            KEY_VALUE_PARTIAL_INFORMATION keyinfo;
            keyinfo.TitleIndex = 0;
            keyinfo.Type       = type;
            keyinfo.DataLength = data_len;
401
            length = min( length, (char *)keyinfo.Data - (char *)&keyinfo );
402 403 404 405 406 407
            memcpy( info, &keyinfo, length );
            break;
        }
    default:
        break;
    }
408 409 410 411
}


/******************************************************************************
412
 *  NtEnumerateValueKey	[NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
413
 *  ZwEnumerateValueKey [NTDLL.@]
414
 */
415
NTSTATUS WINAPI NtEnumerateValueKey( HANDLE handle, ULONG index,
416 417
                                     KEY_VALUE_INFORMATION_CLASS info_class,
                                     void *info, DWORD length, DWORD *result_len )
418
{
419
    NTSTATUS ret;
420 421
    void *ptr;
    size_t fixed_size;
422

423
    TRACE( "(%p,%u,%d,%p,%d)\n", handle, index, info_class, info, length );
424 425 426 427

    /* compute the length we want to retrieve */
    switch(info_class)
    {
428 429 430
    case KeyValueBasicInformation:   ptr = ((KEY_VALUE_BASIC_INFORMATION *)info)->Name; break;
    case KeyValueFullInformation:    ptr = ((KEY_VALUE_FULL_INFORMATION *)info)->Name; break;
    case KeyValuePartialInformation: ptr = ((KEY_VALUE_PARTIAL_INFORMATION *)info)->Data; break;
431 432 433 434
    default:
        FIXME( "Information class %d not implemented\n", info_class );
        return STATUS_INVALID_PARAMETER;
    }
435
    fixed_size = (char *)ptr - (char *)info;
436

437
    SERVER_START_REQ( enum_key_value )
438
    {
439
        req->hkey       = wine_server_obj_handle( handle );
440 441 442 443
        req->index      = index;
        req->info_class = info_class;
        if (length > fixed_size) wine_server_set_reply( req, ptr, length - fixed_size );
        if (!(ret = wine_server_call( req )))
444
        {
445 446 447 448
            copy_key_value_info( info_class, info, length, reply->type, reply->namelen,
                                 wine_server_reply_size(reply) - reply->namelen );
            *result_len = fixed_size + reply->total;
            if (length < *result_len) ret = STATUS_BUFFER_OVERFLOW;
449
        }
450 451
    }
    SERVER_END_REQ;
452
    return ret;
453 454
}

455

456
/******************************************************************************
457
 * NtQueryValueKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
458
 * ZwQueryValueKey [NTDLL.@]
459 460 461
 *
 * NOTES
 *  the name in the KeyValueInformation is never set
462
 */
463
NTSTATUS WINAPI NtQueryValueKey( HANDLE handle, const UNICODE_STRING *name,
464 465
                                 KEY_VALUE_INFORMATION_CLASS info_class,
                                 void *info, DWORD length, DWORD *result_len )
466
{
467
    NTSTATUS ret;
468
    UCHAR *data_ptr;
469
    unsigned int fixed_size = 0;
470

471
    TRACE( "(%p,%s,%d,%p,%d)\n", handle, debugstr_us(name), info_class, info, length );
472

473
    if (name->Length > MAX_NAME_LENGTH) return STATUS_BUFFER_OVERFLOW;
474

475 476 477 478
    /* compute the length we want to retrieve */
    switch(info_class)
    {
    case KeyValueBasicInformation:
479 480 481 482 483 484 485 486
    {
        KEY_VALUE_BASIC_INFORMATION *basic_info = info;
        if (FIELD_OFFSET(KEY_VALUE_BASIC_INFORMATION, Name) < length)
        {
            memcpy(basic_info->Name, name->Buffer,
                   min(length - FIELD_OFFSET(KEY_VALUE_BASIC_INFORMATION, Name), name->Length));
        }
        fixed_size = FIELD_OFFSET(KEY_VALUE_BASIC_INFORMATION, Name) + name->Length;
487 488
        data_ptr = NULL;
        break;
489
    }
490
    case KeyValueFullInformation:
491 492 493 494 495 496 497 498
    {
        KEY_VALUE_FULL_INFORMATION *full_info = info;
        if (FIELD_OFFSET(KEY_VALUE_FULL_INFORMATION, Name) < length)
        {
            memcpy(full_info->Name, name->Buffer,
                   min(length - FIELD_OFFSET(KEY_VALUE_FULL_INFORMATION, Name), name->Length));
        }
        data_ptr = (UCHAR *)full_info->Name + name->Length;
499
        fixed_size = (char *)data_ptr - (char *)info;
500
        break;
501
    }
502
    case KeyValuePartialInformation:
503 504
        data_ptr = ((KEY_VALUE_PARTIAL_INFORMATION *)info)->Data;
        fixed_size = (char *)data_ptr - (char *)info;
505 506 507 508 509
        break;
    default:
        FIXME( "Information class %d not implemented\n", info_class );
        return STATUS_INVALID_PARAMETER;
    }
510

511
    SERVER_START_REQ( get_key_value )
512
    {
513
        req->hkey = wine_server_obj_handle( handle );
514
        wine_server_add_data( req, name->Buffer, name->Length );
515
        if (length > fixed_size && data_ptr) wine_server_set_reply( req, data_ptr, length - fixed_size );
516
        if (!(ret = wine_server_call( req )))
517
        {
518
            copy_key_value_info( info_class, info, length, reply->type,
519
                                 name->Length, reply->total );
520
            *result_len = fixed_size + (info_class == KeyValueBasicInformation ? 0 : reply->total);
521
            if (length < *result_len) ret = STATUS_BUFFER_OVERFLOW;
522
        }
523 524
    }
    SERVER_END_REQ;
525
    return ret;
526 527
}

528 529 530 531
/******************************************************************************
 * RtlpNtQueryValueKey [NTDLL.@]
 *
 */
532
NTSTATUS WINAPI RtlpNtQueryValueKey( HANDLE handle, ULONG *result_type, PBYTE dest,
533 534 535 536 537 538
                                     DWORD *result_len )
{
    KEY_VALUE_PARTIAL_INFORMATION *info;
    UNICODE_STRING name;
    NTSTATUS ret;
    DWORD dwResultLen;
539
    DWORD dwLen = sizeof (KEY_VALUE_PARTIAL_INFORMATION) + (result_len ? *result_len : 0);
540

541
    info = RtlAllocateHeap( GetProcessHeap(), 0, dwLen );
542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559
    if (!info)
      return STATUS_NO_MEMORY;

    name.Length = 0;
    ret = NtQueryValueKey( handle, &name, KeyValuePartialInformation, info, dwLen, &dwResultLen );

    if (!ret || ret == STATUS_BUFFER_OVERFLOW)
    {
        if (result_len)
            *result_len = info->DataLength;

        if (result_type)
            *result_type = info->Type;

        if (ret != STATUS_BUFFER_OVERFLOW)
            memcpy( dest, info->Data, info->DataLength );
    }

560
    RtlFreeHeap( GetProcessHeap(), 0, info );
561 562
    return ret;
}
563 564

/******************************************************************************
565
 *  NtFlushKey	[NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
566
 *  ZwFlushKey  [NTDLL.@]
567
 */
568
NTSTATUS WINAPI NtFlushKey(HANDLE key)
569
{
570 571 572 573 574 575
    NTSTATUS ret;

    TRACE("key=%p\n", key);

    SERVER_START_REQ( flush_key )
    {
576
	req->hkey = wine_server_obj_handle( key );
577 578 579 580 581
	ret = wine_server_call( req );
    }
    SERVER_END_REQ;
    
    return ret;
582 583 584
}

/******************************************************************************
585
 *  NtLoadKey	[NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
586
 *  ZwLoadKey   [NTDLL.@]
587
 */
James Hawkins's avatar
James Hawkins committed
588
NTSTATUS WINAPI NtLoadKey( const OBJECT_ATTRIBUTES *attr, OBJECT_ATTRIBUTES *file )
589
{
James Hawkins's avatar
James Hawkins committed
590 591 592 593 594 595 596
    NTSTATUS ret;
    HANDLE hive;
    IO_STATUS_BLOCK io;

    TRACE("(%p,%p)\n", attr, file);

    ret = NtCreateFile(&hive, GENERIC_READ, file, &io, NULL, FILE_ATTRIBUTE_NORMAL, 0,
597
                       FILE_OPEN, 0, NULL, 0);
James Hawkins's avatar
James Hawkins committed
598 599 600 601
    if (ret) return ret;

    SERVER_START_REQ( load_registry )
    {
602 603
        req->hkey = wine_server_obj_handle( attr->RootDirectory );
        req->file = wine_server_obj_handle( hive );
James Hawkins's avatar
James Hawkins committed
604 605 606 607 608 609 610 611
        wine_server_add_data(req, attr->ObjectName->Buffer, attr->ObjectName->Length);
        ret = wine_server_call( req );
    }
    SERVER_END_REQ;

    NtClose(hive);
   
    return ret;
612 613 614
}

/******************************************************************************
615
 *  NtNotifyChangeKey	[NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
616
 *  ZwNotifyChangeKey   [NTDLL.@]
617 618
 */
NTSTATUS WINAPI NtNotifyChangeKey(
619
	IN HANDLE KeyHandle,
620 621 622 623 624
	IN HANDLE Event,
	IN PIO_APC_ROUTINE ApcRoutine OPTIONAL,
	IN PVOID ApcContext OPTIONAL,
	OUT PIO_STATUS_BLOCK IoStatusBlock,
	IN ULONG CompletionFilter,
625
	IN BOOLEAN Asynchronous,
626 627 628 629
	OUT PVOID ChangeBuffer,
	IN ULONG Length,
	IN BOOLEAN WatchSubtree)
{
630 631
    NTSTATUS ret;

632
    TRACE("(%p,%p,%p,%p,%p,0x%08x, 0x%08x,%p,0x%08x,0x%08x)\n",
633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649
        KeyHandle, Event, ApcRoutine, ApcContext, IoStatusBlock, CompletionFilter,
        Asynchronous, ChangeBuffer, Length, WatchSubtree);

    if (ApcRoutine || ApcContext || ChangeBuffer || Length)
        FIXME("Unimplemented optional parameter\n");

    if (!Asynchronous)
    {
        OBJECT_ATTRIBUTES attr;
        InitializeObjectAttributes( &attr, NULL, 0, NULL, NULL );
        ret = NtCreateEvent( &Event, EVENT_ALL_ACCESS, &attr, FALSE, FALSE );
        if (ret != STATUS_SUCCESS)
            return ret;
    }

    SERVER_START_REQ( set_registry_notification )
    {
650 651
        req->hkey    = wine_server_obj_handle( KeyHandle );
        req->event   = wine_server_obj_handle( Event );
652 653 654 655 656 657 658 659 660 661 662 663 664 665
        req->subtree = WatchSubtree;
        req->filter  = CompletionFilter;
        ret = wine_server_call( req );
    }
    SERVER_END_REQ;
 
    if (!Asynchronous)
    {
        if (ret == STATUS_SUCCESS)
            NtWaitForSingleObject( Event, FALSE, NULL );
        NtClose( Event );
    }

    return STATUS_SUCCESS;
666 667 668 669 670 671 672 673
}

/******************************************************************************
 * NtQueryMultipleValueKey [NTDLL]
 * ZwQueryMultipleValueKey
 */

NTSTATUS WINAPI NtQueryMultipleValueKey(
674
	HANDLE KeyHandle,
675
	PKEY_MULTIPLE_VALUE_INFORMATION ListOfValuesToQuery,
676 677 678 679 680
	ULONG NumberOfItems,
	PVOID MultipleValueInformation,
	ULONG Length,
	PULONG  ReturnLength)
{
681
	FIXME("(%p,%p,0x%08x,%p,0x%08x,%p) stub!\n",
682 683 684 685 686
	KeyHandle, ListOfValuesToQuery, NumberOfItems, MultipleValueInformation,
	Length,ReturnLength);
	return STATUS_SUCCESS;
}

687
/******************************************************************************
688
 * NtReplaceKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
689
 * ZwReplaceKey [NTDLL.@]
690 691 692
 */
NTSTATUS WINAPI NtReplaceKey(
	IN POBJECT_ATTRIBUTES ObjectAttributes,
693
	IN HANDLE Key,
694 695
	IN POBJECT_ATTRIBUTES ReplacedObjectAttributes)
{
696 697 698
    FIXME("(%s,%p,%s),stub!\n", debugstr_ObjectAttributes(ObjectAttributes), Key,
          debugstr_ObjectAttributes(ReplacedObjectAttributes) );
    return STATUS_SUCCESS;
699 700
}
/******************************************************************************
701
 * NtRestoreKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
702
 * ZwRestoreKey [NTDLL.@]
703 704
 */
NTSTATUS WINAPI NtRestoreKey(
705
	HANDLE KeyHandle,
706
	HANDLE FileHandle,
707 708
	ULONG RestoreFlags)
{
709
	FIXME("(%p,%p,0x%08x) stub\n",
710
	KeyHandle, FileHandle, RestoreFlags);
711
	return STATUS_SUCCESS;
712 713
}
/******************************************************************************
714
 * NtSaveKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
715
 * ZwSaveKey [NTDLL.@]
716
 */
717
NTSTATUS WINAPI NtSaveKey(IN HANDLE KeyHandle, IN HANDLE FileHandle)
718
{
719 720 721 722 723 724
    NTSTATUS ret;

    TRACE("(%p,%p)\n", KeyHandle, FileHandle);

    SERVER_START_REQ( save_registry )
    {
725 726
        req->hkey = wine_server_obj_handle( KeyHandle );
        req->file = wine_server_obj_handle( FileHandle );
727 728 729 730 731
        ret = wine_server_call( req );
    }
    SERVER_END_REQ;

    return ret;
732 733
}
/******************************************************************************
734
 * NtSetInformationKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
735
 * ZwSetInformationKey [NTDLL.@]
736 737
 */
NTSTATUS WINAPI NtSetInformationKey(
738
	IN HANDLE KeyHandle,
739 740 741 742
	IN const int KeyInformationClass,
	IN PVOID KeyInformation,
	IN ULONG KeyInformationLength)
{
743
	FIXME("(%p,0x%08x,%p,0x%08x) stub\n",
744
	KeyHandle, KeyInformationClass, KeyInformation, KeyInformationLength);
745
	return STATUS_SUCCESS;
746
}
747 748


749
/******************************************************************************
750
 * NtSetValueKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
751
 * ZwSetValueKey [NTDLL.@]
752 753
 *
 * NOTES
754
 *   win95 does not care about count for REG_SZ and finds out the len by itself (js)
755
 *   NT does definitely care (aj)
756
 */
757
NTSTATUS WINAPI NtSetValueKey( HANDLE hkey, const UNICODE_STRING *name, ULONG TitleIndex,
758
                               ULONG type, const void *data, ULONG count )
759
{
760 761
    NTSTATUS ret;

762
    TRACE( "(%p,%s,%d,%p,%d)\n", hkey, debugstr_us(name), type, data, count );
763 764

    if (name->Length > MAX_NAME_LENGTH) return STATUS_BUFFER_OVERFLOW;
765

766
    SERVER_START_REQ( set_key_value )
767
    {
768
        req->hkey    = wine_server_obj_handle( hkey );
769 770 771 772 773 774 775
        req->type    = type;
        req->namelen = name->Length;
        wine_server_add_data( req, name->Buffer, name->Length );
        wine_server_add_data( req, data, count );
        ret = wine_server_call( req );
    }
    SERVER_END_REQ;
776
    return ret;
777 778
}

779 780 781 782
/******************************************************************************
 * RtlpNtSetValueKey [NTDLL.@]
 *
 */
783
NTSTATUS WINAPI RtlpNtSetValueKey( HANDLE hkey, ULONG type, const void *data,
784 785 786 787 788 789 790 791
                                   ULONG count )
{
    UNICODE_STRING name;

    name.Length = 0;
    return NtSetValueKey( hkey, &name, 0, type, data, count );
}

792
/******************************************************************************
793
 * NtUnloadKey [NTDLL.@]
Patrik Stridvall's avatar
Patrik Stridvall committed
794
 * ZwUnloadKey [NTDLL.@]
795
 */
796
NTSTATUS WINAPI NtUnloadKey(IN POBJECT_ATTRIBUTES attr)
797
{
798 799
    NTSTATUS ret;

800
    TRACE("(%p)\n", attr);
801 802 803

    SERVER_START_REQ( unload_registry )
    {
804
        req->hkey = wine_server_obj_handle( attr->RootDirectory );
805 806 807 808 809
        ret = wine_server_call(req);
    }
    SERVER_END_REQ;

    return ret;
810 811 812
}

/******************************************************************************
813
 *  RtlFormatCurrentUserKeyPath		[NTDLL.@]
814
 *
815
 */
816
NTSTATUS WINAPI RtlFormatCurrentUserKeyPath( IN OUT PUNICODE_STRING KeyPath)
817
{
818
    static const WCHAR pathW[] = {'\\','R','e','g','i','s','t','r','y','\\','U','s','e','r','\\'};
819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845
    HANDLE token;
    NTSTATUS status;

    status = NtOpenThreadToken(GetCurrentThread(), TOKEN_READ, TRUE, &token);
    if (status == STATUS_NO_TOKEN)
        status = NtOpenProcessToken(GetCurrentProcess(), TOKEN_READ, &token);
    if (status == STATUS_SUCCESS)
    {
        char buffer[sizeof(TOKEN_USER) + sizeof(SID) + sizeof(DWORD)*SID_MAX_SUB_AUTHORITIES];
        DWORD len = sizeof(buffer);

        status = NtQueryInformationToken(token, TokenUser, buffer, len, &len);
        if (status == STATUS_SUCCESS)
        {
            KeyPath->MaximumLength = 0;
            status = RtlConvertSidToUnicodeString(KeyPath, ((TOKEN_USER *)buffer)->User.Sid, FALSE);
            if (status == STATUS_BUFFER_OVERFLOW)
            {
                PWCHAR buf = RtlAllocateHeap(GetProcessHeap(), 0,
                                             sizeof(pathW) + KeyPath->Length + sizeof(WCHAR));
                if (buf)
                {
                    memcpy(buf, pathW, sizeof(pathW));
                    KeyPath->MaximumLength = KeyPath->Length + sizeof(WCHAR);
                    KeyPath->Buffer = (PWCHAR)((LPBYTE)buf + sizeof(pathW));
                    status = RtlConvertSidToUnicodeString(KeyPath,
                                                          ((TOKEN_USER *)buffer)->User.Sid, FALSE);
846
                    KeyPath->Buffer = buf;
847 848 849 850 851 852 853 854 855 856
                    KeyPath->Length += sizeof(pathW);
                    KeyPath->MaximumLength += sizeof(pathW);
                }
                else
                    status = STATUS_NO_MEMORY;
            }
        }
        NtClose(token);
    }
    return status;
857 858 859
}

/******************************************************************************
860
 *  RtlOpenCurrentUser		[NTDLL.@]
861
 *
862 863 864
 * NOTES
 *  If we return just HKEY_CURRENT_USER the advapi tries to find a remote
 *  registry (odd handle) and fails.
865
 */
866
NTSTATUS WINAPI RtlOpenCurrentUser(
867
	IN ACCESS_MASK DesiredAccess, /* [in] */
868
	OUT PHANDLE KeyHandle)	      /* [out] handle of HKEY_CURRENT_USER */
869 870 871 872 873
{
	OBJECT_ATTRIBUTES ObjectAttributes;
	UNICODE_STRING ObjectName;
	NTSTATUS ret;

874
	TRACE("(0x%08x, %p)\n",DesiredAccess, KeyHandle);
875

876
        if ((ret = RtlFormatCurrentUserKeyPath(&ObjectName))) return ret;
877
	InitializeObjectAttributes(&ObjectAttributes,&ObjectName,OBJ_CASE_INSENSITIVE,0, NULL);
878
	ret = NtCreateKey(KeyHandle, DesiredAccess, &ObjectAttributes, 0, NULL, 0, NULL);
879 880
	RtlFreeUnicodeString(&ObjectName);
	return ret;
881
}
882 883 884 885 886 887 888 889 890 891 892 893 894 895


static NTSTATUS RTL_ReportRegistryValue(PKEY_VALUE_FULL_INFORMATION pInfo,
                                        PRTL_QUERY_REGISTRY_TABLE pQuery, PVOID pContext, PVOID pEnvironment)
{
    PUNICODE_STRING str;
    UNICODE_STRING src, dst;
    LONG *bin;
    ULONG offset;
    PWSTR wstr;
    DWORD res;
    NTSTATUS status = STATUS_SUCCESS;
    ULONG len;
    LPWSTR String;
896
    ULONG count = 0;
897 898 899 900

    if (pInfo == NULL)
    {
        if (pQuery->Flags & RTL_QUERY_REGISTRY_DIRECT)
901
            return STATUS_INVALID_PARAMETER;
902 903 904 905 906 907 908 909 910 911 912
        else
        {
            status = pQuery->QueryRoutine(pQuery->Name, pQuery->DefaultType, pQuery->DefaultData,
                                          pQuery->DefaultLength, pContext, pQuery->EntryContext);
        }
        return status;
    }
    len = pInfo->DataLength;

    if (pQuery->Flags & RTL_QUERY_REGISTRY_DIRECT)
    {
913 914
        str = pQuery->EntryContext;

915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955
        switch(pInfo->Type)
        {
        case REG_EXPAND_SZ:
            if (!(pQuery->Flags & RTL_QUERY_REGISTRY_NOEXPAND))
            {
                RtlInitUnicodeString(&src, (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset));
                res = 0;
                dst.MaximumLength = 0;
                RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
                dst.Length = 0;
                dst.MaximumLength = res;
                dst.Buffer = RtlAllocateHeap(GetProcessHeap(), 0, res * sizeof(WCHAR));
                RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
                status = pQuery->QueryRoutine(pQuery->Name, pInfo->Type, dst.Buffer,
                                     dst.Length, pContext, pQuery->EntryContext);
                RtlFreeHeap(GetProcessHeap(), 0, dst.Buffer);
            }

        case REG_SZ:
        case REG_LINK:
            if (str->Buffer == NULL)
                RtlCreateUnicodeString(str, (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset));
            else
                RtlAppendUnicodeToString(str, (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset));
            break;

        case REG_MULTI_SZ:
            if (!(pQuery->Flags & RTL_QUERY_REGISTRY_NOEXPAND))
                return STATUS_INVALID_PARAMETER;

            if (str->Buffer == NULL)
            {
                str->Buffer = RtlAllocateHeap(GetProcessHeap(), 0, len);
                str->MaximumLength = len;
            }
            len = min(len, str->MaximumLength);
            memcpy(str->Buffer, ((CHAR*)pInfo) + pInfo->DataOffset, len);
            str->Length = len;
            break;

        default:
956
            bin = pQuery->EntryContext;
957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041
            if (pInfo->DataLength <= sizeof(ULONG))
                memcpy(bin, ((CHAR*)pInfo) + pInfo->DataOffset,
                    pInfo->DataLength);
            else
            {
                if (bin[0] <= sizeof(ULONG))
                {
                    memcpy(&bin[1], ((CHAR*)pInfo) + pInfo->DataOffset,
                    min(-bin[0], pInfo->DataLength));
                }
                else
                {
                   len = min(bin[0], pInfo->DataLength);
                    bin[1] = len;
                    bin[2] = pInfo->Type;
                    memcpy(&bin[3], ((CHAR*)pInfo) + pInfo->DataOffset, len);
                }
           }
           break;
        }
    }
    else
    {
        if((pQuery->Flags & RTL_QUERY_REGISTRY_NOEXPAND) ||
           (pInfo->Type != REG_EXPAND_SZ && pInfo->Type != REG_MULTI_SZ))
        {
            status = pQuery->QueryRoutine(pInfo->Name, pInfo->Type,
                ((CHAR*)pInfo) + pInfo->DataOffset, pInfo->DataLength,
                pContext, pQuery->EntryContext);
        }
        else if (pInfo->Type == REG_EXPAND_SZ)
        {
            RtlInitUnicodeString(&src, (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset));
            res = 0;
            dst.MaximumLength = 0;
            RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
            dst.Length = 0;
            dst.MaximumLength = res;
            dst.Buffer = RtlAllocateHeap(GetProcessHeap(), 0, res * sizeof(WCHAR));
            RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
            status = pQuery->QueryRoutine(pQuery->Name, pInfo->Type, dst.Buffer,
                                          dst.Length, pContext, pQuery->EntryContext);
            RtlFreeHeap(GetProcessHeap(), 0, dst.Buffer);
        }
        else /* REG_MULTI_SZ */
        {
            if(pQuery->Flags & RTL_QUERY_REGISTRY_NOEXPAND)
            {
                for (offset = 0; offset <= pInfo->DataLength; offset += len + sizeof(WCHAR))
                    {
                    wstr = (WCHAR*)(((CHAR*)pInfo) + offset);
                    len = strlenW(wstr) * sizeof(WCHAR);
                    status = pQuery->QueryRoutine(pQuery->Name, pInfo->Type, wstr, len,
                        pContext, pQuery->EntryContext);
                    if(status != STATUS_SUCCESS && status != STATUS_BUFFER_TOO_SMALL)
                        return status;
                    }
            }
            else
            {
                while(count<=pInfo->DataLength)
                {
                    String = (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset)+count;
                    count+=strlenW(String)+1;
                    RtlInitUnicodeString(&src, (WCHAR*)(((CHAR*)pInfo) + pInfo->DataOffset));
                    res = 0;
                    dst.MaximumLength = 0;
                    RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
                    dst.Length = 0;
                    dst.MaximumLength = res;
                    dst.Buffer = RtlAllocateHeap(GetProcessHeap(), 0, res * sizeof(WCHAR));
                    RtlExpandEnvironmentStrings_U(pEnvironment, &src, &dst, &res);
                    status = pQuery->QueryRoutine(pQuery->Name, pInfo->Type, dst.Buffer,
                                                  dst.Length, pContext, pQuery->EntryContext);
                    RtlFreeHeap(GetProcessHeap(), 0, dst.Buffer);
                    if(status != STATUS_SUCCESS && status != STATUS_BUFFER_TOO_SMALL)
                        return status;
                }
            }
        }
    }
    return status;
}


1042
static NTSTATUS RTL_GetKeyHandle(ULONG RelativeTo, PCWSTR Path, PHANDLE handle)
1043 1044 1045 1046 1047 1048 1049 1050 1051
{
    UNICODE_STRING KeyString;
    OBJECT_ATTRIBUTES regkey;
    PCWSTR base;
    INT len;
    NTSTATUS status;

    static const WCHAR empty[] = {0};
    static const WCHAR control[] = {'\\','R','e','g','i','s','t','r','y','\\','M','a','c','h','i','n','e',
1052
    '\\','S','y','s','t','e','m','\\','C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\',
1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107
    'C','o','n','t','r','o','l','\\',0};

    static const WCHAR devicemap[] = {'\\','R','e','g','i','s','t','r','y','\\','M','a','c','h','i','n','e','\\',
    'H','a','r','d','w','a','r','e','\\','D','e','v','i','c','e','M','a','p','\\',0};

    static const WCHAR services[] = {'\\','R','e','g','i','s','t','r','y','\\','M','a','c','h','i','n','e','\\',
    'S','y','s','t','e','m','\\','C','u','r','r','e','n','t','C','o','n','t','r','o','l','S','e','t','\\',
    'S','e','r','v','i','c','e','s','\\',0};

    static const WCHAR user[] = {'\\','R','e','g','i','s','t','r','y','\\','U','s','e','r','\\',
    'C','u','r','r','e','n','t','U','s','e','r','\\',0};

    static const WCHAR windows_nt[] = {'\\','R','e','g','i','s','t','r','y','\\','M','a','c','h','i','n','e','\\',
    'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\',
    'W','i','n','d','o','w','s',' ','N','T','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',0};

    switch (RelativeTo & 0xff)
    {
    case RTL_REGISTRY_ABSOLUTE:
        base = empty;
        break;

    case RTL_REGISTRY_CONTROL:
        base = control;
        break;

    case RTL_REGISTRY_DEVICEMAP:
        base = devicemap;
        break;

    case RTL_REGISTRY_SERVICES:
        base = services;
        break;

    case RTL_REGISTRY_USER:
        base = user;
        break;

    case RTL_REGISTRY_WINDOWS_NT:
        base = windows_nt;
        break;

    default:
        return STATUS_INVALID_PARAMETER;
    }

    len = (strlenW(base) + strlenW(Path) + 1) * sizeof(WCHAR);
    KeyString.Buffer = RtlAllocateHeap(GetProcessHeap(), 0, len);
    if (KeyString.Buffer == NULL)
        return STATUS_NO_MEMORY;

    strcpyW(KeyString.Buffer, base);
    strcatW(KeyString.Buffer, Path);
    KeyString.Length = len - sizeof(WCHAR);
    KeyString.MaximumLength = len;
1108
    InitializeObjectAttributes(&regkey, &KeyString, OBJ_CASE_INSENSITIVE, NULL, NULL);
1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122
    status = NtOpenKey(handle, KEY_ALL_ACCESS, &regkey);
    RtlFreeHeap(GetProcessHeap(), 0, KeyString.Buffer);
    return status;
}

/*************************************************************************
 * RtlQueryRegistryValues   [NTDLL.@]
 *
 * Query multiple registry values with a signle call.
 *
 * PARAMS
 *  RelativeTo  [I] Registry path that Path refers to
 *  Path        [I] Path to key
 *  QueryTable  [I] Table of key values to query
Austin English's avatar
Austin English committed
1123 1124
 *  Context     [I] Parameter to pass to the application defined QueryRoutine function
 *  Environment [I] Optional parameter to use when performing expansion
1125 1126 1127 1128 1129 1130 1131 1132 1133
 *
 * RETURNS
 *  STATUS_SUCCESS or an appropriate NTSTATUS error code.
 */
NTSTATUS WINAPI RtlQueryRegistryValues(IN ULONG RelativeTo, IN PCWSTR Path,
                                       IN PRTL_QUERY_REGISTRY_TABLE QueryTable, IN PVOID Context,
                                       IN PVOID Environment OPTIONAL)
{
    UNICODE_STRING Value;
1134
    HANDLE handle, topkey;
1135 1136 1137 1138 1139
    PKEY_VALUE_FULL_INFORMATION pInfo = NULL;
    ULONG len, buflen = 0;
    NTSTATUS status=STATUS_SUCCESS, ret = STATUS_SUCCESS;
    INT i;

1140
    TRACE("(%d, %s, %p, %p, %p)\n", RelativeTo, debugstr_w(Path), QueryTable, Context, Environment);
1141

1142 1143 1144
    if(Path == NULL)
        return STATUS_INVALID_PARAMETER;

1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168
    /* get a valid handle */
    if (RelativeTo & RTL_REGISTRY_HANDLE)
        topkey = handle = (HANDLE)Path;
    else
    {
        status = RTL_GetKeyHandle(RelativeTo, Path, &topkey);
        handle = topkey;
    }
    if(status != STATUS_SUCCESS)
        return status;

    /* Process query table entries */
    for (; QueryTable->QueryRoutine != NULL || QueryTable->Name != NULL; ++QueryTable)
    {
        if (QueryTable->Flags &
            (RTL_QUERY_REGISTRY_SUBKEY | RTL_QUERY_REGISTRY_TOPKEY))
        {
            /* topkey must be kept open just in case we will reuse it later */
            if (handle != topkey)
                NtClose(handle);

            if (QueryTable->Flags & RTL_QUERY_REGISTRY_SUBKEY)
            {
                handle = 0;
1169
                status = RTL_GetKeyHandle(PtrToUlong(QueryTable->Name), Path, &handle);
1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216
                if(status != STATUS_SUCCESS)
                {
                    ret = status;
                    goto out;
                }
            }
            else
                handle = topkey;
        }

        if (QueryTable->Flags & RTL_QUERY_REGISTRY_NOVALUE)
        {
            QueryTable->QueryRoutine(QueryTable->Name, REG_NONE, NULL, 0,
                Context, QueryTable->EntryContext);
            continue;
        }

        if (!handle)
        {
            if (QueryTable->Flags & RTL_QUERY_REGISTRY_REQUIRED)
            {
                ret = STATUS_OBJECT_NAME_NOT_FOUND;
                goto out;
            }
            continue;
        }

        if (QueryTable->Name == NULL)
        {
            if (QueryTable->Flags & RTL_QUERY_REGISTRY_DIRECT)
            {
                ret = STATUS_INVALID_PARAMETER;
                goto out;
            }

            /* Report all subkeys */
            for (i = 0;; ++i)
            {
                status = NtEnumerateValueKey(handle, i,
                    KeyValueFullInformation, pInfo, buflen, &len);
                if (status == STATUS_NO_MORE_ENTRIES)
                    break;
                if (status == STATUS_BUFFER_OVERFLOW ||
                    status == STATUS_BUFFER_TOO_SMALL)
                {
                    buflen = len;
                    RtlFreeHeap(GetProcessHeap(), 0, pInfo);
1217
                    pInfo = RtlAllocateHeap(GetProcessHeap(), 0, buflen);
1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250
                    NtEnumerateValueKey(handle, i, KeyValueFullInformation,
                        pInfo, buflen, &len);
                }

                status = RTL_ReportRegistryValue(pInfo, QueryTable, Context, Environment);
                if(status != STATUS_SUCCESS && status != STATUS_BUFFER_TOO_SMALL)
                {
                    ret = status;
                    goto out;
                }
                if (QueryTable->Flags & RTL_QUERY_REGISTRY_DELETE)
                {
                    RtlInitUnicodeString(&Value, pInfo->Name);
                    NtDeleteValueKey(handle, &Value);
                }
            }

            if (i == 0  && (QueryTable->Flags & RTL_QUERY_REGISTRY_REQUIRED))
            {
                ret = STATUS_OBJECT_NAME_NOT_FOUND;
                goto out;
            }
        }
        else
        {
            RtlInitUnicodeString(&Value, QueryTable->Name);
            status = NtQueryValueKey(handle, &Value, KeyValueFullInformation,
                pInfo, buflen, &len);
            if (status == STATUS_BUFFER_OVERFLOW ||
                status == STATUS_BUFFER_TOO_SMALL)
            {
                buflen = len;
                RtlFreeHeap(GetProcessHeap(), 0, pInfo);
1251
                pInfo = RtlAllocateHeap(GetProcessHeap(), 0, buflen);
1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302
                status = NtQueryValueKey(handle, &Value,
                    KeyValueFullInformation, pInfo, buflen, &len);
            }
            if (status != STATUS_SUCCESS)
            {
                if (QueryTable->Flags & RTL_QUERY_REGISTRY_REQUIRED)
                {
                    ret = STATUS_OBJECT_NAME_NOT_FOUND;
                    goto out;
                }
                status = RTL_ReportRegistryValue(NULL, QueryTable, Context, Environment);
                if(status != STATUS_SUCCESS && status != STATUS_BUFFER_TOO_SMALL)
                {
                    ret = status;
                    goto out;
                }
            }
            else
            {
                status = RTL_ReportRegistryValue(pInfo, QueryTable, Context, Environment);
                if(status != STATUS_SUCCESS && status != STATUS_BUFFER_TOO_SMALL)
                {
                    ret = status;
                    goto out;
                }
                if (QueryTable->Flags & RTL_QUERY_REGISTRY_DELETE)
                    NtDeleteValueKey(handle, &Value);
            }
        }
    }

out:
    RtlFreeHeap(GetProcessHeap(), 0, pInfo);
    if (handle != topkey)
        NtClose(handle);
    NtClose(topkey);
    return ret;
}

/*************************************************************************
 * RtlCheckRegistryKey   [NTDLL.@]
 *
 * Query multiple registry values with a signle call.
 *
 * PARAMS
 *  RelativeTo [I] Registry path that Path refers to
 *  Path       [I] Path to key
 *
 * RETURNS
 *  STATUS_SUCCESS if the specified key exists, or an NTSTATUS error code.
 */
1303
NTSTATUS WINAPI RtlCheckRegistryKey(IN ULONG RelativeTo, IN PWSTR Path)
1304
{
1305
    HANDLE handle;
1306 1307
    NTSTATUS status;

1308
    TRACE("(%d, %s)\n", RelativeTo, debugstr_w(Path));
1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331

    if((!RelativeTo) && Path == NULL)
        return STATUS_OBJECT_PATH_SYNTAX_BAD;
    if(RelativeTo & RTL_REGISTRY_HANDLE)
        return STATUS_SUCCESS;

    status = RTL_GetKeyHandle(RelativeTo, Path, &handle);
    if (handle) NtClose(handle);
    if (status == STATUS_INVALID_HANDLE) status = STATUS_OBJECT_NAME_NOT_FOUND;
    return status;
}

/*************************************************************************
 * RtlDeleteRegistryValue   [NTDLL.@]
 *
 * Query multiple registry values with a signle call.
 *
 * PARAMS
 *  RelativeTo [I] Registry path that Path refers to
 *  Path       [I] Path to key
 *  ValueName  [I] Name of the value to delete
 *
 * RETURNS
1332
 *  STATUS_SUCCESS if the specified key is successfully deleted, or an NTSTATUS error code.
1333
 */
1334
NTSTATUS WINAPI RtlDeleteRegistryValue(IN ULONG RelativeTo, IN PCWSTR Path, IN PCWSTR ValueName)
1335 1336
{
    NTSTATUS status;
1337
    HANDLE handle;
1338 1339
    UNICODE_STRING Value;

1340
    TRACE("(%d, %s, %s)\n", RelativeTo, debugstr_w(Path), debugstr_w(ValueName));
1341 1342 1343 1344

    RtlInitUnicodeString(&Value, ValueName);
    if(RelativeTo == RTL_REGISTRY_HANDLE)
    {
1345
        return NtDeleteValueKey((HANDLE)Path, &Value);
1346 1347 1348 1349 1350 1351 1352
    }
    status = RTL_GetKeyHandle(RelativeTo, Path, &handle);
    if (status) return status;
    status = NtDeleteValueKey(handle, &Value);
    NtClose(handle);
    return status;
}
1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393

/*************************************************************************
 * RtlWriteRegistryValue   [NTDLL.@]
 *
 * Sets the registry value with provided data.
 *
 * PARAMS
 *  RelativeTo [I] Registry path that path parameter refers to
 *  path       [I] Path to the key (or handle - see RTL_GetKeyHandle)
 *  name       [I] Name of the registry value to set
 *  type       [I] Type of the registry key to set
 *  data       [I] Pointer to the user data to be set
 *  length     [I] Length of the user data pointed by data
 *
 * RETURNS
 *  STATUS_SUCCESS if the specified key is successfully set,
 *  or an NTSTATUS error code.
 */
NTSTATUS WINAPI RtlWriteRegistryValue( ULONG RelativeTo, PCWSTR path, PCWSTR name,
                                       ULONG type, PVOID data, ULONG length )
{
    HANDLE hkey;
    NTSTATUS status;
    UNICODE_STRING str;

    TRACE( "(%d, %s, %s) -> %d: %p [%d]\n", RelativeTo, debugstr_w(path), debugstr_w(name),
           type, data, length );

    RtlInitUnicodeString( &str, name );

    if (RelativeTo == RTL_REGISTRY_HANDLE)
        return NtSetValueKey( (HANDLE)path, &str, 0, type, data, length );

    status = RTL_GetKeyHandle( RelativeTo, path, &hkey );
    if (status != STATUS_SUCCESS) return status;

    status = NtSetValueKey( hkey, &str, 0, type, data, length );
    NtClose( hkey );

    return status;
}