Hallo,
nun, ich habe eine Mini-App geschrieben und bei mir geht die CPU Auslastung auf max. 5% (während der Laufzeit):
Delphi-Quellcode:
...
VAR
Form1 : TForm1;
IMPLEMENTATION
USES
MMSystem;
{$R *.DFM}
PROCEDURE TForm1.Button1Click(Sender: TObject); //Start
BEGIN
playsound('C:\X-Files.wav', 0, snd_async OR snd_loop);
END;
PROCEDURE TForm1.Button2Click(Sender: TObject); //Stopp
BEGIN
playsound(NIL, 0, SND_PURGE);
END;
PROCEDURE TForm1.FormClose(Sender: TObject; VAR Action: TCloseAction); // Close Form
BEGIN
playsound(NIL, 0, snd_async OR snd_loop);
END;
- Kann es sein, dass in Deinem onClose Ereignis mehr drinnen steht, oder das Du nicht alle Ressourcen freigibst,...??
- Ist die CPU Auslastung in Deinem Programmm gleich, wenn Du playsound auskommentierst?
- Wie groß ist Dein Wav-File?
p.s.:
OK.,OK., NIL ist besser als 0
Warnung in der
IDE:
Code:
252. Konstante 0 wurde zu NIL konvertiert