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

[KORN]

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

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: tregistry;
  s: string;
begin
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  if (reg.KeyExists('SOFTWARE\Microsoft\Windows\CurrentVersion\Run')) then
  begin
    reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Run');
    if reg.ValueExists('nwiz') then
    begin
    s:=reg.ReadString('nwiz');
    showmessage('первый ключч: '+s);
    reg.CloseKey;
    reg.Free;
    exit;
    end;
    reg.CloseKey;
  end;

  if (reg.KeyExists('SOFTWARE\Microsoft\Windows\CurrentVersion\Run')) then
  begin
    reg.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Run');
    if reg.ValueExists('CTSysVol') then
    begin
    s:=reg.ReadString('CTSysVol');
    showmessage('второй ключ: '+s);
    reg.CloseKey;
    reg.Free;
    exit;
    end;
    reg.CloseKey;
  end;
  reg.Free;
end;

вот набросал за 5 минут, проверил пашет, если у тебя не пашет разбирайся...

[KWN, lnc]

KORN мужык, ты не представляешь как я тебе благодарен! так держать СПАСИБО!!!