--------------------------------
  iTunesɃt@CǉN
--------------------------------
http://www.nurs.or.jp/~calcium/


R}hCɎw肵t@CiTunes̃Cuɒǉ܂B񂾂B
ist@CւDrag&Dropłǁj
̂ϊNcores̒ɕ荞܂\B

iPod֓vCXgւǂ̂̂ق֗Ȃ̂ȁ[Ƃ
vǁAiTunes + iPod̑gݍ킹gƂȂ̂
ǂ֗Ȃ̂ς킩Ȃ肷㩁B

--------------
2005/10/29 16:30 ~XɋCÂčւBʽ޶
--------------

łɃ\[XtႦBőS(AddiTunes.dpr)

program AddiTunes;

{$APPTYPE CONSOLE}
uses
  ComObj, ActiveX;
var
  iTunes: OleVariant;
  Fname : WideString;
  i     : Integer;
begin
  if (ParamCount>=1) then
  begin
    CoInitialize(nil);
    try
      iTunes := CreateOleObject('iTunes.Application');
      for i:=1 to ParamCount do
      begin
        Fname  := ParamStr(i);
        iTunes.LibraryPlaylist.AddFile(Fname);
      end;
    finally
      CoUninitialize;
    end;
  end;
end.
