Windows Media Player Version auslesen ?

[taktaky]

hallo

mit dem Code unten können wir DirectX version auslesen

Delphi-Quellcode:

function GetDirectXVersion(out Major, Minor: Byte): boolean;
var
  Reg: TRegistry;
  Version: array [0..1] of Cardinal;
begin
  Result := False;

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\Microsoft\DirectX', False) then
    begin
      Result := Reg.ReadBinaryData('InstalledVersion', Version, SizeOf(Version)) = SizeOf(Version);
      Major := HiByte(HiWord((Version[0])));
      Minor := HiByte(HiWord((Version[1])));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Gibt es ein Code, die Windows Media Player Version zeigt oder auslesen kann?

Gruss