1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  windows,
  WMPLib_TLB in '..\..\..\Imports\WMPLib_TLB.pas';

var
  wmp:TWindowsMediaPlayer;
  h:hWnd;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  CoInitialize(nil);
  h := FindWindow('WMPlayerApp', 'Windows Media Player');
  wmp.CreateParented(h);
  CoUnInitialize;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var 
  wmp:TWindowsMediaPlayer; 
  h:hWnd; 

begin 
  { TODO -oUser -cConsole Main : Hier Code einfügen } 
  CoInitialize(nil); 
  h := FindWindow('WMPlayerApp', 'Windows Media Player'); 
  // wmp.CreateParented(h); 
  // vielleicht so?
  wmp := TWindowsMediaPlayer.CreateParented(h); 
  CoUnInitialize; 
end.                    

1:

writeln(wmp.versioninfo); // = 11.0.5721.5230"                    

1:

writeln(wmp.currentMedia.name);                    

1:
2:
3:

Exception EAccessViolation in Modul Project1.exe bei 0005BEB8.
Zugriffsverletzung bei Adresse 0045BEB8 in Modul 'Project1.exe'. Lesen von Adres
se 00000000.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

program Project2;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  iTunesLib_TLB in '..\..\..\Imports\iTunesLib_TLB.pas';

var
  itunes : iitunes;
  vol:integer;

begin
  { TODO -oUser -cConsole Main : Hier Code einfügen }
  CoInitialize(nil);
  iTunes := COitunesapp.Create;

  if ParamCount > 0 then
    begin
      if paramstr(1) = '-playpause' then
        itunes.PlayPause
      else if paramstr(1) = '-stop' then
        itunes.Stop
      else if paramstr(1) = '-next' then
        itunes.NextTrack
      else if paramstr(1) = '-previous' then
        itunes.PreviousTrack
      else if paramstr(1) = '-quit' then
        itunes.Quit
      else if paramstr(1) = '-rand' then
        begin
          if itunes.CurrentPlaylist.Shuffle = false then
            itunes.CurrentPlaylist.Shuffle := true
          else
            itunes.CurrentPlaylist.Shuffle := false;
        end
      else if (paramstr(1) = '-repeat') AND (paramcount > 1)  then
        begin
          if paramstr(2) = '-N' then
            itunes.CurrentPlaylist.SongRepeat := 0;
          if paramstr(2) = '-S' then
            itunes.CurrentPlaylist.SongRepeat := 1;
          if paramstr(2) = '-P' then
            itunes.CurrentPlaylist.SongRepeat := 2;
        end
      else if (paramstr(1) = '-volume') AND (paramcount > 1) then
        begin
          vol := itunes.SoundVolume;
          if paramstr(2) = '+' then
            inc(vol);
          if paramstr(2) = '-' then
            dec(vol);
          if vol > 100 then vol := 100;
          if vol <  0  then vol := 0;
          itunes.SoundVolume := vol;
        end
      else if paramstr(1) = '-mute' then
        begin
          if itunes.Mute = false then
            itunes.Mute := true
          else
            itunes.Mute := false;
        end
      else if paramstr(1) = '-current' then
        begin
          writeln(itunes.CurrentTrack.Name);
        end;
    end;

  CoUnInitialize;
end.