Shellexecute

[Capa]

Hi,
Wie kann ich Eine Datei starten und die hauptdatei schliessen OHNE das die
hauptdatei noch inuse ist. Habs mit Shellexecute versucht aber da tut er die
hauptdatei noch benutzen, den ich kann die datei nicht löschen.

Das ganze ist ein updateprogramm wo die project1.exe eine update.exe aufruft
die project2.exe die geladen wurde und im temp ordner liegt soll dann die
project1.exe ersetzen allerdings ist die project1.exe noch in benutzung
da ich ja die update.exe noch offen hab. erst wenn ich die update.exe beende
und sie nochmal manuell aufrufe funktioniert das mit dem ersetzen.

Kann mir da vielleicht einer weiterhelfen ?

Mfg Capa

[DeddyH]

Wenn die alte Version die Update.exe aufruft, kann sie sich doch anschließend beenden. Die Update.exe wartet dann darauf, dass das Programm geschlossen wurde und ersetzt es dann durch die neue Version.

[Capa]

das hab ich ja versucht aber ein einfaches close oder terminate scheint nicht zu helfen
die project1.exe ist immernoch inuse und kann von der update.exe nicht überschrieben werden.

Delphi-Quellcode:

          try
            ShellExecute(0, nil, PChar(ExtractFilePath(paramstr(0))+'temp\update.exe'), nil, nil, SW_Normal);
          except
            ShowMessage('Update fehlgeschlagen!'+#10+#13+'Konnte Update-Datei nicht finden!');
          end;
          Application.Terminate;

so rufe ich immo die datei auf und beende das programm

[WM_CLOSE]

Hast du es mal außerhalb des Debuggers probiert? Oder hast du evtl keine Schreibrechte(Vista/7)?

Ansonsten könnte es sein, dass ShellExecute das startende Programm als ParentProcess verwendet.
Wenn dem so ist könnte man evtl mit CreateProcess der Sache näher kommen.
Prüfen sollte man das mit dem ProcessExplorer können.

Benutzt du zufällig den Unlocker? Der zeigt namlich das mit dem Handle verknüpfte Programm an.

[Neumann]

Hallo,
solche Sachen kann man mit AutoIt-Scripten gut lösen. Sachen wie Dateien ersetzen,umbenennen, Archive entpacken usw sind mit ein paar Zeilen Code hinzubekommen, wenn nötig auch mit graphischer Benutzeroberfläche.

Habe mir schon einige für mich sehr praktische Tools gebastelt; z.B. ein Fernwartungsprogramm auf VNC Basis (nur neue Oberfläche mit unserem Firmenlogo) Automatisierung für Ressourcen-Compiler, Sicherung von Firebird Datenbanken sowie Rebuild für Firebird-Datenbanken (macht eine Datensicherung, dann Shutdown der Datenbank, nennt die alte Datenbankdatei um und baut die Datenbank aus der Sicherung wieder auf).

Gruß

Ralf

[himitsu]

ShellExecute wird im Falle eines Fehler mit der eventuellen Zieldatei garantiert keine Exception werfen.
Try-Except ist alles komplett fehl am Platz.
> Stattdessen gibt diese Funktion den "Erfolgsbericht" als Result zurück, welches man also auswerten sollte.


Ja, auch ShellExecute könnte eine Exception werfen, aber wenn, dann lag es an einem fehlerhaften Aufruf, wie z.B. einem ungültigen Pointer/String ... also wenn es da doch mal knallt, dann lag es an einem Bediehnungsfehler/Programmierfehler und keiner zu erwartenden Ausnahmebehandlung.
> Try-Except bleibt also falsch und es würde in soeinem Fall die eigentliche Fehlerursache sträflichst verfälschen.