Шаг 25 - Win32Api. Вызываем GetActiveWindow()

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

25_1.gif (4133 b)

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


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Клементьев В.А.