ShellExecute

[Kratos]

Hallo Leute,

ich bin Delphi-Neuling und habe jetzt schon etliche Forenseiten durchforstet.

Ich möchte aus meinem delphi-Programm heraus eine .bat-Datei ausführen.
In dieser lösche, kopiere und führe ich jeweils eine Textdatei aus.
Das ganze soll über cmd laufen.
Wenn ich die .bat-Datei manuell ausführe, funktioniert alles wie gewünscht.
Aus delphi heraus, passiert nichts. Es bearbeitet meine Dateien nicht und gibt auch keinen Fehler aus.
Laut Debugger durchläuft es aber meine "ShellExecute"-Programmzeile.

Code:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
begin
  try
    ShellExecute(0, 'open', 'cmd', PChar('/c ' + (ParamStr(0) + '_DELETE_COPY_EXECUTE.bat')), nil, SW_SHOWNORMAL);
    ShowMessage('Alte Version gelöscht.');
  except
    ShowMessage('Fehler');
  end;
end;

Wo genau liegt mein Fehler?
Vielen Dank im Voraus für eure Mühen

VG Kratos

[Klaus01]

.. wo liegt denn das Batch file?

Welchen Wert spuckt denn shellExecute aus?

Grüße
Klaus

[Kratos]

@Klaus01

Das Batch file hab ich parallel zu meiner Programm-exe abgelegt, daher ParamStr .

Was meinst du mit Wert bezüglich ShellExecute?
Wo finde ich diesen Rückgabewert?^^


@TiGü

Danke dir. Ich werde es gleich mal versuchen.

[TiGü]

Zitat von Kratos:

Code:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
begin
  try
    ShellExecute(0, 'open', 'cmd', PChar('/c ' + (ParamStr(0) + '_DELETE_COPY_EXECUTE.bat')), nil, SW_SHOWNORMAL);
    ShowMessage('Alte Version gelöscht.');
  except
    ShowMessage('Fehler');
  end;
end;

Wo genau liegt mein Fehler?

Du wertest den Rückgabewert von ShellExecute nicht aus!

Delphi-Quellcode:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
var
  ExecResult: Integer
begin
  try
    ExecResult := ShellExecute(0, 'open', 'cmd', PChar('/c ' + (ParamStr(0) + '_DELETE_COPY_EXECUTE.bat')), nil, SW_SHOWNORMAL);
    if ExecResult <= 32 then
      ShowMessage('Fehlercode: ' + IntToStr(ExecResult));  
    ShowMessage('Alte Version gelöscht.');
  except
    ShowMessage('Fehler');
  end;
end;

Wenn jetzt ein Fehlercode angezeigt wird, kannst du von dort aus weitermachen.
Ich tippe ja auf Nummer 5 (SE_ERR_ACCESSDENIED).
Doku dazu: https://docs.microsoft.com/en-us/win...-shellexecutea

[Moombas]

Anmerkung: ParamStr(0) gibt einem doch folgendes aus (Pfad ist Beispielhaft): C:\PROGRAM FILES\BORLAND\DELPHI7\PROJECTS\PROJECT1.EXE

Somit kann er die Batch nicht ausführen, denn daraus würde sich ergeben:
(Pfad ist Beispielhaft) C:\PROGRAM FILES\BORLAND\DELPHI7\PROJECTS\PROJECT1.EXE_DELETE_COPY_EXECUTE.bat

Ersetze ParamStr(0) durch ExtractFilePath(ParamStr(0)).
Dann sollte es funktionieren.

Schöner:
Und versuche doch das, was du in der Batch-Datei machst im Delphi-Programm einzubauen.

[Kratos]

Also ersteinmal vielen lieben Dank für eure ganzen Tipps.

meine Prozedur sieht jetzt so aus:

Code:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
var
  ExecResult: Integer;
begin
  try
    ExecResult := ShellExecute(0, 'open', 'cmd', PChar('/c ' + ExtractFilePath(ParamStr(0) + '_DELETE_COPY_EXECUTE.bat')), nil, SW_SHOWNORMAL);
    ShowMessage(IntToStr(ExecResult));
  except
    ShowMessage('Fehler');
  end;
end;

Leider funktioniert es immer noch nicht.

@Klaus01
Der Rückgabewert beträgt 42.

@Moombas
Ich möchte später mein eigenes Programm schließen, die alte exe löschen, eine neue exe in den Ordner kopieren und anschließend wieder ausführen lassen.
Deswegen hatte ich mir gedacht, dass ich das ganze in eine batch-Datei auslagere und schon mal mit einfachen Textdateien diesen Vorgang übe.^^

[Moombas]

@Kratos du wendest es ja auch falsch an:

So wäre es richtig:

Delphi-Quellcode:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
var
  ExecResult: Integer;
begin
  try
    ExecResult := ShellExecute(0, 'open', 'cmd', PChar('/c ' + ExtractFilePath(ParamStr(0)) + '_DELETE_COPY_EXECUTE.bat'), nil, SW_SHOWNORMAL);
    ShowMessage(IntToStr(ExecResult));
  except
    ShowMessage('Fehler');
  end;
end;

[Kratos]

@Moombas

Ich habe deine Klammeränderung übernommen.
Jedoch wird die .bat anscheinend immer noch nicht ausgeführt.

Es ist doch richtig, dass meine bat wie folgt lautet:
Programm.exe_DELETE_COPY_EXECUTE.bat?

[Moombas]

Zitat von Kratos:

@Moombas
Ich möchte später mein eigenes Programm schließen, die alte exe löschen, eine neue exe in den Ordner kopieren und anschließend wieder ausführen lassen.
Deswegen hatte ich mir gedacht, dass ich das ganze in eine batch-Datei auslagere und schon mal mit einfachen Textdateien diesen Vorgang übe.^^

@Kratos: Da dein Problem behoben zu sein scheint, möchte ich nochmal hier drauf eingehen (s.o.).
Das hört sich nach einer Update-Routine an.
Klingt evtl. etwas merkwürdig aber ich würde es (gerade zum Lernen) an deiner Stelle auch in Delphi schreiben.
Insbesondere wenn solche Update-Routinen später etwas umfangreicher werden, z.B. mit der Einbindung einer Möglichkeit des Rollback, falls das Update fehlschlägt etc. wird das in einer Batch nachher schnell unübersichtlich oder auch nicht praktikabel.

[Kratos]

@jaenicke

Git und SVN sind mir bekannt, auch wenn ich diese noch nicht genutzt habe.
Danke für deinen Tipp, nun scheint es wohl doch an der Zeit zu sein, dass ich mich näher damit beschäftige.^^

@Moombas

Du liegts richtig. Ich wollte eine abgespeckte Update-Routine implementieren.
Wenn ich dies ebenfalls in delphi programmieren soll, sollte man dies gleich mit in das Hauptprogramm mit rein nehmen oder sollte ich ein weiteres Programm schreiben, welches ich aus meinem Hauptprogramm heraus starte?