- Регистрация
- 1 Мар 2015
- Сообщения
- 1,184
- Баллы
- 155
Иногда требуется работать с объектами WINDOWS не используя VCL. Где это может пригодиться?
Например:
WINAPI - это набор фунций WINDOWS предоставляемый нам через стандартные библиотеки (kernel32.dll gdi.exe и т.д.). Раз эти библиотеки распространяются вместе с WINDOWS, следовательно их можно использовать на любых машинах (с этой платформой).
Хотя, следует оговориться, что та или иная библиотека может иметь различную версию. Но нам програмистам на Delphi по большей части это не важно.
Использование
Для использования нужно в разделе uses добавить модуль windows. Внем то и описано большинство функций.
Создадим проект.
На форме разместим кнопку и поле ввода TEdit
В обработчике события кнопки onClick запишем следующий код:
Теперь откомпилируйте и запустите его. В поле ввода введите заголовок любого окна которое открыто у вас на рабочем столе (например "(Безимени) - Блокнот"). Нажмите кнопку и окно минимизируется.
Например:
- При отсутствии у приложения окна - консольный проект.
- Если нужно работать быстро, а известно, что функции WinApi работают на порядок быстрее, чем стандартные классы Delphi.
- Работа с устройствами ввода - вывода. Многие вещи в Дельфи можно делать через только через дескриптор, например чтение сообщений из MailSlot, работа с процессами и thread и т.д.
WINAPI - это набор фунций WINDOWS предоставляемый нам через стандартные библиотеки (kernel32.dll gdi.exe и т.д.). Раз эти библиотеки распространяются вместе с WINDOWS, следовательно их можно использовать на любых машинах (с этой платформой).
Хотя, следует оговориться, что та или иная библиотека может иметь различную версию. Но нам програмистам на Delphi по большей части это не важно.
Использование
Для использования нужно в разделе uses добавить модуль windows. Внем то и описано большинство функций.
Создадим проект.
На форме разместим кнопку и поле ввода TEdit
В обработчике события кнопки onClick запишем следующий код:
Код:
procedure Tform1.Button1onClick(Sender: TTobject);
var
h: cardinal;
begin
h := FindWindow(Edit1.Text, nil);
ShowWindow(h,
SW_MINIMIZE);
end;