Parameter übergeben

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

[DomPerle]

Vielen Dank für Eure Ratschläge. Leider erhielt ich aber nicht den gewünschten Erfolg.
Ich habe nun eine andere Lösung, nicht so elegant, aber die klappt.
mein Delphi-Programm:

procedure TForm3.Button3Click(Sender: TObject);
const
FN = 'C:\HDH\Prog.dat';
var
prog : String;
TextDatei: TextFile;
begin

Prog:= Form1.Programm;
ShowMessage(prog);

AssignFile(TextDatei, FN);
Rewrite(TextDatei);
Write(TextDatei, Prog);
CloseFile(TextDatei);

ShellExecute(0, nil,'cmd.exe', '/k C:\HDH\Transfer_TNC155.bat', nil, SW_SHOW);

end;

und hier mein Batch-File:

Echo off
CD\

if exist c:\HDH\99.txt del /Q c:\HDH\99.txt
SET file=C:\hdh\prog.dat

IF EXIST "%file%" GOTO Erstellen
IF NOT EXIST "%file%" GOTO Error

:Erstellen
FOR /f "delims=" %%f IN (%file%) DO (
Echo %%f
SET str=%%f
copy /Y C:\HDH\TNC155\%%f C:\HDH\99.txt
)
GOTO End

:Error
ECHO Datei existiert nicht
GOTO End

:End
exit

[KodeZwerg]

Warum kopierst Du nicht selber sondern gehst über ne Batch Datei?
Hier ein Beispiel:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
 var
   f: TSearchRec;
   Dir: string;
 begin
    if not SelectDirectory(Dir,widestring(Dir),Dir) then   Exit; // Quell-Verzeichnis
    FileMode:=0;
    if FindFirst(Dir+'\*.*',faAnyFile,f) = 0 then
    repeat
         try
          if (f.Attr and faDirectory ) < $00000008 then
          CopyFile(PChar(Dir+'\'+f.Name),PChar
 ('C:\Users\Tool\Desktop\test\new\'+f.Name),false); // Ziel-Verzeichnis
         except
          on e: exception do
            ShowMessage(E.Message);
         end;
    until findNext(f) <> 0
 end;

Ps: setz mal Deinen Code in [ DELPHI] hier der Code [ /DELPHI], dann schauts schöner aus.

[himitsu]

viele CopyFile oder ein SHFileOperation

Zitat:

aber die klappt

Sicher?
Also dein Programm weiß davon nichts.

PS: Rate mal, warum viele Funktionen ein Result besitzen, was man sogar auswerten kann?

Und dein ECHO Datei existiert nicht ist auch nicht hilfreich, da niemand das innerhalb der Millisekunde lesen kann, bevor es wieder weg ist.



Jupp, [DELPHI]...[/DELPHI] oder auch nur [CODE]..[/CODE] drumrum macht alles gleich viel besser lesbar