>PROCEDURE GetGUID >> *-- These DECLARE statement take in average 0.02s each to execute >> *DECLARE INTEGER CoCreateGuid IN Ole32.dll STRING @lcGUIDStruc >> *DECLARE INTEGER StringFromGUID2 IN Ole32.dll STRING cGUIDStruc, STRING @cGUID, LONG nSize >> >> LOCAL lcGUID AS String, lcStrucGUID AS String, lnSize AS Integer >> lcStrucGUID = SPACE (16) >> lcGUID = SPACE (80) >> lnSize = 40 >> >> IF CoCreateGuid(@lcStrucGUID) <> 0 >> RETURN "" >> ENDIF >> >> IF StringFromGUID2(lcStrucGUID, @lcGuid, lnSize) = 0 >> RETURN "" >> ENDIF >> >> RETURN CHRTRAN(STRCONV(LEFT (m.lcGUID, 76), 6), "{}", "") >>ENDPROC >> >>FUNCTION CoCreateGuid(tcStrucGUID) >> DECLARE INTEGER CoCreateGuid IN Ole32.dll STRING @cGUIDStruc >> RETURN CoCreateGuid(@tcStrucGUID) >>ENDPROC >> >>FUNCTION StringFromGUID2(tcStrucGUID, tcGuid, tnSize) >> DECLARE INTEGER StringFromGUID2 IN Ole32.dll STRING cGUIDStruc, STRING @cGUID, LONG nSize >> RETURN StringFromGUID2(tcStrucGUID, @tcGuid, tnSize) >>ENDPROC