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 .
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 .