Cохранить в файл значение заданного имени, тип REG_BINARY. Работа с реестром Windows.

[DelphiFun]

Ни магу понять! Помогите, пожалуйста!
Вот, есть такой код:

function RegReadInt(Root,Key,Name:string):integer;
Var R:TRegistry;
begin
R:=TRegistry.Create;
If Root = 'HKCU' then R.RootKey:=HKEY_Current_User;
If Root = 'HKLM' then R.RootKey:=HKEY_Local_Machine;
If Root = 'HKUS' then R.RootKey:=HKEY_Users;
If Root = 'HKCR' then R.RootKey:=HKEY_Classes_Root;
If Root = 'HKCC' then R.RootKey:=HKEY_Current_Config;
R.OpenKey(Key,true)
result:=R.ReadInteger(Name)
end;

ну и т.д. , а как работает ни магу понять.

Hадо бы сохранить в файл значение заданного имени, тип REG_BINARY, ну или хотябы увидеть на экране.
Если можно пример напишите пожалуйста, который работает.

[ZhekON]

а что тут непонятного?
1.Осуществляется выбор Root'а, тоесть каталога в реестре
2.Открывается ключ
3.Считываются данные
а причом здесь REG_BINARY? в коде невижу такого.
Задай конкретный вопрос! а не так чтобы мы догадывались что тебе именно нужно...

[_SERGEYX_]

Запишем разные настройки в реестр

procedure TfrmMain.ReadParams;
  var reg: TRegIniFile;
begin
   reg := TRegIniFile.Create('Software\MyProg');
   reg.RootKey := HKEY_CURRENT_USER;
   edit1.Text := reg.ReadString('Options','edit1',edit1.Text);
   ListBox1.ItemIndex := reg.ReadInteger('Options','ListBox1',ListBox1.ItemIndex);
   CheckBox1.Checked := reg.ReadBool('Options','CheckBox1',CheckBox1.Checked);
   DateTimePicker1.Date := reg.ReadDate('Options','DateTimePicker1',DateTimePicker1.Date);
   Time1.Time := reg.ReadTime('Options','Time1',Time1.Time);
   DatTime1.DateTime := reg.ReadDateTime('Options','DatTime1',DatTime1.DateTime);
   TableSumma.Value := reg.ReadFloat('Options','TableSumma',TableSumma.Value);
   reg.free
end;

procedure TfrmMain.WriteParams;
  var reg: TRegINIFile;
begin
   reg := TRegIniFile.Create('Software\MyProg');
   reg.RootKey := HKEY_CURRENT_USER;
   reg.WriteString('Options','edit1',edit1.Text);
   reg.WriteInteger('Options','ListBox1',ListBox1.ItemIndex);
   reg.WriteBool('Options','CheckBox1',CheckBox1.Checked);
   reg.WriteDate('Options','DateTimePicker1',DateTimePicker1.Date);
   reg.WriteTime('Options','Time1',Time1.Time);
   reg.WriteDateTime('Options','DatTime1',DatTime1.DateTime);
   reg.WriteFloat('Options','TableSumma',TableSumma.Value);
   reg.free
end;

Есть еще парочка функций, которые почему-то мало кто использует. Это запись и чтение многострочного текста:
При записи строки пропускаем ее через функцию

function StrToIniStr(const Str: string): string;
var
  Buffer: array[0..4095] of Char;
  B, S: PChar;
