XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fenster minimieren per API
Def @Closewindow(1) !USER32,CloseWindow
Windowtitle Das Fenster wird nach 10 Sekunden minimiert
Windowstyle 31
Window 0,0-640,440
Declare Tick&
Let Tick&=&Gettickcount

While 0=0

    Sleep 100

    If &Gettickcount-Tick&>10000

        Let Tick&=&Gettickcount
        @Closewindow(%Hwnd)

    Endif

Wend