模拟按键???(30分)

把window media player置為當前窗體,并給它發一個組合鍵ctrl+r(暫停),但是它反應???

procedure TForm1.Button15Click(Sender: TObject);
var
h:thandle;
begin
H := FindWindow(nil, 'Windows Media Player');
if H > 0 then
begin
SetForegroundWindow(H);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), 0, 0);
keybd_event(Ord('R'), MapVirtualKey(Ord('R'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
end;
end;

等待中!!!!!!

我试了你的程序，只错了一个地方，可以达到目的，这个错误就是window media player的暂停键是CTRL+P!把ord('r')改为ord('p')就ok了.

接受答案了.