Grösse in Bytes eines Keys der registry bekommen

[Sprint]

Delphi-Quellcode:

const
  S_KEYNAME = 'SOFTWARE\Borland\Delphi\7.0';
  S_VALUENAME = 'RootDir';
var
  CurrentKey: HKEY;
  Path: String;
  Size: DWORD;
begin

  if RegOpenKeyEx(HKEY_LOCAL_MACHINE, S_KEYNAME, 0, KEY_READ, CurrentKey) = ERROR_SUCCESS then
  begin
    SetLength(Path, MAX_PATH);
    Size := Length(Path);
    if RegQueryValueEx(CurrentKey, S_VALUENAME, nil, nil, PByte(PChar(Path)), @Size) = ERROR_SUCCESS then
    begin
      SetLength(Path, Size);
      ShowMessage(Path);
    end;
    RegCloseKey(CurrentKey);
  end;

end;