德尔福 UUID 生成器

Question

Delphi 有内置的东西来生成 UUID 吗？

Answer 1

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。