Virtueller Klick auf fremdes Fenster

[toms]

Das geht so:

Delphi-Quellcode:

function getCurrentTitle(iTunesApp: OleVariant) : string;
begin
  Result := iTunesApp.CurrentStreamTitle;
  if Result = '' then
    Result := iTunesApp.CurrentTrack.Name;
end;

Aufruf der Funktion:

Label1.Caption := getCurrentTitle(iTunesApp);