PureBasic

Code : Tout sélectionner

#WM_DPICHANGED = $2E0 ;https://learn.microsoft.com/en-us/windows/win32/hidpi/wm-dpichanged

Procedure EnableDPIAwarness()
	Protected ver.OSVERSIONINFOEX, hDLL.i, Result
	
	ver\dwOSVersionInfoSize = SizeOf(ver)
	
	hDLL = OpenLibrary(#PB_Any, "ntdll.dll")     
	If hDLL   
		CallFunction(hDLL, "RtlGetVersion", @ver)
		CloseLibrary(hDLL)       
	EndIf
	
	If ver\dwMajorVersion > 6 Or (ver\dwMajorVersion = 6 And ver\dwMinorVersion = 3)
		hDLL = OpenLibrary(#PB_Any, "SHCore.dll")
		If hDLL
			; SetProcessDpiAwareness(Value) : https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setthreaddpiawarenesscontext
			; 2 = DPI_AWARENESS_PER_MONITOR_AWARE as defined here : https://learn.microsoft.com/en-us/windows/win32/api/shellscalingapi/ne-shellscalingapi-process_dpi_awareness
			Result = CallFunction(hDLL, "SetProcessDpiAwareness", 2)
			CloseLibrary(hDLL)
			
			If Result = #S_OK
				Result = #True
			Else
				Result = #False
				CompilerIf #PB_Compiler_Debugger
					MessageRequester("EnableDPIAwareness", "Couldn't set DPI awareness. Please make sure that `DPI awereness executable` is DISABLED in the compiler options.")
				CompilerEndIf
			EndIf
		EndIf
	EndIf
	
	ProcedureReturn Result
EndProcedure

; Example :
ImportC "user32.lib"
	GetDpiForWindow(WindowID.i)
EndImport

EnableDPIAwarness()

OpenWindow(0, 200, 200, 400, 400, "DPI Test", #PB_Window_SystemMenu)

Procedure Callback(WindowID, Message, WParam, LParam)
	If Message = #WM_DPICHANGED
		Debug GetDpiForWindow(WindowID(0))
	EndIf
	ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

SetWindowCallback(@Callback(), 0)

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow