Лекция: API Интерфейс Windows на примере Visual Basic ver 6.0
В операционной системе Windows 32x для выполнения системных действий тприкладная программа должна использовать специальный интерфейс API. API Windows это набор функций к которым может обращаться программа. Чтобы использовать такую функцию в программе нужно выполнить следующую последовательность действий:
Кнопка «Пуск» > Microsoft Visual Studio 6.0>
Microsoft Visual Studio 6.0 Tools >API Text Viewer.
В результате загружается окно браузера API функций.
Рис.7.1. Окно API браузера
Для возможности использования API функций нужно загрузить текстовую базу данных их описаний:
File > Load Text File > WIN32API.TXT
Затем отыскивается нужная функция, и ее текст копируется в буфер обмена. При вводе функции нужно задать название полностью или ввести несколько первых символов из названия. На рисунке показан поиск функции GetWindowsDirectory. Для работы с функциями используются кнопки Add (получить текст функции), Remove(удалить текст), Clear(уничтожение найденных описаний), Copy(копирование описаний функций в буфер обмена). Описание функции можно получить с глобальным атрибутом (Public) либо с закрытым (Private).
Общая структура программы:
API функция помещается в модуль программы. Обращение выполняется из требуемой формы программы.
Пример №1. Определение каталога Windows
Модуль.
Declare Function GetWindowsDirectory _
Lib «kernel32» Alias «GetWindowsDirectoryA» _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Событийный код.
Private Sub Command1_Click()
Dim progr As String
Dim WindowsDirectory As String
'заполнить шаблон пробелами
WindowsDirectory = Space(144)
'получить каталог
result = GetWindowsDirectory(WindowsDirectory, 144)
'проверить результат
If result = 0 Then
MsgBox «Не могу найти каталог Windows», vbCritical, _
«Информация»
Else
WindowsDirectory = Trim(WindowsDirectory)
n = Len(WindowsDirectory)
progr = ""
'Преобразовать ASCIIZ строку
For i = 1 To n — 1
progr = progr + Mid(WindowsDirectory, i, 1)
Next
MsgBox progr
End Sub
Пример №2. Окно «О программе».
'API функции вызова системного окна
Declare Function ShellAbout Lib «shell32.dll» Alias _
«ShellAboutA» (ByVal hwnd As Long, ByVal szApp As String, _
ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
В окне три строки свободны.
'Функция формирования окна «О программе»
Sub WinAboutShow(frm As Form)
Dim MoreInfo As String
MoreInfo = " " + Chr(169) + «МосГУ» + Chr(13)
MoreInfo = MoreInfo + «Тест API Windows „
Call ShellAbout(frm.hwnd, App.Title, MoreInfo, frm.Icon)
End Sub
Вызов функции:
WinAboutShow Me
Рис.7.2.Окно о программе.