Parameter übergeben

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