Delphi-PRAXiS - Delphi Befehlszeilenparameter übergeben

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)

- - Delphi Befehlszeilenparameter übergeben (https://www.delphipraxis.net/9651-befehlszeilenparameter-uebergeben.html)

Befehlszeilenparameter übergeben

Hallo,

ich möchte innerhalb von Visual-Basic eine Druckroutine unter Delphi aufrufen. Dabei sollen mehrere Parameter im Programmaufruf als String bzw. als Integer übergeben werden.

Wie sieht bei dieser Konstruktion die Übergabe der Parameter an das Delphi-Programm aus ??

:wiejetzt:

JohannesK

Re: Befehlszeilenparameter übergeben

Du kannst Dein Delphi Programm ganz normal über ShellExecute (shell32.dll) aufrufen. Die VB eignen Aufruffunktionen taugen nicht viel...

Code:

			Declare Function ShellEx Lib "shell32.dll" Alias "ShellExecuteA" (Byval

hwnd As Long,Byval lpOperation As String,Byval lpFile As String,Byval

lpParameters As String,Byval lpDirctory As String, Byval nShowCmd As Long)

As Long

In Delphi gibt es dann den ParamStr. Wobei ParamStr(0) = kompletter Pfad der Programmdatei ist.
ParamStr(1) ... ParamStr(n) beinhalten die eigentlichen Parameter.
Wenn Du Parameter mit Leerzeichen übergeben willst, dann musst Du diese in "" setztn, da diese ansonsten in einzelne Parmeter aufgeteilt würden.
Grundsätzlich sind alle Parameter Strings, du kannst die Strings aber z.B. "1" mit StrToInt("1") -> 1 umwandeln (oder besser StrToInfDef("1",0) -> 1 ; um Exceptions zu vermeiden).

Re: Befehlszeilenparameter übergeben

Danke für den Tip, ich werde es testen bzw. implementieren.

JohannesK