Целью этого и последующего Шага показать возможность использования API функций в VFP.

Приведенная ниже функция возвращает указатель на главное окно VFP:

function GetActWin
	*declare integer GetActiveWindow in win32api
	*nHandle = GetActiveWindow()
	declare integer GetActiveWindow in win32api as GetWinHndl
	nHandle = GetWinHndl()
	clear dlls
	return nHandle
endfunc

Работают оба варианта. Закомментированный лишь показывает, как использовать API функцию под тем же именем, а не закомментированный - под другим.

CLEAR DLLS выгружает объявленные функции из памяти.