随笔- 267  文章- 27  评论- 28  阅读- 10万 
复制代码
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;
复制代码

 

 posted on   宝兰  阅读(198)  评论(0编辑  收藏  举报
点击右上角即可分享
微信分享提示