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对access数据库安全加密方法

Delphi sql server 数据库转换为 access 数据库

Delphi 判断文本文件是否utf-8编码

Delphi png异形窗口

Delphi winapi: getwindowtext - 获取窗口标题

Delphi fmx自定义对话框样式，多屏幕布局

Delphi xe 获取android的路径信息

Delphi 字符串反转函数

Delphi读取radiogroup选中按钮的string文本

Delphi 生成txt 指定带bom

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

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