Цитата:
|
Сообщение от Alexxxx
Дело такое. На форме есть CheckBox и Button. Если флажок включен и нажат Button - приложение должно заносится в HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/Run. Если флажок выключен и нажата кнопка - приложение должно удаляться из реестра. Впрочем, приложение заносится в реестр, а удалятся не хочет. Как это правильно сделать?
|
uses registry;
...
...
procedure Button1.Click(...);
var
reg:tregistry;
begin
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('Software\Microsoft\Windows\CurrentVer sion\Run',false);
case CheckBox.Checked of
true:
reg.writestring('MyProg','Path to your prog');
false:deletevalue('MyProg');
end;
reg.free;
end;