Связывание shellexecute и музыкального файла

[Алексей_2012]

Здравствуйте, возможно ли такое, чтобы при вызове shellexecute открывался какой-то файл и воспроизводилась музыка через tmediaplayer, а при закрытии этого файла музыка исчезала? Проблема в исчезании музыки, есть ли доступное решение этого вопроса?

кстати, вот код

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var s:string;
begin
  if Msg.HotKey = id1 then // если была нажата клавиша F!. то вызываем справку
  begin
  s:=ExtractFilePath(ParamStr(0))+'spr.htm';
  if FileExists(s) then
    ShellExecute(Handle, nil, PChar(s), nil, nil, SW_SHOWNORMAL)
    else begin
      ShowMessage('Файл справки не обнаружен!');
      Exit;
    end;
     s:=ExtractFilePath(ParamStr(0))+'sound1.wav';
      if FileExists(s) then
      begin
       MediaPlayer1.FileName:=s;
       MediaPlayer1.Open;
       MediaPlayer1.Play;
      end;
  end;
end;

[Алексей_2012]

то есть если spr.htm закрыт, то выполнить mediaplayer1.stop

[Stilet]

Есть. Запускать через CreateProcess() или ShellExecuteEx() но в дополнительном потоке. Там же WaitForSingleObject() ждать пока запущенное не закроется, и после этого останавливать музню. Еще раз повторю: Это стоит делать в дополнительнои потоке, чтоб основной не замерз и музня не прервалась, пока поток ждет закрытия запущенного.

[Алексей_2012]

а как это реализовать? просто можно добавить кнопке, но автоматика всегда лучше

[Stilet]

А вот смотри:http://www.programmersforum.ru/showthread.php?t=134154
Тут красиво и лаконично пример сделан.