uses SysUtils;
function TCommonAll.GetGUID: string;
var
LTep: TGUID;
sGUID: string;
begin
CreateGUID(LTep);
sGUID := GUIDToString(LTep);
sGUID := StringReplace(sGUID, ‘-‘, ‘‘, [rfReplaceAll]);
sGUID := Copy(sGUID, 2, Length(sGUID) - 2);
Result := sGUID;
end;
原文：http://www.cnblogs.com/xwgcxk/p/7233683.html