20168

Использование функций WinAPI

Лекция

Информатика, кибернетика и программирование

DECLARE –DLL Регистрирует функцию во внешней 32разрядной библиотеке динамических связей Windows . Чтобы удалить зарегистрированные функции из памяти выдайте команду CLEAR ALL или CLEAR DLLS.

Русский

2013-07-25

32.5 KB

12 чел.

ПРИМЕРЫ.

1. Использование функций WinAPI.

.dll – библиотеки интерфейса прикладного программирования (Application Program Interface). Библиотеки API-программ расширяют возможности языка и пользовательского интерфейса. Открыв внешнюю библиотеку API, вы можете пользоваться API-функциями точно также, как функциями VFP. С помощью команды Display Status или LIST STATUS можно отобразить список имеющихся в библиотеке функций.

DECLARE –DLL - Регистрирует функцию во внешней 32-разрядной библиотеке динамических связей Windows (.DLL).

Синтаксис:

DECLARE [cFunctionType] FunctionName IN LibraryName [AS AliasName]

[cParamType1 [@] ParamName1,

 cParamType2 [@] ParamName2, ...]

Параметры:

cFunctionType

Указывает, имеет ли 32-разрядная .DLL-функция системы Windows возвращаемое значение. Аргумент cFunctionType включается, если функция имеет возвращаемое значение; в противном случае cFunctionType опускается.

cFunctionType может принимать следующие значения:

cFunctionType Описание

SHORT 16-разрядное целое число

INTEGER 32-разрядное целое число

SINGLE 32-разрядное число с плавающей запятой

DOUBLE 64-разрядное число с плавающей запятой

STRING Символьная строка

FunctionName

Задает имя 32-разрядной .DLL-функции Windows для регистрации в Visual FoxPro. Обратите внимание: в имени FunctionName важен регистр символов.

Имя 32-разрядной .DLL-функции Windows может отличаться от описания в документе Win32 API. Например, функцию MessageBox следует назвать MessageBoxA (для однобайтных символов) или MessageBoxW (для UNICODE). Если Visual FoxPro не может найти 32-разрядную .DLL-функцию Windows, заданную аргументом FunctionName, к концу имени функции присоединяется буква A, и Visual FoxPro повторяет поиск, используя новое имя.

Если имя заданной 32-разрядной .DLL-функции Windows совпадает с именем функции Visual FoxPro или является недопустимым именем Visual FoxPro, включите имя 32-разрядной .DLL-функции Windows в качестве FunctionName и присвойте этой функции допустимое имя Visual FoxPro с помощью предложения AS, описанного ниже.

IN LibraryName

Задает имя внешней библиотеки .DLL в Windows, которая содержит 32-разрядную .DLL-функцию Windows ѕ FunctionName. Если задать WIN32API в качестве LibraryName, Visual FoxPro ищет 32-разрядную .DLL-функцию Windows в библиотеках KERNEL32.DLL, GDI32.DLL, USER32.DLL, MPR.DLL и ADVAPI32.DLL.

AS AliasName

Задает псевдоним для имени 32-разрядной .DLL-функции Windows, которое совпадает с именем некоторой функции Visual FoxPro или является недопустимым именем Visual FoxPro. В качестве AliasName нельзя использовать зарезервированное слово Visual FoxPro или имя 32-разрядной .DLL-функции Windows, уже зарегистрированное в Visual FoxPro.

Пользуйтесь псевдонимом AliasName для вызова 32-разрядной .DLL-функции Windows. В AliasName несущественен регистр символов.

cParameterType1 [@] ParamName1, cParameterType2 [@] ParamName2, ...

Задает типы параметров, передаваемых в 32-разрядную .DLL-функцию Windows.

Аргумент cParameterType является обязательным; он задает тип параметра, ожидаемый 32-разрядной .DLL-функцией Windows. cParameterType может принимать одно из следующих значений:

cParameterType Описание

INTEGER 32-разрядное целое число

SINGLE 32-разрядное число с плавающей запятой

DOUBLE 64-разрядное число с плавающей запятой

STRING Символьная строка

Если параметры не принадлежат типу, ожидаемому 32-разрядной .DLL-функцией Windows, Visual FoxPro генерирует ошибку. Неопределенное значение может быть передано как символьная строка.

Чтобы при вызове функции передать параметр по ссылке, в данной команде после параметра cParameterType и в вызывающей функции перед соответствующей переменной нужно поставить символ @. Если не поставить @ в команде DECLARE и/или в вызывающей функции, параметр будет передан по значению. О .DLL-функциях, требующих включения @ для передачи параметров по ссылке, см. документ Microsoft Win32 Programmer's Guide.

