• Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Для чего нужен WinAPI

Lomanu4 Оффлайн

Lomanu4

Команда форума
Администратор
Сообщения
1,164
Симпатии
222
Баллы
155
VK
Иногда требуется работать с объектами WINDOWS не используя VCL. Где это может пригодиться?

Например:

  1. При отсутствии у приложения окна - консольный проект.
  2. Если нужно работать быстро, а известно, что функции WinApi работают на порядок быстрее, чем стандартные классы Delphi.
  3. Работа с устройствами ввода - вывода. Многие вещи в Дельфи можно делать через только через дескриптор, например чтение сообщений из 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;
Теперь откомпилируйте и запустите его. В поле ввода введите заголовок любого окна которое открыто у вас на рабочем столе (например "(Безимени) - Блокнот"). Нажмите кнопку и окно минимизируется.
 
Вверх Снизу