Aufruf: API Funktionen

LONG = APIADirEx(cArrayCursorCallback AS STRING , cFileSkeleton AS STRING , nFileFilter AS LONG , nFlags AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIADirEx (cArrayCursorCallback AS STRING ,cFileSkeleton AS STRING ,nFileFilter AS LONG ,nFlags AS LONG ) AS LONG
	*/ DECLARE LONG ADirEx IN vfp2c32.fll AS APIADirEx STRING cArrayCursorCallback,STRING cFileSkeleton,LONG nFileFilter,LONG nFlags
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN ADirEx()
		CASE PCOUNT()=1
			RETURN ADirEx(m.cArrayCursorCallback)
		CASE PCOUNT()=2
			RETURN ADirEx(m.cArrayCursorCallback,m.cFileSkeleton)
		CASE PCOUNT()=3
			RETURN ADirEx(m.cArrayCursorCallback,m.cFileSkeleton,m.nFileFilter)
		CASE PCOUNT()=4
			RETURN ADirEx(m.cArrayCursorCallback,m.cFileSkeleton,m.nFileFilter,m.nFlags)
	ENDCASE
ENDFUNC