Delphi, Asm, C, WinAPI, PHP, ..., FAQ Опции

[-=CHE@TER=-]

Delphi programs in API.
На английском.
Очень подробно всё описано, плюс есть исходные коды готовых юнитов.
Например SmallUtil, в котором есть все частоиспользуемые подпрограммы, и который в размере меньше, чем SysUtils (автор так утверждает - я не проверял).

[-=CHE@TER=-]

Думаю, тут будет полезно приводить некоторые полезные куски кода.

Вот пара из них. Handle - не обязательно какой-то элемент вашей программы - это может быть и хэндл чужой программы.

Эмулирование нажатия какой-нибудь клавиши на клавиатуре:

CODE

SendMessage(Handle, WM_KEYDOWN, VK_SPACE, 0);
SendMessage(Handle, WM_CHAR, VK_SPACE, 0);
SendMessage(Handle, WM_KEYUP, VK_SPACE, 0);

В данном случае посылается код пробела элементу с хэндлом Handle. Обратите внимание, для чтобы нажатая клавиша обработалась корректно, необходимо послать все три сообщения! Т.е. сначала что нажата клавиша пробел, затем, символ клавиши, и потом, что она отжата. Это удобно делать, например, для ListView, если нужно чтобы после удаления элемента автоматом выделился тот, на котором сейчас стоит курсор.

Эмулирование нажатия клавиши мыши реализуется по схожей схеме:

CODE

SendMessage(Handle, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG(X, Y));
SendMessage(Handle, WM_LBUTTONUP, MK_LBUTTON, MAKELONG(X, Y));

В данном случае, эмулируется нажатие на левую клавишу мышки.
X, Y - координаты точки от левого верхнего угла элемента с хэндлом Handle, где "произошло" нажатие.
Сразу скажу, что я этот код не тестировал. Хотя, по идее, он должен работать.