Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Удаление автозагрузки из реестра   Найти похожие ветки 

← →
Сережа   (2002-08-12 11:13) [0]

Здравствуйте уважаемые Мастера ! Помогите пожалуйсто с кодом.Как записать программно в реестр строку "run",чтобы программа запускалась при старте компьютера
я знаю.Подскажите пожалуйсто(лучше небольшим кодом ),как удалить
програмно ( скажем Button - ом ) эту строчку.
Извените за элементарный для Вас вопрос.
C Уважением, Сережа.

---

← →
Виктор Щербаков ©   (2002-08-12 11:20) [1]

TRegistry.DeleteValue

---

← →
AlekseyK ©   (2002-08-12 11:29) [2]

Удалить ключ Reg.DeleteKey("\...");

---

← →
Виктор Щербаков ©   (2002-08-12 11:31) [3]

Ему нужно удалять именно значение.

---

← →
Сережа   (2002-08-12 11:36) [4]

Здравствуйте AlekseyK и Виктор Щербаков

Так-ли я написал?
procedure TForm1.Button1Click(Sender: TObject);
begin
Reg.DeleteKey("C\Program Files\Common Files\ и.д.\прога.exe");

end;

end.

---

← →
Сережа   (2002-08-12 11:41) [5]

Здравствуйте AlekseyK
Так-ли я написал?

procedure TForm1.Button1Click(Sender: TObject);
begin
Reg.DeleteKey("C\Program Files\Common Files\ и.д.\прога.exe");

end;

end.

---

← →
Сережа   (2002-08-12 11:42) [6]

Здравствуйте Виктор Щербаков
Так-ли я написал?
procedure TForm1.Button1Click(Sender: TObject);
begin
Reg.DeleteKey("C\Program Files\Common Files\ и.д.\прога.exe");

end;

end.

---

← →
LENIN INC   (2002-08-12 11:48) [7]

Тебе нужно удалить Параметр, а не ключ. Так что правильный ответ:
Виктора Щербакова:
TRegistry.DeleteValue

Вот тебе пример:

procedure DeleteAutoRunKey
begin
With TRegistry.Create Do try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\",False);
IF Flag then WriteString("Параметр", "Значение")
else DeleteValue("Параметр");
CloseKey;
finally
Free;
end;
end;

---

← →
LENIN INC   (2002-08-12 11:50) [8]

Поправочка:

procedure DeleteAutoRunKey
Var
reg: TRegistry;
Flag:Boolean
begin
With TRegistry.Create Do try
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey("Software\Microsoft\Windows\CurrentVersion\Run\",False);
IF Flag then WriteString("Параметр", "Значение")
else DeleteValue("Параметр");
CloseKey;
finally
Free;
end;
end;

Теперь будет работать!

---

← →
Сережа   (2002-08-12 11:58) [9]

LENIN INC
что то я Вас не могу прочесть т.е. что Вы ответили

---

← →
Сережа   (2002-08-12 12:05) [10]

LENIN INC (12.08.02 11:50)
Поправочка:

О! Благодарю Вас !!!

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.021 c