Функция Tregistry.keyexists не работает

[Ozerich]

вот код

Procedure Tform1.LoadPassword;
var r:Tregistry;
begin
  R:=Tregistry.Create;
  r.RootKey:=HKEY_LOCAL_MACHINE;
  r.OpenKey('Software\xxxxx',true);
  password:=Encrypt(r.ReadString('password')); 
  if r.KeyExists('1') then
  configform.sCheckBox4.Checked:=r.ReadBool('1');
  //configform.sCheckBox3.Checked:=r.ReadBool('1');
  if r.KeyExists('2') then
  configform.sCheckBox4.Checked:=r.ReadBool('2');
  if r.KeyExists('3') then
  configform.sCheckBox5.Checked:=r.ReadBool('3');
  r.Free;
end;

если убрать проверку на условия то все считается с реестра.Это значит что параметры 1,2,3 там существуют.
Но почему то r.keyexists('1') выдает false??

[Showy]

надо писать например вот так

if r.KeyExists('Software\xxxxx\1') then

if r.KeyExists('1') then  
  configform.sCheckBox4.Checked:=r.ReadBool('1');

Ты читаешь значение а проверяешь ключ? может быть тебе надо ValueExists использовать.

[Ozerich]

спасибо.
Мне оказывается надо было valueExists.я думал эти 2 метода одинаковые

[Smoke]

А тогда может мне кто-нить поможет?

var
  R: TRegistry;
begin
  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  R.SaveKey('Software\MyKey', 'c:\qwe.reg');
end;

Итог: Файл создается, но пустой, хотя ключ существует...

P.S.
Либо подскажите, как из реестра сделать экспорт ветки в стандартный виндовый .reg-файл?

procedure GetString(R: TRegistry; F: TStrings; Key: String);
var
  W: TStrings;
  i: Integer;
begin
  W := TStringList.Create;
  R.OpenKey(Key, True);
  R.GetValueNames(W);
  F.Add('');
  F.Add('[HKEY_CURRENT_USER\Software\MyProg\' + Key + ']');
  for i := 0 to W.Count - 1 do
    F.Add(R.ReadString(W[i]));
  W.Clear;
  R.GetKeyNames(W);
  R.CloseKey;
  for i := 0 to W.Count - 1 do
    GetString(R, F, W[i]);
  W.Free;
end;

procedure ExportRegistry(const Profile: String);
var
  R: TRegistry;
  F: TStrings;
  FN: String;
begin
  FN := ExtractFilePath(ParamStr(0)) + 'profiles\';
  FN := FN + Profile + '.reg';
  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  F := TStringList.Create;
  F.Add('Windows Registry Editor Version 5.00');
  GetString(R, F, '');
  F.SaveToFile(FN);
  F.Free;
  R.Free;
end;

Что здесь не правильно?

[BOBAH13]

Может надо сначала OpenKey сделать потом Save и Close? ну я так в теории..

[Smoke]

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

Может надо сначала OpenKey сделать потом Save и Close? ну я так в теории..

Я и так уже пропробовать успел - ноль эффекта, так что склонясь к своему "мега"-коду в котором уже кое-что подправил...

function PreparePath(const Path: String): String;
var
  R: String;
  i: Integer;
begin
  R := '';
  for i := 1 to Length(Path) do
  begin
    R := R + Path[i];
    if Path[i] = '\' then
      R := R + Path[i];
  end;
  Result := R;
end;

procedure GetString(R: Tregistry; F: TStrings; Key: String);
var
  W: TStrings;
  i: Integer;
  Value: String;
  Data: String;
  Typ: TRegDataType;
begin
  W := TStringList.Create;
  R.OpenKey(Key, True);
  R.GetValueNames(W);
  F.Add('');
  F.Add('[HKEY_CURRENT_USER\' + Key + ']');
  for i := 0 to W.Count - 1 do
  begin
    Data := '';
    Value := W[i];
    if Value = '' then
      Value := '@'
    else
      Value := '"' + Value + '"';
    Typ := R.GetDataType(W[i]);
    case Typ of
      rdBinary:
        begin
          //Как обрабатывать бинарные данные???
        end;
      rdInteger:
        begin
          Data := IntToHex(R.ReadInteger(W[i]), 8);
          Data := 'dword:' + Data;
        end;
      rdString:
        begin
          Data := R.ReadString(W[i]);
          Data := PreparePath(Data);
          Data := '"' + Data + '"';
        end;
    end;
    F.Add(Value + '=' + Data);
  end;
  W.Clear;
  R.GetKeyNames(W);
  R.CloseKey;
  for i := 0 to W.Count - 1 do
    GetString(R, F, Key + W[i] + '\');
  W.Free;
end;

procedure ExportRegistry(const Profile: String);
var
  R: TRegistry;
  F: TStrings;
  FN: String;
begin
  FN := ExtractFilePath(ParamStr(0)) + 'profiles\';
  FN := FN + Profile + '.reg';
  R := TRegistry.Create;
  R.RootKey := HKEY_CURRENT_USER;
  F := TStringList.Create;
  F.Add('Windows Registry Editor Version 5.00');
  GetString(R, F, 'Software\MyProg\');
  F.SaveToFile(FN);
  F.Free;
  R.Free;
end;