XProfan

Source wurde am 16.06.2007 in die Babyklappe auf XProfan.Com abgelegt:
Für PROFAN² 6.6 - User, bei denen es noch keine &cycaption gibt, sie sie aber trotzdem benötigen !
WindowStyle 24
CLS
Def @GetWindowRect(2) !user32.dll,GetWindowRect
Declare FensterPosition#, FensterY1&, FensterY2&, cycaption&
Dim FensterPosition#,16
@GetWindowRect(%HWND,FensterPosition#)
Let FensterY1&=@Long(FensterPosition#,4)
Let FensterY2&=@Long(FensterPosition#,12)
Dispose FensterPosition#
Let cycaption&=(FensterY2&-FensterY1&)-@Height(%HWND)
print cycaption&
waitkey