Как программно ткнуть мишкой по экрану и нажать кнопку на клаве

[krivetko-man]

procedure TMainForm.Go;
var
 p,xp:TPoint;
 x,y:integer;
 z:integer;
 w:cardinal;
begin
 GetCursorPos(p);
 x:=p.X;
 y:=p.Y;
 xp:=ScreenToClient(p);
 z:=MakeLParam(p.X,p.Y);
 w:=WindowFromPoint(p);
 sendmessage(w, WM_LBUTTONDOWN, MK_LBUTTON, z);
 sendmessage(w, WM_LBUTTONUP, MK_LBUTTON, z);
 sendmessage(w, WM_CHAR, 17, 0);
end;

Что не правильно? Помогите плиз!!!

 

[wb77]

Попробуй PostMessage

Добавлено через 50 секунд
И не WM_CHAR, а связку из WM_KEY_DOWN и _UP

 

[luben111]

Позиция
Mouse.CursorPos := Point(mouseX, mouseY);

Нажимание клавиши
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

use_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

 

[sunzh]

для клавы: keyboard_event