首先在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;
直接调用即可
本文地址:[url]http://www.xszlo.com/article/2012-12-11/7622.html[/url],转发请保留这个地址,谢谢
{-------------------------------------------------------------------------------
过程名: 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;
直接调用即可
本文地址:[url]http://www.xszlo.com/article/2012-12-11/7622.html[/url],转发请保留这个地址,谢谢