|
Эта процедура помещает программу с именем name, находящуюся в sfile
(параметр необезателен - по умолчанию в авторан ставится текущий файл)
в системную автозагрузку windows
(HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
в реестре.)
procedure SetAutorun(name:string;sfile:string='');
if file='' then file:=paramstr(0);
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True);
writestring(name,sfile);
finally
CloseKey;
free;
end;
|
