Как читать REG_RESOURCE_LIST значение - C++ WinAPI - Ответ 3552737

procedure TForm1.Button1Click(Sender: TObject);
begin
ReadREG_MULTI_SZ(HKEY_LOCAL_MACHINE,'HARDWARE\\RESOURCEMAP\\System Resources\\Physical Memory','.Translated', Memo1.Lines);
end;
 
procedure TForm1.ReadREG_MULTI_SZ(const CurrentKey: HKey; const Subkey,
  ValueName: string; Strings: TStrings);
  var
  valueType: DWORD;
  valueLen: DWORD;
  p, buffer: PChar;
  key: HKEY;
begin
 
  // Clear TStrings
  Strings.Clear; 
  // open the specified key
  if RegOpenKeyEx(CurrentKey, 
                  PChar(Subkey), 
                  0, KEY_READ, key) = ERROR_SUCCESS then 
  begin 
    // retrieve the type and data for a specified value name
    SetLastError(RegQueryValueEx(key, 
                 PChar(ValueName), 
                 nil, 
                 @valueType, 
                 nil, 
                 @valueLen)); 
    if GetLastError = ERROR_SUCCESS then 
      if valueType = 8 then 
      begin 
        GetMem(buffer, valueLen); 
        try 
          // receive the value's data (in an array).
          RegQueryValueEx(key, 
                          PChar(ValueName), 
                          nil, 
                          nil, 
                          PBYTE(buffer),
                          @valueLen); 
          // Add values to stringlist
          p := buffer; 
          while p^ <> #0 do 
          begin 
            Strings.Add(p); 
            Inc(p, lstrlen(p) + 1) 
          end 
        finally 
          FreeMem(buffer) 
        end 
      end 
      else 
        raise ERegistryException.Create('Stringlist expected/ String Liste erwartet...') 
    else 
      raise ERegistryException.Create('Cannot Read MULTI_SZ Value/'+ 
        'Kann den MULTI_SZ Wert nicht lesen...'); 
  end;
end;