function getUUID4 :string;
var
Uid: TGuid;
Res: HResult;
Nres:string;
begin
Res := CreateGuid(Uid);
if res=S_Ok then
begin
Nres:=GuidToString(Uid);
Nres:=copy(Nres,2,length(Nres)-2);
result:=Nres;
end
else
begin
showmessage('UUID4创建失败');
end;
var
Uid: TGuid;
Res: HResult;
Nres:string;
begin
Res := CreateGuid(Uid);
if res=S_Ok then
begin
Nres:=GuidToString(Uid);
Nres:=copy(Nres,2,length(Nres)-2);
result:=Nres;
end
else
begin
showmessage('UUID4创建失败');
end;