[Aristarh Dark]

Сообщение от Dimanus

Могу подсказать как добавить в автозагрузку допустим по событию Button:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  Reg := nil;
  try
    reg := TRegistry.Create;
//    reg.RootKey := HKEY_LOCAL_MACHINE;
//Я бы сделал так:
    reg.RootKey := HKEY_CURRENT_USER;  
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      false);
    reg.WriteString('My App', Application.ExeName);
    reg.CloseKey;
    reg.free;
  except
    if Assigned(Reg) then Reg.Free;
  end;
end;

Небольшие изменения, иначе в NT системах не под админом работать не будет