*-------------------------------------------------------- Function Guid_String() declare integer CoCreateGuid in ole32 string @ declare integer StringFromGUID2 in ole32 string,string @,integer local guid, guidString, n, s guid = space(16) do case case empty(CoCreateGuid(@guid)) guidString = space(78) n = StringFromGUID2(guid, @guidString,len(guidString)) do case case n = len(guidString)/2 s = chrtran(guidString, chr(0) + '-{}', '') return s otherwise assert FALSE return Null endcase otherwise assert FALSE return Null endcase endfunc *--------------------------------------------------------------------------