Zitat von
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;
Das ist ja klasse. Jetzt muss ich nur noch den aktuell abgespielten Titel bekommen... Geht das evtl. auch über dieses OleObject?