首先在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/