Parameterübergabe bei ShellExecute

[Jonelmeier]

Hallo!

Ich versuche grade eine exe zu starten (funktioniert wunderbar), und zwar mit folgendem Code:

Delphi-Quellcode:

parameter := '/parameter_eins=' + OpenDialogServer.FileName +
             ' /parameter_zwei=' + OpenDialogGame.FileName;
ShellExecute(Application.Handle,
                 'open',
                 'C:\Pfad\Zur\Datei.exe',
                 PChar(parameter),
                 'C:\Pfad\Zur\',
                 SW_SHOWNORMAL);

So, wenn jetzt aber die beiden Variablen OpenDialogServer.FileName und OpenDialogGame.FileName (sie enthalten Pfade zu zwei Textdateien) Leerzeichen enthalten, funktioniert das ganze nicht mehr. Die aufzurufende exe versucht dann, den Teil nach einem Leerzeichen als neuen Parameter zu interpretieren, was natürlich nicht sein soll...
Vielleicht hat jemand 'nen Tipp, wie ich es hin bekomme, das es auch mit Leerzeichen in den Pfaden funktioniert?!?
Wäre Dankbar!!!

(Ob ShellExecute oder CreateProcess richtiger ist mir im Moment erstmal egal :oops: :oops: )

Jonas aus Hamburg

[Tormentor32]

Setze das Ganze in Anführungszeichen, dann sollte es gehen.

Edit: Ich meine die Pfadangaben...

[dominikkv]

ersetz doch die leerzeichen (zB mit %20)
oder versuch mal den parameter mit "" einzurahmen

[Jonelmeier]

Habs ausprobiert mit /parameter_eins="C:\Pfad zur\Datei.txt" allerdings kommt dann bei der exe als wert für parameter_eins folgendes an: _C_\Pfad zur\Datei.exe_ womit es natürlich nichts anfangen kann...

[s-off]

Hallo,

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   sParameter: String;
   sFileName: String;

   Function QuotedStr(_sString: String): String;
   Begin
      Result := #034 + _sString + #034;
   End;

Begin
   sParameter := Format('/parameter_eins="%s" /parameter_zwei="%s"',
      [OpenDialogServer.FileName, OpenDialogGame.FileName]);
   sFileName := QuotedStr('C:\Programme\Test\Test.exe');
   ShellExecute(
      Application.Handle
      'open',
      PChar(sFileName),
      PChar(sParameter),
      PChar(ExtractFilePath(sFileName)),
      SW_SHOWNORMAL);
End;

Edit: neu formatiert

[Jonelmeier]

@s-off:

Nach der Methode bekomme ich aber immer noch, wenn ich C:\Pfad zur\Datei.txt übergebe, von der EXE die Meldung das es die übergebene Datei _C_\Pfad nicht gefunden wurde, also es wird immernoch an der Leerstelle abgeschnitten...
Liegt's vielleicht an der Umwandlung nach PChar?

[s-off]

Mein Fehler, probiers mal so:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   sParameter: String;
   sFileName: String;

   Function QuotedStr(_sString: String): String;
   Begin
      Result := #034 + _sString + #034;
   End;

Begin
   sParameter := Format('/parameter_eins="%s" /parameter_zwei="%s"',
      [OpenDialogServer.FileName, OpenDialogGame.FileName]);
   sFileName := 'C:\Programme\Test\Test.exe';
   ShellExecute(
      Application.Handle
      'open',
      PChar(QuotedStr(sFileName)),
      PChar(sParameter),
      PChar(QuotedStr(ExtractFilePath(sFileName))),
      SW_SHOWNORMAL);
End;

Kanns gerade net testen, darum :?

[Jonelmeier]

Ich bekomme immer noch den gleichen Fehler :oops: :oops: :cry:

Aber danke für deine Bemühungen bis jetzt!!!

[DeddyH]

Andere Idee: was passiert denn, wenn Du die Parameter zuerst über GetShortPathName in 8.3-Namen wandelst?

[s-off]

Zitat:

Zitat von Jonelmeier

Ich bekomme immer noch den gleichen Fehler :oops: :oops: :cry:

Da brauchst Du net rot zu werden; die Schuld liegt wahrscheinlich bei mir. Kann es nur so aus dem Gedächtnis schreiben, da ich im Moment kein Delphi zur Hand habe.

[Jonelmeier]

Hab mir GetShortPathName angeguckt. In Delphi soweit alles OK, Pfad wird richtig umgewandelt, der verkürzte Pfad stimmt zu 100% (über Start->Ausführen) führt er zum Ziel, die EXE meint aber trotzdem noch, das die Datei nicht existiert... Ich hab echt keine Ahnung warum, werd's wohl aufgeben müssen... :cry: :cry: :oops: :oops: :pale:

[s-off]

Moment mal,

welche Anwendung meint jetzt, dass die Exe nicht existiert?

1. Die Anwendung, aus der Du eine andere Anwendung mit ShellExecute startest?
2. Die Anwendung, die Du mit ShellExecute startest?

Wenn 2.:
Diese versucht dann ja wahrscheinlich, die in ParamStr(1) übergebene Exe zu starten, korrekt?
Du hast aber daran gedacht, dass vor dem Dateinamen auch noch etwas wie '/parameter_eins=' steht, und dass Du das berücksichtigen musst?

[Jonelmeier]

Also es ist so:

