Windows Media Player Version auslesen ?

[Cyberbob]

Delphi-Quellcode:

function GetFileVersion(Datei : TFileName) : String;
//Ermittelt die Programmversion
var
  VerInfoSize, VerValueSize, Dummy : DWord;
  VerInfo                          : Pointer;
  VerValue                         : PVSFixedFileInfo;
begin
  VerInfoSize := GetFileVersionInfoSize (PChar (Datei), Dummy);
  //Speicher anfordern
  GetMem (VerInfo, VerInfoSize);
  //Versionsinformationen der Datei abfragen
  GetFileVersionInfo (PChar (Datei), 0, VerInfoSize, VerInfo);
  VerQueryValue (VerInfo, '\', Pointer (VerValue), VerValueSize);
  with VerValue^ do
  begin
    //Einzellne Versionsschritte zusammenfassen
    result := IntTostr (dwFileVersionMS shr 16);
    result := result + '.' + IntTostr (dwFileVersionMS and $FFFF);
    result := result + '.' + IntTostr (dwFileVersionLS shr 16);
    result := result + '.' + IntTostr (dwFileVersionLS and $FFFF);
  end; {with - VerValue^}
  //Speicher Freigeben
  FreeMem (VerInfo, VerInfoSize);
end;

GetFileVersion(Dateiname);

Hiermit sollte es auch gehen. Musst halt den Pfad der Datei kennen.