XProfan

Animation: Bildschonschoner läuft im XProfan-Fenster
PRFellow-Vorlage
Autor: Thomas Hölzer
Bildschirmschoner läuft in einem Profan-Fenster
(wie Win 9x/NT4 - Vorschau)
Funktioniert nur mit Win32-Schonern, die dieses Feature unterstützen
Bitte erst prüfen, ob bezier.scr in WindowsSystem installiert ist
und ggf. anpassen!
1. Parameter: Bildschirmschonerdatei (mit Pfad)
2. Parameter: Handle des Ausgabefensters (muß kein Hauptfenster sein!)
Die Sleep-Pause sorgt dafür, daß der "Gastschoner" vor Beenden des
Programms sicher beendet ist, weil ansonsten Probleme auftreten können
(Schutzverletzung)
Die eingestellte Zeitspanne kann versuchsweise verringert werden.
 $I Profalt.inc
Def ScrPreview(2) WinExec(Add$(Add$($(1)," /P "),Str$(%(2))),0)
Def FindWindowEx(4) !"USER32","FindWindowExA"
Def Sleep(1) !"KERNEL32","Sleep"
Beispiel
Declare t#,ende%,h&
WindowStyle $20
Window 100,100-600,400
AppendMenuBar 1,"&Beenden"
Cls 0
var static& = Control("STATIC","",$54000104,10,10,100,40,%hwnd,0,%hinstance,$0)
ScrPreview(Add$($SysPath,"sspipes.scr"),static&)

WhileNot Ende%

    Waitinput

    IF Menuitem(1)

        Dim t#,33
        String t#,0=Add$("WindowsScreenSaverClass",Chr$(0))
        Let h&=FindWindowEx(%hwnd,0,t#,0)
        SendMessage(h&,$2,0,0)  wm_destroy, wm_close($10) geht auch
        Dispose t#
        Sleep(500)  Eine halbe Sek. warten, bis der Schoner sicher weg ist
        Let ende%=1

    EndIf

Wend

xx& = @AMShowGif(%hwnd,Add(addr(name$),1),20,20,-1,Add(Addr(Code$),1),rgb(192,192,192)) not ok
xx& = @AMShowGif(%hwnd,Add(addr(name$)-1,1),20,20,-1,Add(Addr(Code$)-1,1),rgb(192,192,192)) oke>

Declare avi#
Dim avi#,255
Declare down&,Fen1&
String avi#,0="video.avi"
var hwin&=CreateWindow(%hwnd,"test",10,20,800,600)
var but1&=CreateButton(hwin&,"Suchen",10,20,80,26)
var but2&=CreateButton(hwin&,"Stop",10,60,80,26)

While 1

    WaitInput
    case %key=2:BREAK

    If GetFocus(but1&)

        down&=Control("SysAnimate32","",$50080004,400,20,1,1,hwin&,0,%hinstance,$100)
        sendmessage(down&,1124,0,avi#)

    ElseIf GetFocus(but2&)

        DestroyWindow(down&)
        SetFocus(%hwnd)

    EndIf

EndWhile

DestroyWindow(down&)
Dispose avi#
Fin