Aufruf: API Funktionen

LONG = APIAServices(cArrayName AS STRING , cMachine AS STRING , cDatabase AS STRING , nServiceState AS LONG , nServiceType AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIAServices (cArrayName AS STRING ,cMachine AS STRING ,cDatabase AS STRING ,nServiceState AS LONG ,nServiceType AS LONG ) AS LONG
	*/ DECLARE LONG AServices IN vfp2c32.fll AS APIAServices STRING cArrayName,STRING cMachine,STRING cDatabase,LONG nServiceState,LONG nServiceType
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN AServices()
		CASE PCOUNT()=1
			RETURN AServices(m.cArrayName)
		CASE PCOUNT()=2
			RETURN AServices(m.cArrayName,m.cMachine)
		CASE PCOUNT()=3
			RETURN AServices(m.cArrayName,m.cMachine,m.cDatabase)
		CASE PCOUNT()=4
			RETURN AServices(m.cArrayName,m.cMachine,m.cDatabase,m.nServiceState)
		CASE PCOUNT()=5
			RETURN AServices(m.cArrayName,m.cMachine,m.cDatabase,m.nServiceState,m.nServiceType)
	ENDCASE
ENDFUNC