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