Разница при определении координат клика между 2мя Пк

[Illusiony]

Имеется программа которая определяет координаты клика по программе при нажатии:

GetWindowRect(H, WindowRect); // это для преобразование глобальных координат в координаты относительно текущего окна
     Windows.GetClientRect(H, rclient); // 
      GetCursorPos(p); // берем глобальные координаты курсора
      w := WindowRect.Right - WindowRect.Left;
      h := WindowRect.Bottom - WindowRect.Top;
      w1 := rclient.Right - rclient.Left;
      h1 := rclient.Bottom - rclient.Top;
      x:=p.x- WindowRect.Left-Round((w-w1)/2);
      y:= p.y-WindowRect.Top-(h-h1 -Round((w-w1)/2));

-Разрешение программы на которой кликаю одинаковое
-Разрешение мониторов 1440х900 и 1920х1080

При разрешении программы по которой кликаю 1366х768( клиентская область) на Пк с фул HD разрешением все норм показывает, а на мониторе 1440х900 если кликнуть по крайнему правому нижниму углу программы будет где то 1344 на 708 ( а на фул HD мониторе нормально как и должно быть около 1366 х768)
Если кликнуть по крайнему левому вернему углу программы мышкой на мониторе 1440х900 покажет около 20х60, а на фул HD около 0х0 как и должно быть.

Походу определение координат отличается на различных мониторах?(
Винда там и там 7мерка.

[cotseec]

вместо перевода координат "экран - окно" вручную воспользуйтесь ScreenToClient function

[Illusiony]

А теперь вроде ничего не менял но одинаково правильно на двух Пк. Странно, как это...

[Illusiony]

Сообщение от cotseec

вместо перевода координат "экран - окно" вручную воспользуйтесь ScreenToClient function

Вот так?

      GetCursorPos(p); // берем глобальные координаты курсора
     Windows.ScreenToClient(h,p);
     x:=p.x;
     y:=p.y;

Скажите что именно здесь обозначает Windows перед функцией? Это просто таким образом доступ к функции осуществляется или здесь что то другое?

Находил примеры с Windows. GetCursorPos() и просто GetCursorPos(). В чем разница?

[Аватар]

ScreenToClient - это метод TControl и его наследников , так же как и ClientToScreen. В том числе и формы

[cotseec]

Сообщение от Illusiony

Находил примеры с Windows. GetCursorPos() и просто GetCursorPos(). В чем разница?

Windows - пространство имен (название модуля), в котором описана требуемая функция (чтобы компилятору было однозначно ясно какую конкретно функцию использовать), если нет одноименной функции, описанной в ином модуле, то Windows (в данном случае) не требуется

[phomm]

Это указание модуля, из которого взять функцию, требуется редко, только если используете у себя в проекте (а точнее в текущем модуле) два разных модуля с одинаковыми по имени функциями. В данном случае ScreenToClient может браться и из модуля Windows и из модуля Controls (если не ошибаюсь), и вот чтобы убрать возможную неоднозначность, используется это явное указание для компилятора.

[Illusiony]

Всем спасибо. Тут еще вопросик,можно ли как то по простому сделать скриншот клиентской области окна чужого приложения?
У меня такое :

procedure ScreenShot(activeWindow: bool; destBitmap : TBitmap) ;
 var
    w,h ,w1,h1: integer;
    DC : HDC;
    hWin : Cardinal;
    r,rclient : TRect;
Begin

hWin :=  GetForegroundWindow;
      dc := GetWindowDC(hWin) ;
      GetWindowRect(hWin,r) ;
      w := r.Right - r.Left;
      h := r.Bottom - r.Top;
      Windows.GetClientRect(hWin, rclient);
      w1 := rclient.Right - rclient.Left;
      h1 := rclient.Bottom - rclient.Top;

     destBitmap.Width := w1;
     destBitmap.Height := h1;
     BitBlt(destBitmap.Canvas.Handle,
            0,
            0,
            destBitmap.Width,
            destBitmap.Height,
            DC,
           Round((w-w1)/2)-razresh, 
           (h-h1 -Round((w-w1)/2))+sistem,
            SRCCOPY) ;