Целью этого и последующего Шага показать возможность использования 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 выгружает объявленные функции из памяти.