Re: reg key
Procedure.l SetValue(key.s, value.s)
key_res.l = RegSetValue_(#HKEY_CLASSES_ROOT, key, #REG_SZ, value, 10240)
ProcedureReturn key_res
EndProcedure
SetValue(".itn", "ITN_DB")
SetValue("ITN_DB", "Файл базы данных ITN-DataBase")
SetValue("ITN_DB\DefaultIcon", ProgramFilename() + ",0")
SetValue("ITN_DB\shell\open\command", Chr(34) + ProgramFilename() + Chr(34) + " " + Chr(34) + "%1" + Chr(34))
|