Kako citati podatke iz Registry baze (ne pomocu Registry unit-a) ?

Code:

var
  hndKey : HKEY;
  mPath  : String;
  mSize  : DWORD;
begin
  If RegOpenKeyEx(HKEY_LOCAL_MACHINE,
                  'SOFTWARE\Microsoft\Windows\CurrentVersion'),
                  0,
                  KEY_QUERY_VALUE,
                  hndKey) = ERROR_SUCCESS Then
    Try
      mSize := SizeOf(mPath);
      RegQueryValueEx(hndKey, 'MediaPath', nil, nil, PByte(mPath), @mSize);
    Finally
      RegCloseKey(hndKey);
    End;

Code:

var
  hndKey : HKEY;
  mPath  : string;
  mSize  : DWORD;
begin
  if RegOpenKeyEx(HKEY_LOCAL_MACHINE,
                  'SOFTWARE\Microsoft\Windows\CurrentVersion',
                  0,
                  KEY_QUERY_VALUE,
                  hndKey) = ERROR_SUCCESS then
  try
    mSize := 0;
    if RegQueryValueEx(hndKey, 'MediaPath', nil, nil, nil, @mSize) = ERROR_SUCCESS then begin
      mPath := StringOfChar(' ',mSize);
      RegQueryValueEx(hndKey, 'MediaPath', nil, nil, PByte(mPath), @mSize);
    end;;
  finally
    RegCloseKey(hndKey);
  end;
end;