begin
  if Length(Str) > SizeOf(Buffer) then
    raise Exception.Create('Текст слишком большой для добавления в INI файл');
  S := PChar(Str);
  B := Buffer;
  while S^ <> #0 do
    case S^ of
      #13, #10:
        begin
          if (S^ = #13) and (S[1] = #10) then Inc(S)
          else if (S^ = #10) and (S[1] = #13) then Inc(S);
          B^ := '\';
          Inc(B);
          B^ := 'n';
          Inc(B);
          Inc(S);
        end;
    else
      B^ := S^;
      Inc(B);
      Inc(S);
    end;
  B^ := #0;
  Result := Buffer;
end;

При чтении строки пропускаем ее через функцию

function IniStrToStr(const Str: string): string;
var
  Buffer: array[0..4095] of Char;
  B, S: PChar;
begin
  if Length(Str) > SizeOf(Buffer) then
    raise Exception.Create('Строка для чтения из INI файла');
  S := PChar(Str);
  B := Buffer;
  while S^ <> #0 do
    if (S[0] = '\') and (S[1] = 'n') then
    begin
      B^ := #13;
      Inc(B);
      B^ := #10;
      Inc(B);
      Inc(S);
      Inc(S);
    end
    else
    begin
      B^ := S^;
      Inc(B);
      Inc(S);
    end;
  B^ := #0;
  Result := Buffer;
end;

[DelphiFun]

Допустим в реестре есть такая папка: HKCU\Software\***\gaga\, вот в ней значит лежат двоичные параметры (REG_BINARY)( ну эти самые ключи), список именн, допустим есть такое имя proba, так вот необходимо увидеть на экране или записать в файл.txt ЗНАЧЕНИЕ этого имени (proba). Само значение в 16ой СС находится - это я так просто сказал и вот эти числа надо увидеть на экране, либо записать в ткст-эшный файл.

[DelphiFun]

Насчет кода:

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows, Registry, SysUtils;

function RegReadInt(Root,Key,Name:string):integer;
Var R:TRegistry;
begin
R:=TRegistry.Create;
If Root = 'HKCU' then R.RootKey:=HKEY_Current_User;
If Root = 'HKLM' then R.RootKey:=HKEY_Local_Machine;
If Root = 'HKUS' then R.RootKey:=HKEY_Users;
If Root = 'HKCR' then R.RootKey:=HKEY_Classes_Root;
If Root = 'HKCC' then R.RootKey:=HKEY_Current_Config;
R.OpenKey(Key,true);
result:=R.ReadInteger(Name);
end;

begin
Root:='HKCU';
key:='Software\***\gaga\';  // туда ли я вписал?
name:='proba';              // туда ли я вписал?
RegReadInt(Root,Key,Name); // ?? незнаю что тут делать, ф-я запускается
writeln('Вот сюда что-то надо написать, чтобы это гребаное значение пошло на экран');
readln;
end.
//итого: не пашет ,как я хочу, пожалуйста объясните !

вопщем вот, только не смейтесь

[oLMeR]

могу предположить что в пути в реестре нельзя использовать символ *

[Квэнди]

RegReadInt(Root,Key,Name);
и где же у вас результат сохраняется ? в воздухе ?

[DelphiFun]

Вот так чтоли?

program Project3;

{$APPTYPE CONSOLE}

uses
  Windows, Registry, SysUtils;
var x:integer;    Root,Key,Name:string;

function RegReadInt(Root,Key,Name:string):integer;
Var R:TRegistry;
begin
R:=TRegistry.Create;
If Root = 'HKCU' then R.RootKey:=HKEY_Current_User;
If Root = 'HKLM' then R.RootKey:=HKEY_Local_Machine;
If Root = 'HKUS' then R.RootKey:=HKEY_Users;
If Root = 'HKCR' then R.RootKey:=HKEY_Classes_Root;
If Root = 'HKCC' then R.RootKey:=HKEY_Current_Config;
R.OpenKey(Key,true);
result:=R.ReadInteger(Name);
end;

begin
Root:='HKCU';
key:='Software\GNU\ffdshow';
name:='dlgPosX';
x:=RegReadInt(Root,Key,Name);
writeln(x);
readln;
end.

ошибка: External exception C0000029

[Stilet]

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

Hадо бы сохранить в файл значение заданного имени, тип REG_BINARY, ну или хотябы увидеть на экране.

Так ты должен вытягивать бинарку через ReadBinaryData а не через ReadInteger. И сохранять через Writeln врядли такой тип получится.

[DelphiFun]

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

Так ты должен вытягивать бинарку через ReadBinaryData а не через ReadInteger. И сохранять через Writeln врядли такой тип получится.

можешь функцию подкинуть?