uses Registry; procedure TForm1.LanceAuDemarrage(Lance: Boolean); var Reg: TRegistry; begin Reg := TRegistry.Create; with Reg do begin try RootKey := HKEY_LOCAL_MACHINE; // clé racine if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then begin if Lance then WriteString(NomAppli, CheminAppli) // écrire else DeleteValue(NomAppli); // supprimer CloseKey; end; finally Free; end; end; end;
C:\chemin\exécutable.exe