|
AligatorBkmz
|
Дата: Вторник, 29.03.2016, 03:49 | Сообщение # 1
|
Был не раз
Зарегистрирован: 24.03.2016
Группа: Пользователи
Сообщений: 9
Статус: Offline
|
Данный код явно вызывает недовольство у антивируса Avast во время его исполнения, и выдает некрасивое предупреждение:
Код
procedure Autorun(Flag:boolean; NameParam, Path:String);
var Reg:TRegistry;
begin
if Flag then
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString(NameParam, Path);
Reg.Free;
end
else
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
Reg.DeleteValue(NameParam);
Reg.Free;
end;
end;
Как бы запустить прогу автоматом не вызывая недовольств антивируса?
Сообщение отредактировал AligatorBkmz - Вторник, 29.03.2016, 03:55
|
| |
|
|
|
ramzeswr
|
Дата: Вторник, 29.03.2016, 14:51 | Сообщение # 2
|
Участник
Зарегистрирован: 17.04.2013
Группа: Пользователи
Сообщений: 61
Статус: Offline
|
Ну можно например каждый раз при запуске прописываться в ветку "\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" |
| |
|
|
|
dolphin
|
Дата: Вторник, 29.03.2016, 16:39 | Сообщение # 3
|
Администратор
Сообщений: 903
Статус: Offline
|
Сделать программу максимально "дружественной" для компьютера и пользователя
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
Android
|
Дата: Четверг, 29.12.2016, 11:12 | Сообщение # 4
|
Постоянный
Зарегистрирован: 13.12.2011
Группа: Пользователи
Сообщений: 100
Статус: Offline
|
У меня при прописывании в ветку CURRENT_USER не ругаются АВ, только если в LOCAL_MACHINE |
| |
|
|
