RegDataToDataType

最新推荐文章于 2022-03-28 23:19:35 发布

dianmengkui1387

最新推荐文章于 2022-03-28 23:19:35 发布

阅读量219

点赞数

原文链接：http://www.cnblogs.com/CodeGear/p/6678306.html

版权

function RegDataToDataType(Value: TRegDataType): Integer;
begin
  case Value of
    rdString: Result := REG_SZ;
    rdExpandString: Result := REG_EXPAND_SZ;
    rdInteger: Result := REG_DWORD;
    rdBinary: Result := REG_BINARY;
  else
    Result := REG_NONE;
  end;
end;