Форум программистов [Powered by Invision Power Board]

Код


--------
uses registry;
--------
var RegIni:TRegIniFile;
begin
   {write}
    RegIni:=TRegIniFile.Create('Software');
    RegIni.RootKey:=HKEY_CURRENT_USER;
    RegIni.OpenKey('\Software\Microsoft\Windows\CurrentVersion', true);
    RegIni.WriteString('run','TesT', Application.ExeName);
   {а также все из раздела RegIni.Write* (типа writeinteger)}
    RegIni.Free;

   {read}
    RegIni:=TRegIniFile.Create('Software');
    RegIni.RootKey:=HKEY_CURRENT_USER;
    RegIni.OpenKey('\Software\Microsoft\Windows\CurrentVersion', true);
    MyString:= RegIni.ReadString('run','TesT');
    {а также все из раздела RegIni.Read* (типа readinteger)} 
    RegIni.Free;
  end;

end;

Код


procedure TForm1.SaveSets;
var
  settings: TMemoryStream;
  R: TRegistry;
  i,b :integer;
  S: PChar;
  l: word;
  bb: boolean;
begin
   -----------

  settings := TMemoryStream.Create;

-------------


  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  R.OpenKey('Software\FragSoft\Test\', true);
  settings.Seek(0, soFromBeginning);
  R.WriteBinaryData('settings', settings.Memory^, settings.Size);
  R.Free;

  settings.free;
end;

procedure TForm1.LoadSets;
var
  settings: TMemoryStream;
  R: TRegistry;
  buf: PChar;
  size: integer;
  i,b :integer;
  l: word;
  bb: boolean;
begin
 ------------------------

  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  R.OpenKey('Software\FragSoft\Test\', true);

  if R.ValueExists('settings') then
  begin
    size := R.GetDataSize('settings');
    buf := GetMemory(size);
    R.ReadBinaryData('settings', buf^, size);

    settings := TMemoryStream.Create;
    settings.Write(buf^, size);
    FreeMemory(buf);
    settings.Seek(0, soFromBeginning);
   ----------------------------------
            FreeMemory(buf)
 ------------------------------
    end;

  ---------------------------

  settings.Free;
  R.Free;

end;