UUID,是英文单词 Universally Unique Identifier 的缩写,即通用唯一识别码。
目前最广泛应用的 UUID,是微软的 Microsoft's Globally Unique Identifiers (GUIDs)。
如果使用代码生成 GUID,可以使用 CreateGuid 函数,示例代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
Uid: TGuid;
Result: HResult;
begin
Result := CreateGuid(Uid);
if Result = S_OK then
ShowMessage(GuidToString(Uid));
end;