XProfan

 $H windows.ph
 $H messages.ph
 $H commctrl.ph
 $U thread.pcu = thread.
Def ExtractIconExA(5) !"SHELL32","ExtractIconExA"
Def Zeit(0) @Left $(@Time $(0)+»+@Time $(1),8)
declare hwidthx&,hwidthy&

proc thread.do

    parameters n&

    si (n&=1)

        IcoNr2$ = @Str$(IcoNr2&)
        iconhandle1& = GetIconA_Handle("Eigene.dll",IcoNr1&,0)			"On-Off" Icon
        iconhandle2& = GetIconA_Handle("Eigene.dll",IcoNr2&,0)			"Wechsel"-Icon
        ~SendMessage(Status&,$40F,1,iconhandle1&)
        ~SendMessage(Status&,$40F,2,iconhandle2&)
        ~SendMessage(Status&,$401,3,"Icon Nr. " + IcoNr2$ + " aus qui Eigene.dll")Text dem Part 4 zuweisen
        ~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,» + Zeit())   		Text dem Part 5 zuweisen
        INC IcoNr2&

        Si IcoNr1& = 1

            IcoNr1& = 2

        D'autre

            IcoNr1& = 1

        EndIf

    elseif (n&=2)

        si ( (hwidthx&<>width(%hwnd)) or (hwidthy&<>height(%hwnd)) )

            hwidthx&=width(%hwnd)
            hwidthy&=height(%hwnd)
            setwindowpos status& = 0,0 - 0,0 ;0

        endif

    endif

endproc

Proc GetIconA_Handle   				seulement cela Handle ermitteln

    Paramètres IconFile$,IconNr$, gross%   		kleine Icônes = 0 grand = 1
    Déclarer DllIcon&, ST#, PT#
    Faible ST#,add(len(IconFile$),1)
    Faible Pt#,4
    String ST#,0 = IconFile$
    Laisser DllIcon& = ExtractIconA(%Hinstance,ST#,val(IconNr$))   grand Icônes

    si gross% = 0

        ExtractIconExA(ST#,val(IconNr$),0,Pt#,1)     	kleine Icônes

    d'autre

        ExtractIconExA(ST#,val(IconNr$),Pt#,0,1)     	grand Icônes

    endif

    DllIcon& = Long(Pt#,0)
    Dispose ST#
    Dispose Pt#
    return DllIcon&

ENDPROC

Déclarer Status&,IntWidth#,iconhandle1&,iconhandle2&,IcoNr1&,IcoNr2&,IcoNr2$
style de fenêtre ( 512 | 1 | 2 | 4 | 8 )
CLS
Status& = Créer("Statuswindow",%hwnd,»)
hwidthx&=width(%hwnd)
hwidthy&=height(%hwnd)
Faible Intwidth#,20
iconhandle1& = GetIconA_Handle("Eigene.dll",20,0)      Ausgangs-Icon
iconhandle2& = GetIconA_Handle("Eigene.dll",20,0)      Ausgangs-Icon
Long Intwidth#,0 = 356,378,400,565,%MaxX               Integer-Array avec Maßen qui individuel Textbereiche
~SendMessage(Status&,~SB_SETPARTS,5,IntWidth#)         Parts mettons
~SendMessage(Status&,$401,0 | ~SBT_POPOUT,"Text1")     Textes dem Part zuweisen
~SendMessage(Status&,$40F,1,iconhandle1&)
~SendMessage(Status&,$40F,2,»)
~SendMessage(Status&,$401,3,»)                        Wechselicon + Text dem Part zuweisen
~SendMessage(Status&,$401,4 | ~SBT_NOBORDERS,»)       Leerstring dem Part zuweisen
IcoNr1& = 1
IcoNr2& = 0

si (val(translate$(thread.Ver(),".",»)) < 14)

    messagebox "Zu vieille Fil.pcu",»,0
    end

endif

thread.start 1,7 thread canal 1 starten avec intervallspeed 6 (halbsekündlich)
thread.start 2,4 thread canal 2 starten avec intervallspeed 4 (achtelsekündlich)

Whilenot (%clé=2)

    Waitinput

Endwhile

thread.stop 1
thread.stop 2
Dispose Intwidth#
Fin

CREATESTATUSBAR "STATUSBAR" paramètre 1=Text dans Statusbar
LET STATUSBAR&=@&(0)
declare ANICONTROL&
ANICONTROL&=Contrôle("STATIC",»,$54000100,10,0,32,32,STATUSBAR&,0,%HINSTANCE,$0)
ANIMICON 0 ,"C:FLY.ANI",ANICONTROL&,0,0,0032,0032