GetDpiForMonitor avec Delphi 7 pour la reconnaissance PPP par moniteur

Question

La fonction WinAPI GetDpiForMonitor ne dispose pas d'une traduction d'en-tête pour Delphi 7 et de la recherche sur Internet, je ne pouvais pas en trouver un.

Si quelqu'un a un exemple de code montrant comment utiliser cette fonction WinAPI de Delphi 7, cela aiderait grandement.

Answer 1

Voici comment charger dynamiquement la DLL et appeler la fonction Delphi 7:

Type 
    TMONITOR_DPI_TYPE = (
    MDT_EFFECTIVE_DPI {= 0}, 
    MDT_ANGULAR_DPI {= 1}, 
    MDT_RAW_DPI  {= 2}, 
    MDT_DEFAULT  {= MDT_EFFECTIVE_DPI }); 

var 
    dpiX    : UINT; 
    dpiY    : UINT; 
    ErrCode   : HResult; 
    hShcore   : THandle; 
    GetDpiForMonitor : function(monitor: HMONITOR; dpiType: TMONITOR_DPI_TYPE; var dpi, dpiY: UINT): HRESULT; stdcall; 

begin 
    hShcore := GetModuleHandle('Shcore'); 
    If hShcore <> 0 then GetDpiForMonitor := GetProcAddress(hShcore,'GetDpiForMonitor'); 
    If @GetDpiForMonitor <> nil then 
    ErrCode := GetDpiForMonitor(Monitor.Handle,MDT_EFFECTIVE_DPI,dpiX,dpiY); 
end;