Вообщем, я тут прочитал литературу, и по ней составил код, и он у меня полностью работает, но в тот момент когда закрываешь програаму, то после всё время выдаётся какаято ошибка. Обясните пожалуйста, по каким причинам она возникает, и желательно что нужно добавить, но именно в мой код а не другой вариант, а то у меня есть уже несколько вариантов. Мне надо лишь разобратся в самом смысле.
Для добавления в реестр ключа:

Код

procedure TForm1.Button1Click(Sender: TObject); var  Reg:TReginifile; begin  reg.Create;  reg.RootKey:=HKEY_LOCAL_MACHINE;  reg.WriteString('software\Microsoft\Windows\CurrentVersion\Run','Exapmle','<Здесь указан путь к файлу>'); end;

Для удаления из реестра:

Код

procedure TForm1.Button2Click(Sender: TObject); var  Reg:TReginifile; begin  reg.Create;  reg.RootKey:=HKEY_LOCAL_MACHINE;  reg.DeleteKey('software\Microsoft\Windows\CurrentVersion\Run','Exapmle'); end;

Самое прикольное что если в конец каждого из моих кодов добавить:

Код

reg.Destroy

то при выполнении этой строки всё время выдаётся ошибка, и даже если перед ней написать:

Код

reg.CloseKey

Вообщем вроде всё.
Заранее спасибо!!!

А у тебя случайно глобальная переменная Reg не где в программе не определена?

Кстати, это тоже не мог бы ты мне объяснить. А то вначале я когда ставил REG, как глобальную, то у меня даже при создании класса TResistry, уже не компилилось. Первый раз за мою жизнь я такое вижу. Раньше думал что глобальная переменная заменяет кучу локальных.

Так стоп, а гед это ты увидел, что так create нужно делать?
Добавлено @ 02:05
Твой код записывается вот так:

Код

procedure TForm1.Button1Click(Sender: TObject); var  reg: TReginifile; begin  reg:= TReginifile.Create;  try    reg.RootKey:=HKEY_LOCAL_MACHINE;    reg.WriteString('software\Microsoft\Windows\CurrentVersion\Run','Exapmle','<Здесь указан путь к файлу>');  finally    reg.Free;  end; end;

Добавлено @ 02:07
А я вообще люблю писать без всяких переменных?

Код

procedure TForm1.Button1Click(Sender: TObject); begin  with TReginifile.Create do try    RootKey:=HKEY_LOCAL_MACHINE;    WriteString('software\Microsoft\Windows\CurrentVersion\Run','Exapmle','<Здесь указан путь к файлу>');  finally    Free;  end; end;

Цитата(Alex @ 27.1.2005, 02:03)

а гед это ты увидел, что так create нужно делать?

А точно, спасибо большое!!! Всё время так и бывает, когда с чем то новым начинаешь разбиратся, то как всегда из за какой-нибудь мелочи целый вечер и просидишь.

Цитата(Alex @ 27.1.2005, 02:03)

я вообще люблю писать без всяких переменных?

Я тоже, но поначалу, так меньше вероятности получить ошибку. Да ещё Free, с Destroy перепутать умудрился.

Цитата(Zero @ 27.1.2005, 02:28)

Да ещё Free, с Destroy перепутать умудрился

В принципе ничего в этом страшного нет.
Free - это капельку "умный" Destroy, который не освобождает экземпляры классов, которые не созданы (или уже освобождены), и тоже использует Destroy:

Код

procedure TObject.Free; begin  if Self <> nil then Destroy; end;

Это сообщение отредактировал(а) p0s0l - 27.1.2005, 14:40