mciSendString отловить момент остановки воспроизведения

[Sahan911]

Доброго времени суток!
Мне необходимо отловить событие остановки воспроизведения файла, открытого при помощи функции mciSendString. Пожалуйста, не надо говорить мне про комманду "Status Trek Mode", так как она лишь определяет состояние проигрывания, но не ловит события. Также не надо мне говорить про комманду "Wait", т.к. она передает управление потоку только после завершения воспроизведения.
Я пробовал создавать отдельный поток и вызывать в нём комманду с ожиданием:

type
  TSoundThread = class(TThread)
  private
    Name: String;
    Playing: PBoolean; 
  protected
    procedure Execute; override;
  end;

implementation

procedure Open;
begin
  if not Opened then 
    mciSendString(PChar('Open ' + FileName + ' Type ' + DeviceName +
         ' Alias ' + FName + ' Wait'), nil, 0, 0);
  Opened := True;
end;

procedure Play;
if not Played and Opened and (Mode = smPlay) then
    begin
      SoundThread := TSoundThread.Create(True);
      with SoundThread do
      begin;
        FreeOnTerminate := True;
        Priority := tpNormal;
        Name := FName;
        Played := True;
        Playing := @Played;
      end;
    end;
end;

procedure TSoundThread.Execute;
begin
  mciSendString(PChar('Play ' + Name + ' Wait'), nil, 0, 0);
  if Playing^ then
    Playing^ := False;
end;

Где:
FileName, FName, DeviceName: String - имя файла/ его псевдоним/ название устройства вывода
Opened, Played: Boolean - открыт или не открыт файл/ идет проигрывание или нет.

Но в другом потоке Mci не распознает открытого мною файла, как - будто я его не открывал, а также не реагирует на изменение скорости/громкости и других параметров.

Есть еще вариант, и он, поидее, должен работать, но мне кажется, что это слишком нерациональный метод поскольку слишком много запросов в единицу времени:

...

function GetMode: Boolean;
var
  Buf: array [1..8] of Char;
  Return: String[8];
begin
  Result := False;
  if Opened then
  begin
    mciSendString(PChar('Status ' + FName + ' ' + 'Mode' + ' Wait'), @Buf, 8, 0);
    Return := AnsiUpperCase(Trim(Buf));
    if Return = 'STOPPED' then
      Result := False;
    if Return = 'PLAYING' then
      Result := True;  
  end;
end;

procedure TimerOnTimer; //interval = 1;
begin
  if  not GetMode then
    SendMessage ... ;
end;

Это хороший метод, или кто-нибудь может предложить более рациональный подход? Заранее спасибо за ответы.

P.S может кто-нибудь знает как можно определить с помощью msiSendString открыт ли CD-ROM (не открыть или закрыть, а именно определить открыт-ли он) независимо от того, есть ли там диск или его там нет. И пожалуйста без ответов типа "Взгляни на CD - Rom "

[volvo877]

Про флаг notify, который отсылает в заданное (четвертым параметром mciSendString) окно уведомление MM_MCINOTIFY при завершении операции - можно напомнить?