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;
原文：http://www.cnblogs.com/CodeGear/p/6678306.html