通过程度得到32位GUID码

首先在uses里面添加：ComObj,StrUtils

{-------------------------------------------------------------------------------

  过程名:    MakeGUID

  日期:      2008.12.03

  参数:      无

  返回值:    string

  作用：     创建GUID

-------------------------------------------------------------------------------}

 

function MakeGUID: string;

var

  aGuid: TGUID;

begin

  CreateGuid(aGuid);

  Result := GUIDToString(aGuid);

  Delete(Result, 1, 1);

  Delete(Result, length(Result), 1);

  Result := AnsiReplaceText(Result, '-', '');

end;

 

直接调用即可

本文地址：http://www.xszlo.com/article/2012-12-11/7622.html，转发请保留这个地址，谢谢

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/28623727/viewspace-757769/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/28623727/viewspace-757769/