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.