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;

相关阅读 >>

在一个exe文件中查找指定内容,找到则返回起始位置,否则返回0

Delphi如何在一个窗体中嵌入另一个窗体

Delphi 为数字补充前缀0

Delphi 验证tstrings是否存在

Delphi 动态数组的使用

Delphi 数组与枚举

Delphi char string

Delphi 数字摇号器

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

Delphi 读写附加数据

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...