Du könntest das auch in einem Thread laufen lassen!
Datei - Neu - Weitere - Thread Objekt
Klassenname z.b. TMusik
und dann
Delphi-Quellcode:
procedure TMusik.Execute;
begin
// hier machst du einfach eine endlosschleife rein z.b.
while true do
MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;
das ganze kannst du dann folgendermaßen starten:
Delphi-Quellcode:
implementation
uses Unit2; // oder wo halt dein Thread-Objekt ist
...
procedure TForm1.Button1Click(Sender: TObject);
var
MeinThread: TMusik;
begin
MeinThread := TMusik.Create(false); // durch false wird der Thread sofort gestartet
end;
so oder so ähnlich müssts funzen
stefan