Управление 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);

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

AnsiString Za =  Disk+"\\Program Files\\Windows Media Player\\wmplayer.exe";
   ShellExecute(NULL,NULL,Za.c_str(),NULL,NULL,SW_RESTORE); 
HWND wnd;
 wnd =FindWindowA("WMPlayerApp",NULL);//получаем хендл главного окна
 SendMessage(wnd,WM_COMMAND,0x4978,0);

AnsiString Za =  "C:\\Program Files\\Windows Media Player\\wmplayer.exe";
   ShellExecute(NULL,NULL,Za.c_str(),NULL,NULL,SW_RESTORE);
HWND wnd;
::Sleep(900);
 wnd =FindWindowA("WMPlayerApp",NULL);//получаем хендл главного окна
 SendMessage(wnd,WM_COMMAND,0x4978,0);

#define WMP_PLAY           0x4978
#define WMP_STOP           0x4979
#define WMP_PAUSE          0x4978
#define WMP_LAST           0x497A
#define WMP_NEXT           0x497B
#define WMP_VOLU           0x497F
#define WMP_VOLD           0x4980
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
HWND hp;
 
hp =FindWindowA("WMPlayerApp",NULL);//получаем хендл главного окна
if(!hp){ShowMessage("Не найден плейер");return;}
 
SendMessage(hp, WM_COMMAND, WMP_PLAY , NULL );
}
//---------------------------------------------------------------------------