- Регистрация
- 1 Мар 2015
- Сообщения
- 1,467
- Баллы
- 155
Код:
const
KeyWin='programm';
var reg: tregistry;
begin
if Edit1.Text = '123' then // если пароль введен правильно
begin
reg:= tregistry.create;
reg.rootkey := HKEY_CURRENT_USER;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', true);
reg.Deletevalue(KeyWin); // удаляемся из автозагрузки
reg.closekey;
reg.Free;
close; // закрываем
end;