Перемещение мыши по координатам чужого окна

[Le0n4iko_o]

Добрый день господа программисты, возник такой вопрос.
Есть определенное окно , например notepad

var  
Window:HWND;
X,Y : integer;
begin
Window := FindWindow(nil,'notepad');// находим по заголовку
if Window <>0 then begin
SetForegroundWindow(window); // Делаем поверх окон
далее нужно по координатам x,y переместить курсор
x:=100;
y:=300;
SetCursorPos(x,y);

Дело в том что курсор переместится по экрану
слышал что нужно применять ClientToScreen но чет не понимаю как .
Подскажите пожалуйста

[саша40]

Первое, что нужно сделать, это установить на окно фокус. Функция SetFocus.
Второе перемещаешь. CursorPos(x,y).

[Le0n4iko_o]

Зачем устанавливать фокус , если я делаю его активным

Window := FindWindow(nil,'БотКлючи.txt - WordPad');// находим по заголовку
if Window <>0 then begin
//SetForegroundWindow(Window); // Делаем поверх окон
Sleep(100);
Windows.SetFocus(Window);
x:=100;
y:=300;

SetCursorPos(x,y);

кстати попробовал с фокусом окно не активно

[Le0n4iko_o]

что никто не знает Оо ?

[zumm]

Вот функции из моего мини VCL. Немного поправишь под свою задачу и пользуйся.

function TCustomWindow.ClientToScreenRect(const ARect: TRect): TRect;
var
  Point: TPoint;
begin
  with Point, ARect do
  begin
    X := Left;
    Y := Top;
  end;

  ClientToScreen(Parent, Point);

  with Result, Point do
  begin
    Left := X;
    Top := Y;
  end;

  with Point, ARect do
  begin
    X := Right;
    Y := Bottom;
  end;

  ClientToScreen(Parent, Point);

  with Result, Point do
  begin
    Right := X;
    Bottom := Y;
  end;
end;

function TCustomWindow.ScreenToClientRect(const ARect: TRect): TRect;
var
  Point: TPoint;
begin
  with Point, ARect do
  begin
    X := Left;
    Y := Top;
  end;

  ScreenToClient(Parent, Point);

  with Result, Point do
  begin
    Left := X;
    Top := Y;
  end;

  with Point, ARect do
  begin
    X := Right;
    Y := Bottom;
  end;

  ScreenToClient(Parent, Point);

  with Result, Point do
  begin
    Right := X;
    Bottom := Y;
  end;
end;

[Le0n4iko_o]

Оо не совсем понимаю что тут происходит =(
Можно на моем примере ? Буду очень признателен

[Lime]

var
  WindowName:string;
  WindowRect : TRect;
  WindowHandle : HWND;
  CursorXpos,CursorYpos: Integer;
begin
  WindowName := Edit1.Text; //Заголовок окна, например "Form1"
  WindowHandle := FindWindow(nil,PChar(WindowName));

  windows.GetWindowRect(WindowHandle,WindowRect);

  memo1.Clear;
  memo1.Lines.Add('window left pos: ' + IntToStr(WindowRect.Left));
  memo1.Lines.Add('window top pos: ' + IntToStr(WindowRect.Top));

  CursorXpos := StrToInt(Edit2.Text);//Х
  CursorYpos := StrToInt(Edit3.Text);//Y

  SetCursorPos(WindowRect.Left + CursorXpos, WindowRect.Top + CursorYpos);

  memo1.Lines.Add('cursor final position: ' + IntToStr(WindowRect.Left + CursorXpos) + ',' + IntToStr(WindowRect.Top + CursorYpos));

[Le0n4iko_o]

Lime Огромное спасибо , выручил!
zumm спасибо за отклик