Aufruf: API Funktionen

LONG = APISHBrowseFolder(cTitle AS STRING , nFlags AS LONG , cPath AS STRING @ , cRootPath AS STRING , cCallback AS STRING)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG
Rückgabe per Reverenz:
	cPath AS STRING

Code: API Funktionen

FUNCTION APISHBrowseFolder (cTitle AS STRING ,nFlags AS LONG ,cPath AS STRING @,cRootPath AS STRING ,cCallback AS STRING ) AS LONG
	*/ DECLARE LONG SHBrowseFolder IN vfp2c32.fll AS APISHBrowseFolder STRING cTitle,LONG nFlags,STRING @cPath,STRING cRootPath,STRING cCallback
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN SHBrowseFolder()
		CASE PCOUNT()=1
			RETURN SHBrowseFolder(m.cTitle)
		CASE PCOUNT()=2
			RETURN SHBrowseFolder(m.cTitle,m.nFlags)
		CASE PCOUNT()=3
			RETURN SHBrowseFolder(m.cTitle,m.nFlags,@m.cPath)
		CASE PCOUNT()=4
			RETURN SHBrowseFolder(m.cTitle,m.nFlags,@m.cPath,m.cRootPath)
		CASE PCOUNT()=5
			RETURN SHBrowseFolder(m.cTitle,m.nFlags,@m.cPath,m.cRootPath,m.cCallback)
	ENDCASE
ENDFUNC