Замечание  Имена параметров ParamName1, ParamName2 и т.д. не являются обязательными и не используются в Visual FoxPro или в 32-разрядной .DLL-функции Windows. Их можно задать для напоминания о том, какие имена и типы параметров получает функция.

Комментарии

Перед тем, как вызывать 32-разрядную .DLL-функцию Windows из Visual FoxPro, необходимо выдать команду DECLARE с именем этой функции, именем содержащей ее библиотеки .DLL и типами параметров, которые функция ожидает получить.

Чтобы отобразить имена зарегистрированных функций, выдайте команду DISPLAY STATUS или LIST STATUS. Чтобы удалить зарегистрированные функции из памяти, выдайте команду CLEAR ALL или CLEAR DLLS.

ПРИМЕР: Пользователь запускает программу и набирает пароль (МАША – регистр русский). Ответ ему- пароль неверный. Приходится сначала переключиться в английский регистр, а затем снова набрать пароль. Избежать этого можно, если использовать следующую процедуру. Вызываться она может, например, в методе Activate формы.

DECLARE SHORT GetKeyboardLayoutName IN user32.dll STRING @lpr

lpr = ‘  ’

= GetKeyboardLayoutName(@lpr)

DECLARE SHORT ActivateKeyboardLayout IN user32.dll INTEGER HKL, INTEGER flags

if not ‘419’ $lpr

=ActivateKeyboardLayout(1,0)

endif


 

А также другие работы, которые могут Вас заинтересовать

19165. Элементы вакуумной техники 714 KB
  ОСНОВЫ КОНСТРУИРОВАНИЯ КРИОГЕННЫХ УСТРОЙСТВ Лекция 15 Элементы вакуумной техники Теплоизоляция криостатов как и всех систем предназначенных для работы с жидким гелием осуществляется вакуумированием сосудов. Поэтому разрабатываемые конструкции должны удовлетво
19166. Введение. Технологичность конструкции 1.43 MB
  Лекция №1 Введение. Технологичность конструкции Технология искусство мастерство умение логия совокупность методов обработки изготовления изменения состояния свойств формы сырья материалов или полуфабриката осуществляемых в процессе производства проду
19167. Обеспечение качества и эксплуатационной надежности изделий 1008.5 KB
  Лекция 2 Обеспечение качества и эксплуатационной надежности изделий Соответствие технических требований и норм точности служебному назначению Поскольку технические требования и нормы точности изделия являются отражением ее служебного назначения то приступая...
19168. Топливные циклы ядерных реакторов. Материалы сердечника твэлов 48.5 KB
  Топливные циклы ядерных реакторов. Материалы сердечника твэлов Ядерным топливом принято считать материал содержащий нуклиды которые делятся при взаимодействии с нейтронами. Делящимися нуклидами являются: находящийся в природном уране изотоп 235U изотопы плутония 23...
19169. Конструкционные материалы твэлов и ТВС 282 KB
  ЛЕКЦИЯ 4 Конструкционные материалы твэлов и ТВС В лекции рассматриваются конструкционные материалы используемые для оболочек твэлов. Оболочка твэла работает в очень сложных напряженных условиях в течение длительного времени при высоких параметрах теплоносител
19170. Твэлы и ТВС энергетических реакторов 348 KB
  Лекция 5 Твэлы и ТВС энергетических реакторов В нашей стране разработаны и успешно эксплуатируются три типа энергетических реакторов: канальный водографитовый реактор РБМК–1000 РБМК–1500; корпусной реактор с водой под давлением ВВЭР–1000 ВВЭР–440; реактор н
19171. Твэлы и ТВС исследовательских, транспортных и транспортабельных реакторов 1.84 MB
  Лекция 6 Твэлы и ТВС исследовательских транспортных и транспортабельных реакторов По сравнению с энергетическими реакторами к твэлам исследовательских и транспортных реакторов предъявляются дополнительные требования связанные со спецификой их эксплуатации: ...
19172. Технология получения порошков диоксида урана 334 KB
  ЛЕКЦИЯ 7 Технология получения порошков диоксида урана Компактные изделия из диоксида урана в частности таблетки твэлов получают методами порошковой металлургии. Исходным продуктом для получения порошков диоксида урана является гексафторид урана UF6 получаемый с ...
19173. Технология получения порошков диоксида урана 184 KB
  ЛЕКЦИЯ 8 Технология получения порошков диоксида урана Получение UO2 через аммонийуранилтрикарбонат АУКпроцесс Трикарбонатоуранилат аммония NH4[UO2С033] или аммонийуранилтрикарбонат АУК является хорошим исходным соединением для получения порошков UO2 керамическ