产生GUID的函数

字体大小: 中小 标准 ->行高大小: 标准 中 大 
   
function GetGUID:string;

var

id:tguid;

begin

if CoCreateGuid(id)=s_ok then

result:=guidtostring(id);

end;

此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67968.html