Moin turboPASCAL,
also wenn schon, dann
if (getwindowlong(Handle, GWL_STYLE) and WS_CAPTION) > 0 then
oder
if (getwindowlong(Handle, GWL_STYLE) and WS_CAPTION) <> 0 then
oder
if (getwindowlong(Handle, GWL_STYLE) and WS_CAPTION) = WS_CAPTION then
zum einen and statt or verwenden, da Du ja schliesslich wissen willst, ob das Flag enthalten ist, deshalb muss man es ausmaskieren (and) und nicht hinzufügen (or)
Zum Anderen:
> 0 birgt die Gefahr, dass das Ergebnis false wird, da hier ja der Wert eines Bitfeldes getestet wird, und das Ergebnis somit nicht als Zahl vergleichen werden sollte. Es könnte auch negativ sein, wenn man es als Zahlwert ansieht.
Deshalb <> 0 oder = WS_CAPTION