首先在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博客

通过程度得到32位GUID码