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 is1251char

Delphi 获取计算机从开机开始的已运行时间

Delphi access 数据库压缩

Delphi ioutils tdirectory获取一个目录下所有文件名，包括子目录

Delphi tms web core 复制内容到剪切板

Delphi 判断dll动态链接库是否可用

Delphi实时监视应用程序内存使用量

Delphi二分查找算法(预排序数组的查找)

Delphi文件分割合并

Delphi检测用户是否具有administrator权限

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

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