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