ShellExecute

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

Nein Das war ein Beispiel um zu zeigen, das diese nicht ausgeführt werden kann, weil der Name falsch zusammen gesetzt wird.

Deine .Bat behält deinen gewünschten Namen (_DELETE_COPY_EXECUTE.bat).
Du kannst zur Kontrolle auch temporär dir die Zusammensetzung mal ausgeben lassen (hilft evtl. dabei das zu verstehen):

Delphi-Quellcode:

procedure TForm5.pnlUpdateMessageClick(Sender: TObject);
var
  ExecResult: Integer
begin
  try
    ShowMessage(ParamStr(0) + '_DELETE_COPY_EXECUTE.bat'); //nur zum evtl. besseren Verständnis, kann im eigentlichen Code nachher raus!
    ShowMessage(ExtractFilePath(ParamStr(0)) + '_DELETE_COPY_EXECUTE.bat'); //nur zum evtl. besseren Verständnis, kann im eigentlichen Code nachher raus!
    ExecResult := ShellExecute(0, 'open', 'cmd', PChar('/c ' + ExtractFilePath(ParamStr(0)) + '_DELETE_COPY_EXECUTE.bat'), nil, SW_SHOWNORMAL); //so wäre es richtig, der Dateiname bleibt "_DELETE_COPY_EXECUTE.bat"
    if ExecResult <= 32 then
      ShowMessage('Fehlercode: ' + IntToStr(ExecResult));
    ShowMessage('Alte Version gelöscht.');
  except
    ShowMessage('Fehler');
  end;
end;

[Der schöne Günther]

Ich will kein Schlauscheißer sein, aber auf lange Sicht wirst du nicht glücklich wenn sich die Fehleranalyse auf "Geht irgendwie" und "Geht irgendwie nicht" beschränkt. Speicher dir das ganze String-Gewurstel doch in einer extra Variable und nutze den Debugger. Dann kannst du dir den Inhalt der Variable anschauen und siehst wo das Problem ist.

[Kratos]

Ihr glaubt ja gar nicht wie verdammt bescheuert ich bin!
Ich hatte vor einiger Zeit auf einer anderen Platte ein Backup meines Projekts angelegt.
An meinem Backup arbeite ich ja aber nicht aktiv, sondern arbeite auf einer ganz anderen Partition. Ich hab die bat in meinen Backup-Ordner gelegt.
Oh my fcking god!

Es funktioniert jetzt


Ich bedanke mich dennoch bei allen für eure großartige Hilfe, besonders bei @Moombas.
Deine detailreiche Erklärung hat mich trotzdem weiter gebracht

VG Kratos

[Moombas]

Naja Detailreich fand ich sie nun nicht.

Generell kann ich dir bei soetwas nur empfehlen, wie es Günther schrieb: Schau dir das wo es nicht funktioniert im Debugger an und/oder gebe einfach mal aus (hier der Pfad+Dateiname), was du an eine Funktion übergibst (sofern generiert und nicht fix übergeben).

Dann wird man in der Regel schnell fündig wo der Hase im Pfeffer liegt.

[jaenicke]

Zitat von Kratos:

Ich hatte vor einiger Zeit auf einer anderen Platte ein Backup meines Projekts angelegt.
An meinem Backup arbeite ich ja aber nocht aktiv, sondern arbeite auf einer ganz anderen Partition.

Dafür gibt es Versionsverwaltungen wie Git oder SVN, dann braucht man kein Backup in Form von kopierten oder gezippten Quelltextverzeichnissen und man kann auch viel bequemer damit arbeiten...
https://entwickler-ecke.de/topic_Kur..._115462,0.html

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