>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