ShellExecute mit Leerzeichen

[H.Bothur]

[QUOTE=Achim Kalwa;1527915]

Zitat von H.Bothur:

Falls einer der Teil-Strings bereits ein Anführungszeichen oder den Backslash enthält, könnte es zu einem Problem kommen. Versuche mal

Delphi-Quellcode:

  FileName := TPath.Combine(OrdnerName, DateiName); // uses System.IOUtils;
  if Pos(' ', FileName) > 0 then
    FileName := AnsiQuotedString(FileName, #34);
  ShellExecute(...

Ergibt in FileName das gleiche Ergebnis - und leider auch den gleichen Fehler

Hans

[Achim Kalwa]

Zitat von H.Bothur:

Ergibt in FileName das gleiche Ergebnis - und leider auch den gleichen Fehler

Ob die Datei wirklich da ist und für das ausgeführte Programm erreichbar ist hast Du sicherlich schon überprüft (IDE läuft als Admin; E: ist ein Netzwerklaufwerk gemappt vom User usw.)

Kopiere doch mal beim Debuggen den Inhalt von FileName in die Zwischenablage, und verfüttere das an Windows Start -> Ausführen. Wenn da ebenfalls ein Fehler auftritt, dann gibt es die Datei wirklich nicht.

Ansonsten hilft jetzt nur noch die Glaskugel

[dstein]

evtl. hilft zusätzlich:

begin
if fileexist(FileName) then
begin
ShellExecute(0, 'open', PChar(FileName), NIL, NIL, SW_SHOW);
RaiseLastOSError;
end
else
... "irgend eine Antwort"..
end;

[himitsu]

ShellExecute

Parameter lpFile und lpDirectory sind die Datei bzw. das Verzeichnis.
Dort mit " würde bedeuten, dass diese " als Bestandteil des Namen betrachtet werden, was sie aber nicht sein dürfen.

Aber eine Datei als Parameter (lpParameters) an diese Anwendung (lpFile) übergeben ... dort muß natürlich mit " gearbeitet werden.
Dort können es mehrere Parameter sein und die " sagen dort, daß Jenes zu "einem" Parameter gehört.

[Delphi.Narium]

Wenn VLC der Standardplayer ist, dann ruf doch zum Test mit ShellExecute mal VLC auf und übergibt den Namen der abzuspielenden Datei als Parameter.

Delphi-Quellcode:

var
  ShellExError : Integer;
begin
  if FileExists(FileName) then begin
    ShellExError := ShellExecute(Application.Handle,Nil,PChar('VLC.exe'),PChar(FileName),Nil,SW_SHOW);
    if ShellExError < 32 then begin
      // Hier ist ein Fehler aufgetreten. Sinnvolle Fehlermeldung machen.
      // Siehe: https://learn.microsoft.com/de-de/windows/win32/api/shellapi/nf-shellapi-shellexecutea
    end;
  end else begin
    MessageDLG('Datei wurde nicht gefunden:' + sLineBreak + FileName, mtError, [mbOk], 0);
  end; 
end;

Ist VLC im Suchpfad von Windows? Wenn nein, im Aufruf von ShellExecute diesen mit angeben.

Bleibt das Problem dann immernoch bestehen?

Bezieht sich der Fehler 2 eigentlich auf das Nichtfinden der MP4-Datei oder eventuell auf das Nichtfinden des Players?

[H.Bothur]

Zitat von Delphi.Narium:

Wenn VLC der Standardplayer ist, dann ruf doch zum Test mit ShellExecute mal VLC auf und übergibt den Namen der abzuspielenden Datei als Parameter.

Ist VLC im Suchpfad von Windows? Wenn nein, im Aufruf von ShellExecute diesen mit angeben.

Bleibt das Problem dann immernoch bestehen?

Bezieht sich der Fehler 2 eigentlich auf das Nichtfinden der MP4-Datei oder eventuell auf das Nichtfinden des Players?

Guter Ansatz, also ....

nur vlc startet problemlos den Player

vlc e:\temp\friesland-haifischbecken.mp4 startet den Player mit dem Film / ist ja auch kein Leerzeichen

vlc e:\Video\2 Serien\Friesland-03-Klootschiessen.mp4 startet den Player, aber
Fehlermeldung "kann die Medienadresse 'file:///e:/video/2' nicht öffnen" - da stört also das Leerzeichen und es wird am Leerzeichen abgeschnitten

vlc "e:\Video\2 Serien\Friesland-03-Klootschiessen.mp4" startet den Player, aber
Fehlermeldung 'kann die Medienadresse 'file:///e:/video/2%20Serien\Friesland-03-Klootschiessen.mp4' - da wird das Leerzeichen in %20 umkodiert

wenn ich im Windows Explorer einen Doppelklick auf die Datei mache dann geht das aber - aber wieso bei Shellexecute bzw. ausführen (was ja das gleiche sein wird) dann nicht ?

Gruss
Hans

[himitsu]

NOCHMAL:

Beim Programm KEINE " (ebenso beim Arbeitsverzeichnis ... hier das letzte NIL)
aber in den Parametern MUSS es

ShellExecute(Application.Handle, nil, PChar('VLC.exe'), PChar('"' + FileName + '"'), nil, SW_SHOW);

[H.Bothur]

Das verstehe ich jetzt nicht: Ausführen sagt das des die Datei nicht finden kann ...

ich hatte gedacht (OK, das wird das Problem sein) das, wenn ich den Namen einer mp4-Datei übergebe, automatische der entsprechend verknüpfte MP4-Player - bei mir VLC - gestartet wird.
Das stimmt aber anscheinend gar nicht. Auf der anderen Seite will ich aber nicht den Player hart mit in shellexecute reinkopieren - kann ja sein das der Player sich mal ändert.

Was mache ich denn nun falsch ?

Gruss
Hans