проверка существования ключа в реестре

← →
snlnik © (2003-10-19 20:10) [0]

Здравствуйте!
Подскажите:
как проверить существование ключа в реестре?

← →
Song © (2003-10-19 20:19) [1]

TRegistry + F1

← →
Anatoly Podgoretsky © (2003-10-19 20:30) [2]

Если не знаешь, что искать то русско-английский словарь поможет решить проблему поиска.

← →
DimaK © (2003-10-19 20:33) [3]

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

uses Registry;

var reg:TRegistry;

reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if (reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\", False)) then
begin
if reg.ValueExists("NokTerm") then

end;
reg.CloseKey;
reg.Destroy;

Не могу понять в чем здесь ошибка:

procedure TForm1.FormCreate(Sender: TObject);
var reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.LazyWrite := false;
if reg.ValueExists("Software\Nik")=False then
begin
reg.CreateKey("Software\Nik");
reg.WriteString("1", IntToStr(4));
reg.WriteString("2", IntToStr(1));
end;
reg.OpenKey("Software\Nik-Company",false);
Form2.TrackBar1.Position:=StrToInt(reg.ReadString("1"));
Form2.SpinEdit1.Value:=StrToInt(reg.ReadString("2"));
reg.CloseKey;
reg.free;

куда все подевались?

проверка существования ключа в реестре Найти похожие ветки