德尔菲UUID发生器

program Guid;

{$APPTYPE CONSOLE}

uses
SysUtils;

var

Uid: TGuid;
Result: HResult;

begin
Result := CreateGuid(Uid);
if Result = S_OK then
   WriteLn(GuidToString(Uid));
end.

在盖子下面 CreateGuid() 根据平台的不同,调用各种API之一。例如,在Windows上,它现在调用 UuidCreate .

此外,如果需要接口声明的GUID,请单击 CTRL + 转移 + G 在代码编辑器中插入插入插入符号处的GUID。

如果您使用的是最新版本的Delphi,并且包含SysUtils,那么可以调用 TGuid.NewGuid 生成新的GUID。

NewGuid 实际上是在tguid的助手类中实现的( TGuidHelper ,在sysutils中声明。

此函数调用createguid方法(也在sysutils中,并已在mitch小麦的答案中提到),这实际上是一个跨平台函数,根据运行的平台调用不同的库。