Einheitliche MediaPlayer Steuerung

[toms]

Zitat:

Delphi-Quellcode:

var
  wnd: HWND;
  LpARAM: LongInt;
begin
  wnd := FindWindow('wxWindowClassNR','VLC media player');
  if wnd <> 0 then
  begin
    lParam := MakeLong(0, MapVirtualKey(VK_SPACE, 0));
    PostMessage(WND, WM_KEYDOWN, VK_SPACE, lParam);
    PostMessage(WND, WM_KEYUP, VK_SPACE, lParam or $C0000000);
  end;
end;

Funktioniert denn dieser Code nicht? Bei mir hat er funktioniert.