Tregistry的使用

用GetDataInfo方法取得数据类型，如果返回rdstring再用ReadString读就不会出错了
Function GetDataInfo(const ValueName:String;Var Value:TRegDataInfo):Boolean;
TregDataType=(rdunknown,rdstring,rdexpandstring,rdexpandstring,rdinterger,rdbinary);
TregDataInfo=record
　　　Regdata:TRegDataType;数据类型
　 dataSize:integer;数据大小
end
valuename:和当前键关联的数据值名称
value：返回数据的信息，如为rdstring和rdexpandstring类型，则数据大小包括字符串未尾的空结束字符。
　　如果成功返回True，失败返回False，并且Value的值为zeros
rdexpandstring：是一个包含环境变量的字符串;如“%PATH%”。