ich möchte dpi abfragen erhalte aber bei dllfunction DllFuncton GetDC einen syntaxfehler beim comipilieren
Code: Alles auswählen
Proc Main()
*FUNCTION GET_SCREEN_DPI
// Ermittelt die eingestellte Gr”sse fr Windows-Schriftarten,
// also z.B. 96dpi oder 120dpi
parameters oWindow
private nHdc
private nRes
private nWinHandle
// ein bestimmtes Fenster ?
if pcount() = 0
nWinHandle := 0 // 0 --> Desktop-"Fenster"
else
nWinHandle := oWindow:getWND() // Handle des bergebenen Fenster holen.
endif
// Aus dem Handle machen wir einen "Device-Context" (DC)
nHdc := GetDC(nWinHandle)
// und jetzt k”nnen wir beliebige Daten des DC abfragen (Deklaration --> WINCONST.CH)
nRes := GetDeviceCaps(nHdc, LOGPIXELSX) // Aufl”sung in vertikaler Richtung
// den DC entsorgen (soll man machen)
ReleaseDC(nWinHandle, nHdc)
return
DLLFUNCTION GetDC(nHandle)USING STDCALL FROM user32
/***********************************************************************************************************/
DLLFUNCTION ReleaseDC(hWnd, hdc) USING STDCALL FROM user32
/***********************************************************************************************************/
DLLFUNCTION GetWindowDC(nHandle)USING STDCALL FROM user32
/***********************************************************************************************************
"GetSystemMetrics"
Informationen ber die Bildschirmanzeige.
The GetSystemMetrics function retrieves various system metrics (widths and heights of display elements)
and system configuration settings. All dimensions retrieved by GetSystemMetrics are in pixels.
- nIndex = system metric or configuration setting to retrieve
*/
DLLFUNCTION GetSystemMetrics(nIndex) USING STDCALL FROM user32