Реестр. Бинарные данные в читаемый вид

[Shouldercannon]

Доброго времени суток!
Хочу считать бинарные данные из реестра и привести в читаемый вид. Нашёл код 2013 года. Он работает только один раз при втором вызове или при закрытии программы он выдаёт ошибку access violation и перебрасывает на GETMEM.INC вот сюда

{$ifdef CPU386}
{---------------32-bit BASM SysFreeMem---------------}
...
  {Get the small block type in ebx}
  mov ebx, TSmallBlockPoolHeader[edx].BlockType

Сам код

function ReadBinary(RootKey: HKEY; SubKey, ValueName: WideString; var Data: String): Bool;
var
  Key: HKEY;
  Buffer: array of Char;
  Size: Cardinal;
  RegType: DWORD;
begin
  Result := False;
  RegType := REG_BINARY;
  if RegOpenKeyExW(RootKey, PWideChar(SubKey), 0, KEY_READ, Key) = ERROR_SUCCESS then
  begin
    if RegQueryValueExW(Key, PWideChar(ValueName), Nil, @RegType, Nil, @Size) = ERROR_SUCCESS then
    begin
      SetLength(Buffer, Size + 1);
      FillChar(Buffer[0], SizeOf(Buffer[0]) * Length(Buffer), #0);
      if RegQueryValueExW(Key, PWideChar(ValueName), Nil, @RegType, @Buffer[0], @Size) = ERROR_SUCCESS then
      begin
        Result := True;
        Data := String(Buffer); // Shows empty or sometimes 1 random char.
      end;
    end;
  end;
  RegCloseKey(Key);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ReadBinary(HKEY_CURRENT_USER, 'SOFTWARE\Microsoft\Office\16.0\Outlook\Profiles\Outlook\9375CFF0413111d3B88A00104B2A6676\00000008', 'Account Name', str);
  Memo1.Text := str;
end;

[macomics]

Поменяйте String(Buffer) на Copy(PChar(@Buffer[0]), 1) и все должно работать нормально.

Иначе он возвращает указатель на локальную переменную, которая уничтожается при выходе (разумеется и память из под нее освобождается)

[Shouldercannon]

Благодарю. Помогло.