Delphi UUID生成器

前端之家收集整理的这篇文章主要介绍了Delphi UUID生成器前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
Delphi有什么内置的生成UUIDs?

解决方法

  1. program Guid;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9.  
  10. Uid: TGuid;
  11. Result: HResult;
  12.  
  13. begin
  14. Result := CreateGuid(Uid);
  15. if Result = S_OK then
  16. WriteLn(GuidToString(Uid));
  17. end.

下面的CreateGuid()调用Windows API函数CoCreateGuid()。

猜你在找的Delphi相关文章