Windows Media Player mit ShellExecute ausführen?

[OrNEC]

Hallo,

ich habe vor mittels ShellExecute den WMP ausführen und diesem eine mp3-Datei zum Abspielen übergeben. Nun wie starte ich mit ShellExecute den WMP? Gib es eine Verzeichnisvariable die weiß wo der WMP liegt, unabhängig von der Windows Version?

Danke!

[DeddyH]

Vielleicht hilft das hier: http://www.autoitscript.com/forum/to...n-path-of-wmp/

[EWeiss]

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

gruss

[DeddyH]

Naja, der Pfad steht dort aber auch nicht ;)

[OrNEC]

Ich glaube schon, hier -> "HKEY_LOCAL_MACHINE\Software\Microsoft\Multimedia\ WMPlayer\" Link

Wie kann ich nur den Pfad vervollständigen? Mit dem Laufwerk usw.. aktuell sieht es so aus:

Delphi-Quellcode:

%ProgramFiles(x86)%\Windows Media Player\wmplayer.exe

[DeddyH]

Delphi-Quellcode:

uses Registry;

function WMPPath: String;
var
  Reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create(KEY_READ);
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('SOFTWARE\Microsoft\Multimedia\WMPlayer', false) then
      begin
        Result := Reg.ReadString('Player.Path');
        Reg.CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;

Ggf. musst Du die enthaltenen Umgebungsvariablen noch auflösen.

[OrNEC]

Danke Dir!

Wie kann ich nun den Pfad vervollständigen? Mit dem Laufwerk usw.. aktuell sieht es so aus:

Delphi-Quellcode:

%ProgramFiles(x86)%\Windows Media Player\wmplayer.exe

Wieso gibt Microsoft eigentlich keinen vollständigen Pfad, was haben die %..% auf sich?

[DeddyH]

Das sind Umgebungsvariablen, Du kannst ja mal auf der Konsole mit "set" nachschauen, was es so alles gibt. Auflösen kannst Du die z.B. mit ExpandEnvironmentStrings oder mit dieser eigentlich veralteten Routine:

Delphi-Quellcode:

function ReplaceEnvironmentStrings(const APath: string): string;
begin
  Result := APath;
  SetLength(Result, MAX_PATH);
  if DoEnvironmentSubst(PChar(Result), Length(Result)) = 0 then
    begin
      Result := '';
      raise Exception.Create(SysErrorMessage(GetLastError));
    end;
  SetLength(Result, StrLen(PChar(Result)));
end;

Bei mir kommt dann "C:\Program Files (x86)\Windows Media Player\wmplayer.exe" heraus.

[OrNEC]

Wow... danke Dir! Jetzt funkt alles. :thumb:

[Redeemer]

Man muss zum Ausführen des WMP doch überhaupt keinen Pfad angeben...