Parameter übergeben

[DomPerle]

hei,
In meinem Programm rufe ich mit ShellEcecute ein Batch (*.BAT) auf. Diesem Batch möchte ich einen Programmnamen übergeben.
Hier mein Programm-Code:

procedure TForm3.Button3Click(Sender: TObject);
var
prog : String;
Programm: String;
begin
Prog := Form1.Programm; //Das Programm, das kopirt werden soll
ShowMessage(prog);

//Hier muß es irgendwie rein
ShellExecute(0, nil, 'cmd.exe', 'Transfer_TNC155.bat', nil, SW_SHOW);
end;


Und hier mein Batch Transfer_TNC155.bat:

Echo on
CD\
del /Q c:\HDH\99.txt
copy /Y C:\HDH\TNC155\Prog C:\HDH\99.txt // ... und da soll es kopiert werden

Wie kann ich Prog an den Batch übergeben??

[zeras]

Zitat von DomPerle:

hei,
In meinem Programm rufe ich mit ShellEcecute ein Batch (*.BAT) auf. Diesem Batch möchte ich einen Programmnamen übergeben.
Hier mein Programm-Code:

Delphi-Quellcode:

procedure TForm3.Button3Click(Sender: TObject);
var
prog : String;
Programm: String;
begin
Prog := Form1.Programm; //Das Programm, das kopirt werden soll
ShowMessage(prog);

//Hier muß es irgendwie rein
ShellExecute(0, nil, 'cmd.exe', 'Transfer_TNC155.bat hier_der_Pfad_wo_es_hin_soll', nil, SW_SHOW);  
end;

Und hier mein Batch Transfer_TNC155.bat:

Echo on
CD\
del /Q c:\HDH\99.txt
copy /Y C:\HDH\TNC155\Prog C:\HDH\99.txt %1// ... und da soll es kopiert werden

Wie kann ich Prog an den Batch übergeben??

So müsste das klappen. Gegebenenfalls den Pfadnamen in Anführungsstriche oder als 8.3

[jaenicke]

Das Problem ist doch vermutlich, dass es eine Fehlermeldung gibt, wenn man versucht 'Transfer_TNC155.bat ' + prog zu übergeben, oder?

Die Lösung ist einfach, die Meldung sagt ja auch schon, dass PChar und String nicht kompatibel sind, also muss man es umwandeln:
ShellExecute(0, nil, 'cmd.exe', PChar('Transfer_TNC155.bat "' + prog + '"'), nil, SW_SHOW);  
Nebenbei wäre es auch noch sinnvoll den Rückgabewert auszuwerten um eine passende Fehlermeldung anzuzeigen, wenn die Batchdatei nicht gestartet werden konnte.

[HolgerX]

Hmm..

Zitat:

ShellExecute(0, nil, 'cmd.exe', PChar('Transfer_TNC155.bat "' + prog + '"'), nil, SW_SHOW);

wird nicht funktionieren!!

es werden alle Parameter, also auch prog als Parameter von cmd.exe verwendet.
Somit ist es nicht möglich einen Parameter als Parameter des aufzurufenden Progs mitzugeben.

Mach einfach den direkten Aufruf deiner .bat:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Batch : string;
  Para : string;
begin
  Batch := ExtractFilePath(ParamStr(0)) + 'Test.bat';
  Para :='"HALLO"';

  ShellExecute(Application.Handle, nil, PChar(Batch), PChar(Para), nil, SW_SHOW);
end;

BAT und CMD werden von Windows automatisch mit CMD.EXE aufgerufen..

[jaenicke]

Zitat von HolgerX:

Zitat:

ShellExecute(0, nil, 'cmd.exe', PChar('Transfer_TNC155.bat "' + prog + '"'), nil, SW_SHOW);

wird nicht funktionieren!!

Stimmt, richtig wäre es so:
ShellExecute(0, nil, 'cmd.exe', PChar('/C Transfer_TNC155.bat "' + prog + '"'), nil, SW_SHOW);  
Dass da der Parameter für die Befehlszeile fehlte, hatte ich übersehen.

Aber der direkte Aufruf macht natürlich mehr Sinn, ich wollte das nur ohne weitere Änderungen korrigieren.

[himitsu]

Und bezüglich dem relativen Pfad ... das sollte besser auch gleich repariert werden.