ShellExecute的问题

Question

我使用如下语句
      FileName := 'C:\1.mp3';
　　ShellExecute(0, 'open', PChar(FileName), nil, nil, sw_show);
只是把Windows Media Player打开而已，但我想要播放出来。该如何做？

Answer 1

ShellExecute(0, 'open', 'C:\Program Files\Windows Media Player\wmplayer.exe', 'c:\1.mp3', nil, sw_show);
Windows Media Player的路径可以由注册表取得
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MediaPlayer\Installation Directory]