Einzelnen Beitrag anzeigen

s-off
(Gast)

n/a Beiträge
 
#15

Re: Parameterübergabe bei ShellExecute

  Alt 27. Sep 2007, 18:41
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;
  Mit Zitat antworten Zitat