UYGULAMAYA MOUSLA TIKLATMA

[fatih3]

MERHABA ARKADAŞLAR BİR UYGULAMAYA MOUSLA SAĞ VE SOL TIKLATMA YAPMAK İSTİYORUM AMA SADECE UYGULAMAYA GÖNDERMEK İSTİYORUM YAZI VS GÖNDERİYORUM KLAVYE TUŞLARINIDA AMA BİR TÜRLÜ SAĞ VE SOL TIKLAMA YAPAMADIM 

BEGİN
Var
  wnd: HWND;
  i: Integer;
  s: string;
begin
  wnd := FindWindow('notepad', nil);
  if wnd <> 0 then
  begin
    wnd := FindWindowEx(wnd, 0, 'Edit', nil);


    s := 'Hello';
    for i := 1 to Length(s) do
      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);

    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);

    PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);
    PostMessage(wnd, MOUSEEVENTF_LEFTDOWN, 0, 0);
    PostMessage(wnd, MOUSEEVENTF_LEFTUP, 0, 0);
  end;
end;

[berk06]

Merhaba,
Projem içerisinden direkt kopyala yapıştır yapıyorum.

procedure TFormRevolution.ClickAndSlide(startX,startY,finishX,finishY:Integer);
var
 hwnd:THandle;
 i:integer;
begin
 hwnd :=FindWindow(nil,'Knight Online Client');
 SetForegroundWindow(hwnd);
 Sleep(200);
 SetCursorPos(startX, startY);
 mouse_event(MOUSEEVENTF_RIGHTDOWN, startX, startY, 0, 0);
 mouse_event(MOUSEEVENTF_MOVE or MOUSEEVENTF_ABSOLUTE, finishX, finishY, 0, 0);
 mouse_event(MOUSEEVENTF_RIGHTUP, finishX, finishY, 0, 0);
 SetCursorPos(finishX, finishY);
end;

procedure TFormRevolution.ClickMouse(X, Y: Integer; Button: TMouseButton; const sleepTime:integer = 300);
var
 hwnd:THandle;
begin
 hwnd :=FindWindow(nil,'Knight Online Client');
 SetForegroundWindow(hwnd);
 SetCursorPos(X, Y);
 case Button of
 mbLeft: begin
     mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
     Sleep(sleepTime);
     mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
     Sleep(40);
     mouse_event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
   end;
   mbRight: begin
     mouse_event(MOUSEEVENTF_RIGHTDOWN, x, y, 0, 0);
     Sleep(sleepTime);
     mouse_event(MOUSEEVENTF_RIGHTUP, x, y, 0, 0);
     Sleep(sleepTime/2);
     mouse_event(MOUSEEVENTF_RIGHTUP, x, y, 0, 0);
   end;
   mbMiddle: begin
     mouse_event(MOUSEEVENTF_MIDDLEDOWN, x, y, 0, 0 );
     Sleep(sleepTime);
     mouse_event(MOUSEEVENTF_MIDDLEUP, x, y, 0, 0 );
     Sleep(sleepTime/2);
     mouse_event(MOUSEEVENTF_MIDDLEUP, x, y, 0, 0 );

   end;
 end;
end;