Aufruf: API Funktionen

LONG = APIFSeekEx(nFileHandle AS LONG , nBytesToMove AS LONG , nRelativePosition AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIFSeekEx (nFileHandle AS LONG ,nBytesToMove AS LONG ,nRelativePosition AS LONG ) AS LONG
	*/ DECLARE LONG FSeekEx IN vfp2c32.fll AS APIFSeekEx LONG nFileHandle,LONG nBytesToMove,LONG nRelativePosition
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN FSeekEx()
		CASE PCOUNT()=1
			RETURN FSeekEx(m.nFileHandle)
		CASE PCOUNT()=2
			RETURN FSeekEx(m.nFileHandle,m.nBytesToMove)
		CASE PCOUNT()=3
			RETURN FSeekEx(m.nFileHandle,m.nBytesToMove,m.nRelativePosition)
	ENDCASE
ENDFUNC