1:
2:

if FindWindow('Progman', 'Program Manager') = GetForegroundWindow then
  {Desktop ist im Vordergrund};                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var h: THandle;
    r: TRect;
begin
  h := GetForeGroundWindow;

  if h <> 0 then
  begin
    GetWindowRect(h,r);
    With r do
      if (r.Left <= 0) and (r.Top <= 0) and (r.Right >= Screen.Width) and (r.Bottom >= Screen.Height) then
        //fenster im vollbildmodus. Der Desktop ist hiernach auch eine Vollbildanwendung. Das soll er aber nicht sein.
        //if FindWindow('Progman', 'Program Manager') <> h then //funktioniert leider auch nur manchmal, siehe beitrag weiter oben

  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var h: THandle;
    r: TRect;
begin
  h := GetForeGroundWindow;

  if ((h <> 0) and (h <> getDesktopWindow)) then
  begin
    GetWindowRect(h,r);
    With r do
      if (r.Left <= 0) and (r.Top <= 0) and (r.Right >= Screen.Width) and (r.Bottom >= Screen.Height) then
        //fenster im vollbildmodus. Der Desktop ist hiernach auch eine Vollbildanwendung. Das soll er aber nicht sein.
        //if FindWindow('Progman', 'Program Manager') <> h then //funktioniert leider auch nur manchmal, siehe beitrag weiter oben

  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var h: THandle;
    r: TRect;
begin
  h := GetForeGroundWindow;

  if ((h <> 0) then
  begin
    GetWindowRect(h,r);
    With r do
      if (r.Left <= 0) and (r.Top <= 0) and (r.Right >= Screen.Width) and (r.Bottom >= Screen.Height) then
        //fenster im vollbildmodus.
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

IsWindowEnabled(hWnd)
IsWindowVisible(hWnd) 
IsZoomed(hWnd)
IsWindow(hWnd)  
GetParent(hWnd)
GetActiveWindow
GetFocus 
GetWindow
GetDesktopWindow
GetWindowRect(aHwnd, aRec)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  canv: Tcanvas;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  canv := TCanvas.Create;
  canv.Handle := getWindowDc(getDesktopWindow);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var
    wpl: WindowPlacement;
    p: Pchar;
    s: String;
    vollb: boolean;
begin
  p := strAlloc(1024);
  wpl.length := sizeof(wpl);

  getWindowText(getForeGroundWindow,p,1024);    // Wie heißt das Fenster


  getWindowPlacement(getForegroundWindow,@wpl);
  vollb := wpl.showCmd = SW_showmaximized;      // Vollbild?

  if vollb then s := p + ' Maximiert' else s := p + ' nicht Maximiert';

  canv.Brush.Color := clWhite;
  canv.TextOut(10,10,s);
end;
end.                    

1:
2:
3:

  
windows.Beep(500,100);  // Wenn maximiert
windows.Beep(1000,100); // Wenn nicht mximiert