如题结由贴后请再到另外2贴拿分,共200
http://topic.csdn.net/u/20100409/10/e1311deb-c26e-4dc8-ba8d-a137267f6800.html
http://topic.csdn.net/u/20100409/11/62f39656-23b9-4ebc-8cb2-b189cb88e471.html
http://topic.csdn.net/u/20100409/10/e1311deb-c26e-4dc8-ba8d-a137267f6800.html
http://topic.csdn.net/u/20100409/11/62f39656-23b9-4ebc-8cb2-b189cb88e471.html
功能 返回字符串S转换成全局标识
说明 如果字符串非法将触发异常
参考 fuction Windows.Succeeded
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
功能 返回全局标识GUID转换成字符串
说明 <NULL>
参考 fuction Windows.Succeeded
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
REGGUID 什么类型 ?
{
// Establish string and get the first token:
TCHAR seps[] = _T("-");
TCHAR *token;
GUID guid;
token = _tcstok( pszString, seps ); // C4996
guid.Data1 = _tcstoul(token, 0, 16); token = _tcstok(NULL, seps);
guid.Data2 = _tcstoul(token, 0, 16);
token = _tcstok(NULL, seps);
guid.Data3 = _tcstoul(token, 0, 16); token = _tcstok(NULL, seps); WORD data4 = _tcstoul(token, 0, 16);
guid.Data4[0] = data4 >> 8;
guid.Data4[1] = data4 & 0xff; token = _tcstok(NULL, seps);
for (int i = 0; i < 6; ++i)
{
TCHAR szData4[3] = {0};
_tcsncpy(szData4, token, 2); guid.Data4[2 + i] = _tcstoul(szData4, 0, 16);
token += 2;
} return guid;
}
RPC_STATUS RPC_ENTRY UuidFromString(
unsigned char __RPC_FAR* StringUuid,
UUID __RPC_FAR* Uuid
);