Добавление программы в реестр (Delphi 7) (2 Серия)
Var
reg:TRegistry;
Begin
reg := tregistry.create;
reg.rootkey := HKEY_CURRENT_USER;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('Имя вышей программы в реестре', application.exename);
reg.closekey;
reg.free;