Midi-Dateien einbinden und abspielen

[master87]

Das geht leider nicht.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
Res2Temp(form1);zu viele argument kommt alls nachricht wenn ich das so verwende. 
MCISendString(PChar('play '+ filename), nil, 0, 0); {und abgespielt} 
end; 

procedure TForm1.BitBtn1Click(Sender: TObject); {Stop-Button} 
begin 
MCISendString(PChar('stop ' + Filename), nil, 0, 0); 
end; 

procedure TForm1.ende(Sender: TObject; {Ende} 
var Action: TCloseAction); 
begin 
if fileexists(filename) then deletefile(filename); 
MCISendString(PChar('stop ' + Filename), nil, 0, 0); 
MCISendString('close sound', nil, 0, 0); 
end;

Und einen sound bekomme ich auch nicht zu hören.