iTunesの曲数の把握について

中谷 2011-01-12 17:50:22 No: 39813

お世話かけます。
iTunesのプレイリストの曲数を把握したいのですが、
例えば、ライブラリから"サザン"のみを抽出しても、
ライブラリ全体の件数が表示されてしまいます。
もちろん抽出したサザンの曲を再生していますので、
カレントトラックには、なっております。

抽出した曲のみの件数をどのように把握できるのか、
お分かりになりましたら、お手数をおかれ致しますが、
ご教授お願いします。

iTunesApp : Variant;

procedure TMainForm.FormCreate(Sender: TObject);
begin
iTunesApp :=CreateOleObject('iTunes.Application');
end;

procedure TMainForm.SpeedButton1Click(Sender: TObject);
begin

wwJ := iTunesApp.CurrentPlaylist.Tracks.Count;