在Delphi中获得独一32位长字符串

function GetGUID: string;
var
  vGUID: TGUID;
  vTemp:string;
begin
  if S_OK = CreateGuid(vGUID) then
  begin
    vTemp := GUIDToString(vGUID);
    //去失字符串中的{,-字符
    vTemp:=StringWordStr(vTemp,‘-‘,‘‘,[rfWordStrAll]);
    vTemp:=StringWordStr(vTemp,‘{‘,‘‘,[rfWordStrAll]);
    vTemp:=StringWordStr(vTemp,‘}‘,‘‘,[rfWordStrAll]);
  end;
  Result:=vTemp;
end;

在Delphi中获得独一32位长字符串

，