Virtueller Klick auf fremdes Fenster

[toms]

Zitat von toms:

Der Shortcut für Start/Stop in ITunes ist die Leertaste.
Du kannst daher mal probieren, ein VK_SPACE der Anwendung zu senden.

Das funktioniert leider nicht...

Hab's mal so probiert und es scheint zu funktionieren:

Delphi-Quellcode:

uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  iTunesApp: OLEVariant;
begin
  // iTunes Objekt erzeugen
  iTunesApp := CreateOleObject('iTunes.Application');
  if not VarIsNull(iTunesApp) then
  begin
    iTunesApp.Play;
   //  iTunesApp.Pause;
   //  iTunesApp.Stop;
   //  iTunesApp.NextTrack;
   // am Ende...
    if not VarIsNull(iTunesApp) then
      iTunesApp := Unassigned;
  end;
end;