2-ва вaрианта в Reg.OpenKey

[KWN, lnc]

Почему не работает?
Идея такова прога ишет параметр NameProg! если его нет! тогда следующая сылка!
Скажем
Software\Games to

var  
Reg: TRegistry;

Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;

if (Reg.OpenKey('\Software\My Prog', true)) and (Reg.readstring('NameProg')) then

[KORN]

дык проверяй, if keyexists и пошел дальше

[KWN, lnc]

KORN извини а можно полностью код ПЛИЗЗЗЗЗЗЗЗ
а то не полоучается вот половина кода, который я понел!

var reg:Tregistry;
    f:string;
begin
  reg:=Tregistry.Create; 
  try
   reg.RootKey:=HKEY_CLASSES_ROOT; 
   if not reg.KeyExists

хочу так же напомнить что адреса разные... если прога не находит здесь скажем в

HCU\Software\My Prog параметр Neext

тогда программа пытается найти в след. адресе скажем здесь

HLM\Software\Proges параметр Prev

Спасибо за внимание.

[KORN]

сам то подумать не хочешь совсем7 постоянно за тебя все делать нужно7 в инете и на форуме очень много раз приводились примеры... ты вообще думаешь что пишешь или нет7

if not reg.keyexists('HCU\Software\My Prog') and reg.valueexists('Neext') then

[KWN, lnc]

KORN в очередной раз извини просто когда я думаю у меня след. получается и по щас немогу понять что здесь не так! Находит первый а второй не хочет! почему?

[KORN]

а ты ключ почему не закрываешь, перед переходом к другому ключу7 что так сложно запомнить: создал, открыл, выполнил операцию, закрыл, уничтожил...

[KWN, lnc]

KORN извини а где именно??? указываю здесь и баг!!!

if Reg.ValueExists('Путь к exe')
then
Edit1.Text :=Reg.ReadString('Путь к exe')
else
CloseKey;
Free; 
begin
if Reg.ValueExists('Путь к папке')
then
Edit1.Text := Reg.ReadString('Путь к папке')
else
CloseKey;
Free;

[KORN]

пипец... слов нету

уничтожать нужно после всех операций... только когда переменная тебе не нужна... а закрывать ключ тогда когда ты с ним больше не работаешь

ясен пень ошибка, ты обращаешься к переменной которой нет

[KWN, lnc]

ПРоблема в том что когда я просто закрываю у меня вылетает баг.

Exception EAccessViolation in module Project1.exe at 00003876.
Access violation at address 00403876 in module 'Project1.exe'. Read of address 444E4957.

вот исходник

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists('\Software\File')
then Reg.OpenKey('\Software\File', true)
else begin Reg.KeyExists('\Software\Folder');
Reg.OpenKey('\Software\Folder', true)
end;

if Reg.ValueExists('Путь к exe')
then
Edit1.Text :=Reg.ReadString('Путь к exe')
else
Reg.CloseKey;
begin
if Reg.ValueExists('Путь к папке')
then
Edit1.Text := Reg.ReadString('Путь к папке')
else
Reg.CloseKey;
Reg.Free;
end;
end;
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists('\Software\File')
then Reg.OpenKey('\Software\File', true)
else begin Reg.KeyExists('\Software\Folder');
Reg.OpenKey('\Software\Folder', true)
end;

if Reg.ValueExists('Путь к exe')
then
Edit1.Text :=Reg.ReadString('Путь к exe')
else
Reg.CloseKey;
begin
if Reg.ValueExists('Путь к папке')
then
Edit1.Text := Reg.ReadString('Путь к папке')
else
Reg.CloseKey;
Reg.Free;
end;
end;

end.
end.

[KORN]

else
Reg.CloseKey;
begin

ничего странного не замечаешь7