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获取exe文件版本信息的函数

Delphi实现身份证号码15到18位升位算法

Delphi 利用google api生成二维码图像

Delphi high 返回数组下标的最大值

rad studio Delphi创建安卓服务creating android services

Delphi 批量文件改名

Delphi 随机程序名

Delphi tstringlist的delimitedtext的空格问题

Delphi图像二值化

Delphi sql server 主从表例子

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

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