Einzelnen Beitrag anzeigen

s-off
(Gast)

n/a Beiträge
 
#7

Re: Parameterübergabe bei ShellExecute

  Alt 27. Sep 2007, 15:32
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
  Mit Zitat antworten Zitat