1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

uses
  // ...
  MMSystem;

const
  // über diesen beliebigen Alias wird die zu spielende Datei für die MCI API identifiziert
  MyAlias = 'myfile';

type
  TForm1 = class(TForm)
  // ...
  private
    procedure PlayFile(const FileName: string);
    procedure MciNotify(var Msg: TMessage); message MM_MCINOTIFY;
  // ...
  end;


// MyMciSendString: kleiner Wrapper für mciSendString
function MyMciSendString(const Command: string; CallbackWnd: HWND; out MciReturn: string): MCIERROR;
var
  mciReturnStr: array [Byte] of Char;
begin
  Result := mciSendString(PChar(Command), @mciReturnStr[0], SizeOf(mciReturnStr), CallbackWnd);
  MciReturn := mciReturnStr;
  if Result <> 0 then
  begin
    if not mciGetErrorString(Result, @mciReturnStr[0], Length(mciReturnStr)) then
      mciReturnStr[0] := #0;
    ShowMessage('MCI Fehler %d (%s) nach Befehl "%s"', [Result, mciReturnStr, Command]);
  end;
end;

procedure TForm1.PlayFile(const FileName: string);
var
  MciReturn: string;
begin
  if MyMciSendString(Format('open "%s" alias %s wait', [FileName, MyAlias]), Self.Handle, MciReturn) = ERROR_SUCCESS then
  begin
    // numerisches Handle für diese Datei merken, falls man es für MciNotify braucht
    // MciHandle := StrToInt(MciReturn);
    MyMciSendString(Format('play %s notify', [MyAlias]), Self.Handle, MciReturn);

    // Vorzeitiges terminieren des Abspielvorgangs einfach per
    // MyMciSendString(Format('close %s', [MyAlias]), Self.Handle, MciReturn);
    // Analog für 'pause', 'resume', 'stop'...
    // 'status %s mode' liefert in MciReturn den aktuellen Zustand ('playing', 'paused', 'stopped')
  end;
end;

procedure TForm1.MciNotify(var Msg: TMessage);
begin
{ Wenn man einen MCI-Befehl mit dem "notify"-Flag startet, bekommt man hier zu bestimmten
  Ereignissen eine Nachricht.
    Msg.WParam = Flags (Typ der Nachricht)
    Msg.LParam = DeviceID/MciHandle (Sender der Nachricht)
  Play mit notify:
    MCI_NOTIFY_SUCCESSFUL = Die Datei wurde fertig abgespielt (egal ob mit oder ohne Pause)
    MCI_NOTIFY_ABORTED = es wurde ein Stop oder Close empfangen, bevor das Abspielen fertig war
    MCI_NOTIFY_SUPERSEDED = ein anderer Befehl (z.B. Pause) hat sich notify geschnappt und alle
                            folgenden Nachrichten beziehen sich deswegen auf den neuen Befehl
    MCI_NOTIFY_FAILURE = ein Fehler ist aufgetreten

  Andere Befehle (Pause, Resume, Play, Stop) senden in der Regel nur MCI_NOTIFY_SUCCESSFUL,
  wenn für sie das notify-Flag gesetzt wurde. }

  if Msg.WParam = MCI_NOTIFY_SUCCESSFUL then
    ShowMessage(Format('Vorgang für MciHandle %d wurde erfolgreich beendet', [Msg.LParam]))
  else if Msg.WParam = MCI_NOTIFY_ABORTED then
    ShowMessage(Format('Vorgang für MciHandle %d wurde abgebrochen', [Msg.LParam]));
end;