Einzelnen Beitrag anzeigen

Benutzerbild von bitsetter
bitsetter

Registriert seit: 17. Jan 2007
1.169 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Einheitliche MediaPlayer Steuerung

  Alt 28. Jan 2008, 11:55
Hallo,

hast du es nun schon mal mit keybd_event versucht?
Delphi-Quellcode:
var
  C: Char;
  wnd: HWND;
begin
  C := 'O';
  wnd:= FindWindow('wxWindowClassNR', 'VLC media player');
  if Wnd > 0 then
  begin
    if SetForeGroundWindow(Wnd) then
    begin
      keybd_event(VK_CONTROL, 0, 0, 0);
      keybd_event(VkKeyScan(C), 0, 0, 0);
      keybd_event(VkKeyScan(C), 0, KEYEVENTF_KEYUP, 0);
      keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
    end;
  end
  else
   MessageDlg('Fenster nicht gefunden', mtError, [mbOk], 0);
Damit kannst du schon eher einen richtigen Tastendruck simulieren.
Gruß bitsetter
"Viele Wege führen nach Rom"
Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
  Mit Zitat antworten Zitat