Befehlszeilenparameter übergeben

[JohannesK]

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 ??



JohannesK

[FriFra]

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).

[JohannesK]

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

JohannesK