Клик по кнопке пуск
Клик по кнопке пуск
Клик по кнопке пуск var pPoint: TPoint; hPointWnd: HWnd; begin pPoint.X := 15; pPoint.Y := Screen.Height-20; SetCursorPos(pPoint.X, pPoint.Y); hPointWnd := WindowFromPoint(pPoint); SendMessage(hPointWnd, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG(1, 1)); SendMessage(hPointWnd, WM_LBUTTONUP, 0, MAKELONG(0, 0)); end;
