通过程度得到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，转发请保留这个地址，谢谢