Hallo Zusammen,

ich habe eine Anwendung, welche sich selber über eine Art Liveupdate selber aktualisiert, sprich sich selber nach dem Beenden überschreibt.

Bisher habe ich den Dateiaustaiusch über einen Aufruf einer BATCH Datei (welche so lange in einer Schleife läuft bis die aktuelle Anwendung geschlossen ist) über ShellExecute gestartet. Leider funktioniert der Batch unter WIN 7 64 BIT nicht.

Die Suche nach einer Alternative war bisher erfolglos.
Hat jemand eine Idee/Tipp, wie ich das Problem so lösen kann, dass es unter win 7 32 Bit genau so wie unter 64 Bit funktioniert ?

Freue mich auf Anregungen.

Was funktioniert denn nicht? Zeig doch mal die Batch-Datei.

Ich habe in naher Zukunft etwas Ähnliches vor, daher habe ich mir schon ein paar Gedanken dazu gemacht, aber noch nichts davon umgesetzt. Meine Idee ist ein kleines Hilfsprogramm statt einer Batch. Dies wird aufgerufen mit einem Kommandozeilen-Parameter (entweder das Fensterhandle des Hauptfensters oder evtl. noch besser mit dem Prozesshandle). Es kann dann abwarten, bis entweder das Fensterhandle nicht mehr gültig ist oder WaitForSingleObject WAIT_OBJECT_0 zurückgibt, je nachdem, was ich da letztendlich übergeben werde. Anschließend kann die neue Version rüberkopiert und gestartet werden.

Ich kann mich Uwe nur anschließen: Ohne die Batch zu sehen, kann man nur die Glaskugel befragen, die aber auch nur Nebel zeigen wird...

MfG Dalai

Ich kann nur hoffen, dass hier nicht wieder Dienste erstellt werden. Das ist offensichtlich üblich bei größeren Programmen. Wenn das aber jeder macht, hat man 1000 Dienste und der Rechner ist nur noch am Prüfen, ob nicht ein Update möglich wäre.
Ich schreibe gerade an einem Vista Rechner, wo nicht viele Programme installiert sind, aber Dienste gibt es 6 komplette Seiten in der Systemsteuerung unter Dienste.

Hallo,
die Batch ist wie folgt aufgebaut, als Parameter %1 wird der aktuelle Pfad der Anwendnung übergeben, kopieren wird in einem Unterverzeichnis ausgeführt


@echo off

set application=Application.exe

:s
del %1%application%
if exist %1%application% goto s

copy %application %1%application%
pause
del %application%

cd %1
%application%
Exit


@hatte wohl einen Fehler im Aufruf Shellexecute,
aktuell funktioniert es, zumindest die Batch alleine. Vielleicht kanns dann doch noch einer brauchen....

Ähm, ja, so kann da "kaum etwas" funktionieren. Es fehlen Anführungszeichen um die Pfade, die Lösch- und Kopierversuche können Rückfragen provozieren, und außerdem sollte man sich überlegen, ob zwischen den Löschversuchen nicht eine kleine Verzögerung eingebaut werden sollte.

Hier mal mein Versuch:

markieren

Code:

@echo off

set application=Application.exe

:s
del /F "%~1\%application%"
ping -n 1 127.0.0.1 > NUL
if exist "%~1\%application%" goto s

copy /Y "%application%" "%~1\%application%" > NUL
del /F "%application%"

cd "%~1"
start "" "%application%"

Ist aber sicher immer noch nicht optimal; die letzte Löschanweisung kann "irgendwas" löschen, weil kein absoluter Pfad angegeben ist.

MfG Dalai

Für diese Aufgabe gibt es den Registry-Schlüssel RUNONCE:

http://support.microsoft.com/kb/137367/de
.
http://technet.microsoft.com/en-us/l.../dd346765.aspx

http://www.swissdelphicenter.ch/torr...de.php?id=1157

zusammenfalten · markieren

Delphi-Quellcode:

 {
There's a RunOnce key in the registry.
When a user logs on, the programs in the run-once list are run just once,
and then the entries will be removed.
The "runonce" key is normally used by setup programs to install
software after a machine has been rebooted.
}

{
Jede Anwendung, die im Schlüssel RunOnce aufgeführt ist, wird
beim nächsten Windowsstart ausgeführt und anschliessend wieder
aus der Registry entfernt. Betrifft Anwendungen, die nur einmal
mit Windows gestartet werden sollen. Normalerweise wird dieser Schlüssel
von Setup Programmen genutzt, um nach einem Neustart mit der Installation
fortzufahren.
}


// Add the application to the registry...
// Anwendung in die Registry aufnehmen...

procedure DoAppToRunOnce(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

// Check if the application is in the registry...
// Prüfen, ob Anwendung in der Registry vorhanden ist...

function IsAppInRunOnce(RunName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);
    Result := ValueExists(RunName);
    CloseKey;
    Free;
  end;
end;

// Remove the application from the registry...
// Anwendung aus der Registry entfernen...

procedure DelAppFromRunOnce(RunName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
    if ValueExists(RunName) then DeleteValue(RunName);
    CloseKey;
    Free;
  end;
end;

{
  Applications under the key "Run" will be executed
  each time the user logs on.
{

{
  Jede Anwendung, die im Schlüssel Run aufgeführt ist, wird beim
  jedem Windowsstart ausgeführt. Betrifft Anwendungen, die immer
  mit Windows gestartet werden sollen...
}


// Add the application to the registry...
// Anwendung in die Registry aufnehmen...

procedure DoAppToRun(RunName, AppName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    WriteString(RunName, AppName);
    CloseKey;
    Free;
  end;
end;

// Check if the application is in the registry...
// Prüfen, ob Anwendung in der Registry vorhanden ist...

function IsAppInRun(RunName: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
    Result := ValueExists(RunName);
    CloseKey;
    Free;
  end;
end;

// Remove the application from the registry...
// Anwendung aus der Registry entfernen...

procedure DelAppFromRun(RunName: string);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
    if ValueExists(RunName) then DeleteValue(RunName);
    CloseKey;
    Free;
  end;
end;

// Examples, Beispiele

// Add app, Anwendung aufnehmen...
DoAppToRun('Programm', 'C:\Programs\XYZ\Program.exe');

// Is app there ? Ist Anwendung vorhanden?
if IsAppInRun('Programm') then...

// Remove app, Anwendung entfernen
DelAppFromRun('Programm');

Ich benutze dafür das eigene Programm. Ich kann ja die eigene .exe umbenennen, dann die neue dort hinkopieren, und dann die neue starten und die alte umbenannte löschen.

Umgesetzt habe ich das hier:
http://www.delphipraxis.net/139102-s...-projekte.html

Zitat von hathor:

Für diese Aufgabe gibt es den Registry-Schlüssel RUNONCE:

Jein. RunOnce ist für Dinge geeignet, die einen Systemneustart brauchen, bevor sie ausgeführt werden sollen/können. Für ein simples Ersetzen einer einzelnen Anwendungsdatei im laufenden Betrieb ist ein Systemneustart ein bisschen übertrieben, nicht?

MfG Dalai