Управление Windows Media Player

procedure TForm1.Button1Click(Sender: TObject);
var
h:hwnd;
begin
h:=findwindow('WMPlayerApp',nil);
//sendmessage(h,wm_command,$4979,0);//Стоп
//sendmessage(h,wm_command,$4978,0);//Play/pause
//sendmessage(h,wm_command,$497B,0);//Следующая песня
//sendmessage(h,wm_command,$497A,0);//Предыдущая
//sendmessage(h,wm_command,$497D,0);//Промотать вперед
end;

HWND wnd;
 wnd = FindWindow(NULL, "Проигрыватель Windows Media");//получаем хендл главного окна
 SendMessage(wnd,WM_COMMAND,$4978,0);

AnsiString wmp =  "c:\\Program Files\\Windows Media Player\\wmplayer.exe";
AnsiString file =  "\"D:\\Музыка\\D.J. DADO - TWIN PEAKS THEME.MP3\"";
 
ShellExecute(NULL,"open",wmp.c_str(),file.c_str(),(ExtractFileDir(file)).c_str(),SW_RESTORE);

hp =FindWindowA("WMPlayerApp",NULL);//получаем хендл главного окна
if(!hp){ShowMessage("Не найден плейер");return;}
 
SendMessage(hp, WM_COMMAND, WMP_PLAY , NULL );

AnsiString wmp =  "c:\\Program Files\\Windows Media Player\\wmplayer.exe";
AnsiString list = "C:\\Users\\fujitsu\\Music\\Playlists\\Apocalyptica.wpl";
 
ShellExecute(NULL,"open",wmp.c_str(),list.c_str(),NULL,SW_RESTORE);

AnsiString wmp =  "C:\\Program Files\\Windows Media Player\\wmplayer.exe";
AnsiString list = "C:\\Documents and Settings\\Пользователь\\Мои документы\\Моя музыка\\Мои списки воспроизведения\\djdf.wpl";
 
ShellExecute(NULL,"open",wmp.c_str(),list.c_str(),NULL,SW_RESTORE);

AnsiString list = "\"C:\\Documents and Settings\\Пользователь\\Мои документы\\Моя музыка\\Мои списки воспроизведения\\djdf.wpl\"";