Hallo
Hier nochmal ganz genau:
Die Prozessorauslastung befindet sich nach dem Windowsstart bei ca. 25%. Beim Abspielen eines Mp3 Songs via Mci steigt die Prozessorauslastung ganz kurz und sinkt dann auf 5 -15%(und bleibt dort während der Wiedergabe).
Nach @mcisend$("Close Sound") steigt die Prozessorauslastung auf 75% und bleibt dort bis ich entweder den Pc abschalt oder ich wieder ein Mp3 via Mci abspiele (Egal ob jetzt im selben Programm oder ob ich es schließen tu und wieder neustarte, es bleibt immer das selbe).
Ich denk das alles richtig beendet wurde.
Hab hier mal einen kleinen Quellcode zum Testen auf die Schnelle zusammengebastelt daher auch nicht sehr anspruchsvoll:
'Zentriert das Fenster: @CreateWindow(%Hwnd,"Text",@ZX(X%),@ZY(Y%),X%,Y%)
Def @ZX(1) @Div(@Sub(%MaxX,@%(1)),2)
Def @ZY(1) @Div(@Sub(%MaxY,@%(1)),2)
SetTrueColor 1
Declare Pfad$,Datei$,Dummylistbox&,Anzahl%,Zeile%,Lied$
Zeile%=90
Proc Ende
Parameters Fehler%
Case Fehler%=1:@MessageBox("Keine Mp3 Datei gefunden","Fehler",0)
@DestroyWindow(Dummylistbox&)
Case @Neq$(Lied$,""):@Mcisend$("Close Sound")
End
Endproc
Proc Titelauswahl
Zeile%=0
Whilenot Zeile%
Zeile%=@Val(@Input$("Welcher Titel soll abgespielt werden?","Titelauswahl",""))
Case @Or(Zeile%=0,Zeile%>Anzahl%):Return
Case @Neq$(Lied$,""):mcisend$("Close Sound")
Lied$=@Add$(Chr$(34),@Add$(@Getstring$(Dummylistbox&,Zeile%-1),Chr$(34)))
Lied$=@Add$("OPEN ",@Add$(Lied$," TYPE MPEGVIDEO ALIAS Sound"))
@MCISend$(Lied$)
@mcisend$("PLAY Sound")
Wend
Endproc
Window @Zx(640),@Zy(480)-640,480
Cls 10525596
TextColor 1655073,-1
UseFont "Abduction",30,15,1,0,0
Drawtext 230,20,"Playsound"
UseFont "Abduction",17,0,0,1,0
Drawtext 220,50,"Von Thomas Ungerböck"
Pfad$=@ChooseDir$("Verzeichnis wählen:")
Case Pfad$="":End
Chdir Pfad$
Dummylistbox&=@CreateSortedListBox(%Hwnd,"",0,0,0,0)
@Showwindow(Dummylistbox&,0)
Datei$=@FindFirst$("*.Mp3")
Case %IoResult:Ende 1
@AddString(Dummylistbox&,Datei$)
Whilenot %IoResult
Datei$=FindNext$()
Case %IoResult:Break
@AddString(Dummylistbox&,Datei$)
Wend
Anzahl%=@SendMessage(Dummylistbox&,$018B,0,0)
UseFont "Courier",20,10,0,0,0
Whileloop Anzahl%
Drawtext 40,Zeile%,@Add$(@Format$("00"":",&Loop),@GetString$(Dummylistbox&,&Loop-1))
Zeile%=Zeile%+25
Wend
While 1
Waitinput
If %Scankey=27
Ende
Elseif %Scankey=13
Titelauswahl
Endif
Wend
|