Aufruf: API Funktionen

LONG = APIOpenService(cServiceName AS STRING , nAccess AS LONG , cServer AS STRING , cDatabase AS STRING)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIOpenService (cServiceName AS STRING ,nAccess AS LONG ,cServer AS STRING ,cDatabase AS STRING ) AS LONG
	*/ DECLARE LONG OpenService IN vfp2c32.fll AS APIOpenService STRING cServiceName,LONG nAccess,STRING cServer,STRING cDatabase
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN OpenService()
		CASE PCOUNT()=1
			RETURN OpenService(m.cServiceName)
		CASE PCOUNT()=2
			RETURN OpenService(m.cServiceName,m.nAccess)
		CASE PCOUNT()=3
			RETURN OpenService(m.cServiceName,m.nAccess,m.cServer)
		CASE PCOUNT()=4
			RETURN OpenService(m.cServiceName,m.nAccess,m.cServer,m.cDatabase)
	ENDCASE
ENDFUNC