2

并感谢您花时间查看我的问题。

我正在尝试使用本机 NtCreateKey API 在 HKCU 内创建一个密钥。

我有一个资源可以帮助我了解 API 的工作原理，但我似乎无法让它适用于 HKCU，只有 HKLM ......这可能吗？

源代码我已经：

const
   KeyNameBuffer: AnsiString = '\Registry\Machine\SOFTWARE'; //Assuming I need to change this.....
   NewKeyNameBuffer: AnsiString = 'Parent Key To Create';
   HiddenKeyNameBuffer: AnsiString = 'Main Key To Create';
   HiddenValueNameBuffer: AnsiString = 'Value Key To Create';

 procedure TForm1.btnDemoClick(Sender: TObject);
 var
    KeyName, ValueName: UNICODE_STRING;
    SoftwareKeyHandle, SysKeyHandle, HiddenKeyHandle: THandle;
    Status: ULONG;
    ObjectAttributes: OBJECT_ATTRIBUTES;
    Disposition: ULONG;
    Buffer: array of WideChar;
 begin

    //
    // Open the Software key
    //
   SetLength(Buffer, Length(KeyNameBuffer));
   MultiByteToWideChar(CP_UTF8, 0, @KeyNameBuffer[1], Length(KeyNameBuffer),
       PWideChar(Buffer), Length(Buffer));
   KeyName.Buffer := @Buffer[0];
    KeyName.Length := Length(KeyNameBuffer) * SizeOf(WideChar);
    InitializeObjectAttributes(ObjectAttributes, @KeyName, OBJ_CASE_INSENSITIVE,
       0, nil);
    Status := NtCreateKey(SoftwareKeyHandle, KEY_ALL_ACCESS, ObjectAttributes, 0,
       nil, REG_OPTION_NON_VOLATILE, Disposition);
    if not NT_SUCCESS(Status) then
      raise Exception.Create('Error: Couldn''t open HKLM\Software');
 end;

我所有的类型定义和 API 声明都是在该代码之上进行的，我只是不认为有必要将它们全部发布。

我正在使用 Delphi 7 IDE。

任何有关解决此问题的帮助将不胜感激。

谢谢。

4

1 回答 1

5

我相信你应该使用RegCreateKeyEx这个。

但是，您的问题的答案是 HKCU 的适当键名是：

\Registry\User\<Users_SID>

当然，您必须为当前用户提供 SID。这是 Win32 API 在RegCreateKeyEx.

于 2012-09-12T08:17:32.040 回答