Мне нужен код..чтобы программа сама себя прописала при загрузке..
Правильный ли у меня код?
procedure TForm1.FormCreate(Sender: TObject);
var
RegIni :TRegIniFile
begin
RegIni := TRegIniFile.Create('Software');
RegIni.RootKey := HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software',true);
RegIni.OpenKey('Microsoft',true);
RegIni.OpenKey('Windows',true);
RegIni.OpenKey('CurrentVersion',true);
RegIni.WriteString('RusServices', 'drwhost.exe'
Application.ExeName);
RegIni.Free;
10 марта 2010 в 13:01
А я бы еще взял все это дело в
try finally end
вдруг у пользователя не будет доступа – вывалится ошибка.
Да, и писать вирусы – не очень хорошее занятие, практикуйся на чем нибудь нужном и полезном.
9 марта 2010 в 13:00
в целом да, но я бы сделал так:
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create();
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
Reg.WriteString('drwhost', Application.ExeName);
Reg.Free;
end;
если это конечно не вирус, которому нужно прописываться в LOCAL_MACHINE и в RusServices