XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Fremdes Programm minimieren
declare finde&,showstat&
cls
shell Notepad.exe
finde&=Findwindow(Unbenannt - Editor)

if finde& > 0

    showstat&=showwindow(finde&,6)
    Print Notepad ist klein - Taste drücken

else

    Print Nix zum Verkleinern da :( - Taste drücken

endif

waitinput

if showstat&=1

    showstat&=showwindow(finde&,1)
    Print Notepad hat wieder Lust - Taste zum Beenden

else

    Print Was soll ich denn Vergrössern, Sie Schelm :)?

endif

waitinput