Midi-Dateien abspielen (ohne MP)

[City Light]

Code:

uses
  MMSystem;

procedure TForm1.Button1Click;
const
  FileName = 'C:\YourFile.mid';
begin
  MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

Ich hoffe das ich dir helfen konnte!

MFG

Code-Tags hinzugefügt - Luckie (Luke) (der, der schneller moderiert als sein Schatten