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 package 把函数单元做成bpl调用

Delphi 提取时间成分

Delphi 线程同步(线程安全)

Delphi程序将自身可执行文件拷贝到u盘的代码

Delphi 泛型容器单元(generics.collections) tdictionary<t>

Delphi回调函数高级应用

Delphi setformfullscreen()窗体全屏显示

Delphi 创建win桌面快捷方式，实现360桌面图标数字提示 或 类似安卓的右上角的数字提示

Delphi版的base64转换函数（修改版）

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

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