Проблема с записью в реест

[eks-s]

Подскажите в чём проблема? Запись-Считывание реестра. Если использовать вариант в строчке 10, то всё работает, но мне нужно сохранять с текстового поля.

uses ...,Registry;

//запись в рееестр
procedure TMainForm.Button1Click(Sender: TObject);
var
  Myreg : TRegistry;
  S : String;
begin
//  S := 'Text';
  S := Edit1.Text;

  Myreg := TRegistry.Create;
  Myreg.RootKey := HKEY_CURRENT_USER;
  Myreg.OpenKey('Software',True);
  Myreg.OpenKey('Updater',True);
  Myreg.WriteBinaryData('Key',S,SizeOf(S));
  Myreg.Free;
end;

//считывание с реестра
procedure TMainForm.Button2Click(Sender: TObject);
var
  reg : TRegistry;
  S : string;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software',false);
  reg.OpenKey('Updater',false);
  reg.ReadBinaryData('Key',S,SizeOf(S));
  reg.Free;
  showmessage(S);
end;

[vitalik007]

А почему бы не записать строковый параметр?
в 17 muReq.writeString('Key',s);

[BOBAH13]

Если угодно так Myreg.WriteBinaryData('Key',S,SizeO f(S)); то пишите правильно

Myreg.WriteBinaryData('Key',Pointer(S)^,Length(S));

[eks-s]

Сообщение от BOBAH13

Если угодно так Myreg.WriteBinaryData('Key',S,SizeO f(S)); то пишите правильно

Myreg.WriteBinaryData('Key',Pointer(S)^,Length(S));

Спасибо! А если нужно прописать и считать запись (record) состоящую из двух переменных, берущих значения с полей ввода? Как тогда с ними работать? Вообще у меня вот такая задача. Но чё то я уже голову ломаю несколько дней

type
  TMyKeyRecord = record
    user  : PWideChar;
    passw : PWideChar;
    Activation : Boolean;
  end;

//запись в реестр
procedure TForm1.Button1Click(Sender: TObject);
var
  Myreg : TRegistry;
  MyRegKey : TMyRegKey;
  S : String;
begin
  S := Edit1.Text;
  GetMem(MyRegKey.user,Length(S)+1);
  StringToWideChar(S,MyRegKey.user,Length(S)+1);
  S := Edit2.Text;
  GetMem(MyRegKey.passw,Length(S)+1);
  StringToWideChar(S,MyRegKey.passw,Length(S)+1);
  MyRegKey.Activation := True;

  Myreg := TRegistry.Create;
  Myreg.RootKey := HKEY_CURRENT_USER;
  Myreg.OpenKey('Software',True);
  Myreg.OpenKey('NODUpdater',True);
  Myreg.WriteBinaryData('Key',MyRegKey,SizeOf(MyRegKey));
  Myreg.Free;
end;

//считывание с реестра
procedure TForm1.Button2Click(Sender: TObject);
var
  reg : TRegistry;
  RegKey : TMyRegKey;
  S : string;
begin
  RegKey.user := '';
  RegKey.passw := '';
  RegKey.Activation := False;

  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software',false);
  reg.OpenKey('NODUpdater',false);
  reg.ReadBinaryData('Key',RegKey,SizeOf(RegKey));
  reg.Free;
  if RegKey.Activation then S := 'True'
    else s := 'False';
  memolog.Lines.Add(WideCharToString(RegKey.user));
  memolog.Lines.Add(WideCharToString(RegKey.passw));
  memolog.Lines.Add(S);
end;

Вот тут я начинаю недопонимать....

[BOBAH13]

Если в записи record существуют елементы типа указателя (String, PCHAR, PWCHAR, PWideChar, Pointer.. и т.д. ) то просто так запись нельзя писать, кстати вот недавно я как раз объяснял кому то на этом форуме с аналогичной проблемой ! Так что поищите по форуме должны найти эту тему.