Delphi 生成全球唯一标识符

本文整理自网络，侵删。

 uses ComObj,ActiveX ;

function 生成全球唯一标识符: string;
var
 ID:TGUID;
begin
  while True do
  begin
    if CoCreateGuid(ID)=s_OK then
    begin
      Result:=GUIDToString(ID) ;
      Result:=StringReplace(Result,'{','',[rfReplaceAll]) ;
      Result:=StringReplace(Result,'}','',[rfReplaceAll]) ;
      Result:=StringReplace(Result,'-','',[rfReplaceAll]) ;
      Exit ;
    end;
  end;
end;
 

相关阅读 >>

Delphi汉字的拼音简码

Delphi strutils.reversestring - 翻转字符串

Delphi只获取文件名（不带扩展名）

Delphi uac相关代码

Delphi tsearchrec

Delphi 流分割与合并文件的函数

Delphi窗口显示和关闭的时候出现动画效果

Delphi 代码查询一个json ip 地址的归属地

Delphi 10.4 freeandnil 问题

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 生成全球唯一标识符