XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fonts: Den Namen eines Fonts auslesen, wenn man nur das Fensterhandle hat
PRFellow-Vorlage
Autor: Thomas Hölzer
Den Namen des Fonts auslesen, wenn man nur das Fensterhandle hat
Die Prozedur erwartet ein Fensterhandle; das Ergebnis steht in $(0)
Def GetTextFace(3) !GDI32,GetTextFaceA
Def GetDC(1) !USER32,GetDC
Def ReleaseDC(2) !USER32,ReleaseDC
Declare buf#

Proc GetFontName

    Parameters handle&
    Declare result$,dc&
    Dim buf#,64
    Let dc&=GetDC(handle&)
    GetTextFace(dc&,254,buf#)
    ReleaseDC(handle&,dc&)
    Let result$=String$(buf#,0)
    Dispose buf#
    Return result$

EndProc

Beispiel
Cls
WindowTitle Font-Name auslesen, wenn man nur das Fenster-Handle hat
Usefont Arial,0,0,0,0,0
GetFontName %hwnd
DrawText 10,10, Add$(Dieses Profan-Fenster:,$(0))
GetFontName %desktop
DrawText 10,50, Add$(Desktop:,$(0))
WaitInput