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

[KWN, lnc]

KORN жесть, убираю begin и баг.
попробовал и так else begin Reg.CloseKey; и так else Reg.CloseKey; if ... как всегда баг. находит первый а на втором если нет ключа не ищет. просто баг. блин уже незнаю куда деваться ну помоги ж. умоляю. я юмора не пойму. для меня все это как загадка.

[KORN]

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

else begin Reg.KeyExists('\Software\Folder');
Reg.OpenKey('\Software\Folder', true)
end;

ты понимаешь смысл того что ты написал7

если для тебя это все как загадка, то либо не берись за это, либо учись...

[KWN, lnc]

KORN сделал как ты и сказал... неПолучилось... ВЫЛЕТАЕТ БАГ скинь ради бога исходник KurtWagner@mail.ru буду очень признателен!
else begin Reg.KeyExists('\Software\Folder');
Reg.OpenKey('InstallDir', true)
end;

[Stilet]

KWN, lnc

Еще раз подробно и без паники, что ты хочешь сделать?

[KWN, lnc]

Stilet Слава богу! Вообщем идея такова...

Прога ищет в рестре! 2-ва ключа.
1-ый ключ скажем Reg.KeyExists('\Software\File');
Reg.OpenKey('\Software\File', true) параметр у него InstallFile

если ненаходит в первом, этот параметр тогда переходит ко

2-му Reg.KeyExists('\Software\Folder');
Reg.OpenKey('\Software\Folder', true) с Параметром InstallFolder

после того как найдет из одного из них верный параметр прога просто извлекает эго в Edit1.Text := Reg.ReadString('Найденый параметр')

желательно по такому коду т.к. я под него уже нахимичил продолжение
просто хочу разобраться почему не тянет?!

[Stilet]

Ну вот смотри:

var t:TRegistry;     s:string;
begin
t:=TRegistry.Create;
 t.RootKey:=HKEY_CURRENT_USER;
 if not t.OpenKey('\Control Panel\Current',false) then begin
  if not t.OpenKey('\Control Panel\Colors',false) then s:=t.ReadString('ActiveBorder')
 end else s:=t.ReadString('Color Schemes');
t.Free;
caption:=s;
end;

Смысл таков: Неудачная попытка открыть \Control Panel\Current приводит к попытке открыть Colors. Если первая попытка удачна - считывается из нее параметр, иначе из второй.

[KWN, lnc]

Stilet Неработает!

по твоему коду несработало вообще... а если сделать поправку скажем

if not t.OpenKey('\Control Panel\Current',false) then begin
if not t.OpenKey('\Control Panel\Colors',false) then s:=t.ReadString('ответ Colors')
end else s:=t.ReadString('Ответ Current');

То он хаходит только Ответ Current что за пииииииии.....

[KWN, lnc]

Stilet я как понел НЕРЕАЛЬНО??? хотя врятли...

[KORN]

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

[KWN, lnc]

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