产生GUID

Tags: /超级猛料/COM、ActiveX，DDE/   Date Created:

function GetGUID:string;
var
id:tguid;
begin
if CoCreateGuid(id)=s_ok then
 result:=guidtostring(id);
end;