Aufruf: under construction

STRING = APIGuidGen(tnMode AS INTEGER)

Rückgabe: under construction

Rückgabe der Funktion: STRING

Code: under construction

FUNCTION APIGuidGen (tnMode AS Integer) AS STRING
	LOCAL lcGuidReturn AS STRING,lcBuffer AS STRING,lcGUID AS STRING,lnResult AS INTEGER,lnMode AS Integer
	lcGuidReturn = .NULL.
	lcGUID = SPACE(16) 			&& 16 Byte = 128 Bit
	lnMode = EVL(m.tnMode,0)	&& 0=GUID(38), 1=GUID-UNICODE, 2-GUID(16)
	DO CASE
		CASE APICoCreateGuid(@lcGUID)<>0
			*/ Fehler...
		CASE m.lnMode=2
			lcGuidReturn = m.lcGUID
		OTHERWISE
			lcBuffer = SPACE(78)	&& DoubleByte!
			lnResult = APIStringFromGUID2(m.lcGUID,@lcBuffer,LEN(m.lcBuffer)/2)
			*/ UNI-Code to DoubleByte
			lcGuidReturn = IIF(m.lnMode=0,STRCONV((LEFT(m.lcBuffer,(m.lnResult-1)*2)),6),m.lcBuffer)
	ENDCASE
	RETURN m.lcGuidReturn
ENDFUNC