[DCC Error] uMain.pas(52): E2003 Undeclared identifier: 'CreateOLEObject'
Delphi-Quellcode:
function GetCurrentITunesSong(): String;
var
iTunesApp, iTunesCurrentTrack: OLEVariant;
begin
Result := 'iTunes closed';
if (FindWindow('iTunes', nil) <> 0) then
begin
iTunesApp := CreateOLEObject('iTunes.Application'); // iTunes Objekt erzeugen
if (not VarIsNull(iTunesApp)) then
begin
iTunesCurrentTrack := iTunesApp.CurrentTrack;
if (not VarIsNull(iTunesCurrentTrack)) then
begin
Result := iTunesApp.CurrentTrack.Artist +' - '+ iTunesApp.CurrentTrack.Name;
iTunesCurrentTrack := Unassigned;
end;
iTunesApp := Unassigned;
end;
end;
end;
Original Code, implementiert. Einziger Fehler: OLEObject kann nicht erzeugt werden. Warum?
Meine Lösung:
Nat. sollte man ComObj implementieren und desweiteren mit Delphi 2007 auch Variants als VarTyp verwenden.