Obtener las verdaderas coordenadas de una ventana en Windows 10

[[escafandra]]

El titulo puede parecer curioso pero me torturé la cabeza cuando me di cuenta de que en Win 10 las coordenadas del TRect devuelto por la API GetWindoRect ha dejado de ser correctas. En concreto:

1.- Top es correcto
2.- Left se desplaza 7 pixels a la izquierda
3.- Right se desplaza 7 pixels a la deracha
4.- Bottom de desplaza 7 pixels hacia abajo

Curiosamente en ese marco de 7 pixels ,a API WindowFromPoint Localiza la ventana con lo que parece que ese margen que parece que no es de la ventana y que es transparente, si es la ventana. Lo que parece es que M$ ha querido hacer un efecto visual, de hecho las ventanas en Win8 son un poco mas gruesas en su margen. Lo que parece es que es una especie de herencia del Aero de Vista

Todo esto no tendría ningún interés si no quisiésemos localizar con precisión lo que realmente estamos viendo dela ventana, por ejemplo para colocar un margen que nos la localice visualmente con exactitud. Veamos una imagen:







Ahora el tema está en ver como se corrige el aparente error.

La base es la API DwmGetWindowAttribute solicitando el parámetro DWMWA_EXTENDED_FRAME_BOUNDS y nos devolverá el rectángulo visual de la ventana.

Código Delphi [-]
function  GetTrueWindowRect(hWin: HWND; var Rect: TRect): BOOL;
type
  PDwmGetWindowAttribute  = function(hWin: HWND; dwAttribute: DWORD; pvAttribute: Pointer; cbAttributeWORD): HRESULT; stdcall; //Dwmapi.dll
var
  hLib: HMODULE;
  _DwmGetWindowAttribute: PDwmGetWindowAttribute;
begin
  Result:= GetWindowRect(hWin, Rect);
  if Win32MajorVersion >= 6 then
  begin
    hLib:= LoadLibrary('Dwmapi.dll');
    @_DwmGetWindowAttribute:= GetProcAddress(hLib, 'DwmGetWindowAttribute');
    if @_DwmGetWindowAttribute <> nil then
      Result:= (0 = _DwmGetWindowAttribute(hWin, 9 {DWMWA_EXTENDED_FRAME_BOUNDS}, @Rect, sizeof(TRect)));
    FreeLibrary(hLib);
  end;
end;

El uso de esta función, GetTrueWindowRect, es idéntico a GetWindowRect pero el resultado será el rectángulo corregido si nuestro S.O. es Vista o superior y el clásico en los otros casos.


Saludos.