Datei umbennen und gleichzeitig ausführen

[thomas2009]

Hi

kann jemand mir sagen, warum manch mal klappt und manch mal nicht ?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not FileExists(ExtractFilePath(Application.ExeName)+'blabla.exe') then
begin
RenameFile('blabla.exe', 'haha.exe');
shellexecute(1,'open','"haha.exe"','','',SW_show);
end;
end;

[Luckie]

Würdest du die Rückgabewerte auswerten, könntest du dir die Frage selber beantworten. So können wir auch nur raten.

[rollstuhlfahrer]

Noch was, was mir auffällt: Als Handle setzt man normalerweise nicht 1, sondern 0 oder das wirkliche Handle (.Handle der Form, also Self.Handle).

Bernhard

[alfold]

Zitat von thomas2009:

Hi

kann jemand mir sagen, warum manch mal klappt und manch mal nicht ?

Und was hat das ganze in einem Timer zu suchen?
alfold

[blauweiss]

Aufgabe: Suchen Sie den Unterschied in der Komposition des Dateinamens in den beiden Varianten
A)
if not FileExists(ExtractFilePath(Application.ExeName)+'blabla.exe') then
B)
RenameFile('blabla.exe', 'haha.exe');

[Brainstalker]

Was für ein Sinn hat es eine nicht vorhandene Datei umzubenennen?

[Bummi]

[blauweiss]

Zitat von Brainstalker:

Was für ein Sinn hat es eine nicht vorhandene Datei umzubenennen?

Stimmt, das kommt noch hinzu. Stammt der Code aus einem Lehrbuch ? Falscher Code im falschen Konzept in schlechter Formatierung auf 5 Zeilen komprimiert zur prägnanten Veranschaulichung von Fehlerredundanz.

Redundante Grüße
blauweiss

[rollstuhlfahrer]

So und um das hier mal in geregelte Bahnen zu bringen, ist der nächste, der antwortet der TE.

Bernhard

[Satty67]

Das ganze könnte sogar sinnvoll sein (wenn man die Fehler korrigiert).

Immer wenn eine (wichtige) Anwendung "haha.exe" nicht mehr existiert (gelöscht wurde), wird sie durch "blabla.exe" (Backup/Update) ersetzt und neu gestartet.

Dazu müsste das FileExists aber "haha.exe" statt "blabla.exe" prüfen.

Zwei sinnvoll benannte lokale Variablen für die beiden Dateipfade würde da helfen, nicht durcheinander zu kommen.