Windowstate eines fremden Programm ermitteln

[Aphton]

Probier mal folgendes:

Delphi-Quellcode:

const
  state: Array[Boolean] of String = ( 'Nein', 'Ja' );
var
  WL: Cardinal;
  Status: String;
begin
  WL := GetWindowLong( nh, GWL_STYLE ); // nh ist das Handle vom Notepad...
  Status := 'WS_VISIBLE: '  + state[(WL and WS_VISIBLE) = WS_VISIBLE] + #13#10 +
            'WS_MAXIMIZE: ' + state[(WL and WS_MAXIMIZE) = WS_MAXIMIZE] + #13#10 +
            'WS_MINIMIZE: ' + state[(WL and WS_MINIMIZE) = WS_MINIMIZE];
  Label1.Caption := Status;