Declare Integer CoCreateGuid In Ole32.Dll ;
STRING @lcGUIDStruc
Declare Integer StringFromGUID2 In Ole32.Dll ;
STRING cGUIDStruc, ;
STRING @cGUID, ;
LONG nSize
Local lcStruc_GUID, ;
lcGUID, ;
lnSize
m.lcStruc_GUID = Space(16)
m.lcGUID = Space(80)
m.lnSize = 40
If CoCreateGuid(@m.lcStruc_GUID) = 0 And ;
StringFromGUID2(m.lcStruc_GUID,@m.lcGUID,lnSize) <> 0
m.lcGUID = Substr( Strconv(Left(m.lcGUID,76),6), 2, 36 )
Else
m.lcGUID = .F.
Endif
?m.lcGUID