Forum: Win32/Win64 API (native code)
Delphi
by toms,
17. Jan 2007
Das geht so:
function getCurrentTitle(iTunesApp: OleVariant) : string;
begin
Result := iTunesApp.CurrentStreamTitle;
if Result = '' then
Result := iTunesApp.CurrentTrack.Name;
end;
Aufruf der Funktion:
Forum: Win32/Win64 API (native code)
Delphi
by toms,
17. Jan 2007
Das funktioniert leider nicht...
Hab's mal so probiert und es scheint zu funktionieren:
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
iTunesApp: OLEVariant;
begin
Forum: Win32/Win64 API (native code)
Delphi
by toms,
17. Jan 2007
Der Shortcut für Start/Stop in ITunes ist die Leertaste.
Du kannst daher mal probieren, ein VK_SPACE der Anwendung zu senden.