Ich habe eine Datei: C:\Programme\TrackmaniaServer\TrackmaniaServer.exe welche aus meiner Delphi Anwendung gestartet werden soll. Funktioniert ja wie gesagt auch wunderbar.
Diese TrackmaniaServer.exe erwartet jetzt zwei Parameter, welche die Pfade zu zwei Konfigurationsdateien enhalten. Ein kompletter funktionierender Aufruf würde wie folgt aussehen:
C:\Programme\TrackmaniaServer\TrackmaniaServer.exe /dedicated_cfg=C:\Programme\TrackmaniaServer\GameDa ta\Config\dedicated.cfg /game_settings=C:\Programme\TrackmaniaServer\GameDa ta\Tracks\MatchSettings\all_easy.txt
Das ganze funktioniert auch aus der Delphi Anwendung ganz prima. (Komplett ohne "" oder sonstiges, wie in meinem allerersten Post)

Wenn jetzt aber die Datei all_easy.txt zum Beispiel mein Match.txt heißt, funktioniert das ganze nicht mehr, weil TrackmaniaServer.exe denkt, bis zum mein wäre der Pfad für /game_settings und Match.txt wäre ein komplett neuer Parameter.

Wenn ich jetzt schreibe (durch ShellExecute generiere):
C:\Programme\TrackmaniaServer\TrackmaniaServer.exe /dedicated_cfg="C:\Programme\TrackmaniaServer\GameData\Config\dedi cated.cfg" /game_settings="C:\Programme\TrackmaniaServer\GameData\Tracks\Matc hSettings\all_easy.txt"
bekomme ich von TrackmaniaServer.exe die Meldung, das die Dateien _C_\Programme\TrackmaniaServer\GameData\Config\ded icated.cfg_ und _C_\Programme\TrackmaniaServer\GameData\Tracks\Mat chSettings\all_easy.txt_ nicht existieren.

Wenn ich die Pfade mit GetShortPathName bearbeite, bekomme ich einen folgenden Aufruf:
C:\Programme\TrackmaniaServer\TrackmaniaServer.exe /dedicated_cfg=C:\PROGRA~1\TRACKM~1\GameData\Config \DEDICA~1.CFG /game_settings=C:\PROGRA~1\TRACKM~1\GameData\Tracks \MATCHS~1\all_easy.txt
TrackmaniaServer.exe meint dazu, das C:\PROGRA~1\TRACKM~1\GameData\Config\DEDICA~1.CFG und C:\PROGRA~1\TRACKM~1\GameData\Tracks\MATCHS~1\all_ easy.txt nicht existieren. Die beiden Pfade in Ausführen eingetippt, führen aber zur richtigen Datei...

Ich hoffe ich konnte Licht in mein Gedankenwirwar bringen ;-)

Jonas

Achso: Die TrackmaniaServer.exe kommt nicht von mir...ist der dedicated Server zu dem Spiel Trackmania...

[SirThornberry]

Zitat:

Zitat von Jonelmeier

Habs ausprobiert mit /parameter_eins="C:\Pfad zur\Datei.txt" allerdings kommt dann bei der exe als wert für parameter_eins folgendes an: _C_\Pfad zur\Datei.exe_ womit es natürlich nichts anfangen kann...

so müsste es sein:
"/parameter_eins=C:\Pfad zur\Datei.txt"

[s-off]

Ok, dann ist alles klar.

Die Lösung hat SirThornberry ja bereits geschrieben; es muss das komplette Argument in "" gesetzt werden.

Das sieht dann so aus:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   sParameter: String;
   sFileName: String;

   Function QuotedStr(_sString: String): String;
   Begin
      Result := #034 + _sString + #034;
   End;

Begin
   sParameter := Format('"/parameter_eins=%s" "/parameter_zwei=%s"',
      [OpenDialogServer.FileName, OpenDialogGame.FileName]);
   sFileName := 'C:\Programme\Test\Test.exe';
   ShellExecute(
      Application.Handle
      'open',
      PChar(QuotedStr(sFileName)),
      PChar(sParameter),
      PChar(QuotedStr(ExtractFilePath(sFileName))),
      SW_SHOWNORMAL);
End;

[Jonelmeier]

Zitat:

Zitat von SirThornberry

so müsste es sein:
"/parameter_eins=C:\Pfad zur\Datei.txt"

Es wäre so schön gewesen! Aber dann sagt mir TrackmaniaServer.exe das die benötigten Parameter gar nicht übergeben wurden... :cry: :cry:

[SirThornberry]

sorry, aber dann taugt das programm nichts. Alternativ kannst du zu den langen Dateinamen welche ein Leerzeichen enthalten den kurzen Dateinamen ermitteln und diesen übergeben.

[Jonelmeier]

Zitat:

Zitat von SirThornberry

sorry, aber dann taugt das programm nichts.

Kann ich leider dann auch nichts für...

Zitat:

Zitat von SirThornberry

Alternativ kannst du zu den langen Dateinamen welche ein Leerzeichen enthalten den kurzen Dateinamen ermitteln und diesen übergeben.

Hättest du den Thread komplett gelesen, würdes du erkannt haben das das leider auch nicht funktionert! :-( Sorry, ist nicht böse gemeint!

[SirThornberry]

du hast recht, das hatte ich nicht gelesen :oops: Ich kann mir aber beim besten willen nicht vorstellen dass, das Programm die Meldung bringt wenn der Pfad korrekt ist. Hast du eventuell zu viele "\" etc. im Pfad das dort was schief gegangen ist? Oder hast du mal versucht was FileExists zurück gibt wenn du den Dateinamen mit kurzen Namen übergibst?

[Jonelmeier]

Die Dateien existieren zu 100% unter dem kurzen Namen, vorhin mit Start->Ausführen und jetzt nochmal mit FileExists überprüft. Muss an der Server.exe liegen, da ich die gleichen Meldungen bekomme, wenn ich es per Batchdatei auf die hier genannten Weisen ausprobiere.

Ich weiß echt nicht, was man da noch machen kann... :cry: ...naja...
Danke euch allen aber für eure super Hilfe!!! :thumb: