读取注册表键值的问题。

[dengbangyao888]

我想通过获取某个游戏的文件路径来读它写的注册表值。

已知注册表路径：HKEY_LOCAL_MACHINE\SOFTWARE\CS78\F1 已知键值：Loader （REG_SZ型）


怎么用纯API来实现啊？用Delphi自带的单元类，生成的太大了。

[fenshm]

占位SF先~！

[gyk120]

纯API可以用regopenkey和regqueryvaluekey读取
例如
RegOpenKey(HKEY_LOCAL_MACHINE,‘Software/CS78\F1‘,reg1);
RegQueryValueEx（reg1,,,,,）//偷个懒不写完了，楼主可以自行参考msdn

[dengbangyao888]

不要偷个懒啊 我也是用RegQueryValueEx读，总是出错
---------------------------
Error
---------------------------
Runtime error 216 at 00402EF8
---------------------------
确定
---------------------------
汗，好心人帮一下，我看看错在哪里。。。写个完整的给我撒

[gyk120]

汗，把你代码贴出来看看……

[dengbangyao888]

function RegReadBinary(const RootKey: HKEY; const SubKey, ValueName: string; Data: PChar; out Len: integer): Boolean;
var
Key: HKEY;
T: DWORD;
begin
Result := False;
RegOpenKeyEx(RootKey, PChar(SubKey), 0, KEY_ALL_ACCESS, Key);
if RegQueryValueEx(Key, PChar(ValueName), nil, @T, nil, @Len) = 0 then
Result := true;
RegCloseKey(Key);
end;

var
s : string;
i : integer;
begin
if RegReadBinary(HKEY_LOCAL_MACHINE,'SOFTWARE\SNDA\DN','Loader',@s,i) = true then
MessageBox(0,PChar(s),'',0);
end.

[gyk120]

RegQueryValueEx第五个参数需要用到buffer吧？你定义一个数组array，然后用指针指向它试试，也是@buffer这种形式

[dengbangyao888]

哦，。 试了了，不行啊。不知道怎么搞的。

[Frank.WU]

{
codeby sail2000
test in delphi2010 only
}
var
  FAccess: Cardinal;
  Key: HKEY;
  dwType: DWORD;
  dwLen: DWORD;
  Buf: array of Char;
begin
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, PChar('SOFTWARE\CS78\F1'), 0,
    KEY_ALL_ACCESS, Key) = 0 then
  begin
    if RegQueryValueEx(Key, 'Loader', nil, @dwType, nil, @dwLen)
      = ERROR_SUCCESS then
    begin
      if (dwType = REG_SZ) and (dwLen > 0) then
      begin
        SetLength(Buf, dwLen);
        RegQueryValueEx(Key, 'Loader', nil, @dwType, @Buf[0],
          @dwLen);
          MessageBox(0,PChar(Buf),'',0);
      end;
    end;
    RegCloseKey(Key);
  end;
end;

[Frank.WU]

多了个声明变量 FAccess: Cardinal; 无甚用，请去之。。。