Листинг 3. Код для создания записей реестра

BEGIN COMMENT
? Match String data: «value name»=»value»
END COMMENT
objRegExp.Pattern = «(x22.*x22=x22)(.*)»
If objRegExp.Test(strLine) = TRUE Then
	Call CreateString(strLine)
End If

BEGIN COMMENT
? Match Binary data: «value name»=hex:
END COMMENT
objRegExp.Pattern = «(x22.*x22=hex:)(.*)»
If objRegExp.Test(strLine) = TRUE Then
	Call CreateBinary(strLine)
End If

BEGIN COMMENT
? Match DWORD data: «value name»=dword:
END COMMENT
objRegExp.Pattern = «(x22.*x22=dword:)(.*)»
If objRegExp.Test(strLine) = TRUE Then
	Call CreateDWORD(strLine)
End If

BEGIN COMMENT
? Match Expandable String data: «value name»=hex(2):
END COMMENT
objRegExp.Pattern = «(x22.*x22=hex(2):)(.*)»
If objRegExp.Test(strLine) = TRUE Then
	Call CreateExpString(strLine)
End If

BEGIN COMMENT
? Match Multi-String data: «value name»=hex(7):
END COMMENT
objRegExp.Pattern = «(x22.*x22=hex(7):)(.*)»
If objRegExp.Test(strLine) = TRUE Then
	Call CreateMultiString(strLine)
End If