GetDpiForMonitor與Delphi 7的每個監視器DPI感知

Question

WinAPI函數GetDpiForMonitor沒有Delphi 7的標題轉換和搜索我無法找到的互聯網。

如果有人有示例代碼顯示如何使用Delphi 7中的WinAPI函數，這將有很大的幫助。

Answer 1

這裏是如何動態地加載DLL和調用函數在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;