Код:
uses
Registry;
var
Reg:TRegistry;
begin
Reg:=TRegistry.Create;
try
with Reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\Curr ent Version\Run\',False);
WriteString('MyMegaProgram','C:\MyMegaProgram.exe');
CloseKey;
end;
finally
Reg.Free;
end;
end;
ЗЫЖ Это будет работать только для пользователей с правами Администратора.
ЗЗЫЖ Возможны опечатки, т.к. набирал в окне "Быстрый ответ"
