SelfDelete Funktion für Deinstallationen oder ähnliches

[Yakumo500]

Hi,

Ich habe mir eine Deinstallation geproggt und da bin ich auf das Problem gestoßen, dass die Deinstallation exe auch gelöscht werden muss.

Deshalb habe ich eine kleine Funktion geschrieben, die mithilfe einer bat Datei die Exe nach dem Beenden löscht.

Hier der Source:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellApi;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SelfDelete();
var TempDir: string;
    BatFile: TStringList;
begin
  TempDir := GetEnvironmentVariable('Temp');

  BatFile := TStringList.Create;
  BatFile.Add('ping -n 0127.0.0.1 > nul');
  BatFile.Add(':loop');
  BatFile.Add('del "' + Application.ExeName + '" > nul');
  BatFile.Add('if exist "' + Application.ExeName + '" goto loop');
  BatFile.Add('del "' + TempDir + 'selfdelete.bat' + '"');

  BatFile.SaveToFile(TempDir + 'selfdelete.bat');
  BatFile.Free;

  ShellExecute(Form1.Handle, nil, PChar(TempDir + 'selfdelete.bat'), nil, nil, SW_HIDE);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SelfDelete();
end;

end.

Ich hoffe es hilft euch!

[Luckie]

Warum pingst du den localhost an?

[Bernhard Geyer]

Und wieso lässt du das nicht Windows mit MoveFileEx für dich erledigen?

Zitat:

If dwFlags specifies MOVEFILE_DELAY_UNTIL_REBOOT and lpNewFileName is NULL, MoveFileEx registers the lpExistingFileName file to be deleted when the system restarts. If lpExistingFileName refers to a directory, the system removes the directory at restart only if the directory is empty.

[Meflin]

Zitat:

Zitat von Bernhard Geyer

Und wieso lässt du das nicht Windows mit MoveFileEx für dich erledigen?

Weil bat ohne Reboot auskommt?

[Bernhard Geyer]

Zitat:

Zitat von Meflin

Zitat:

Zitat von Bernhard Geyer

Und wieso lässt du das nicht Windows mit MoveFileEx für dich erledigen?

Weil bat ohne Reboot auskommt?

Ob der Anwender das Merkt. Und diese Lösung hat eine Restgefahr das der Virenscanner zuschlägt.

[Meflin]

Zitat:

Zitat von Bernhard Geyer

Ob der Anwender das Merkt.

In Zeiten von Ruhezustand und Desktop-Deckel-Schließern (Energiesparmodus) bleibt der Kram dann halt doch mal (mehrere) hundert Tage auf der Festplatte - ist ja auch nicht ganz der Sinn einer Deinstallation...

[Bernhard Geyer]

Zitat:

Zitat von Meflin

In Zeiten von Ruhezustand und Desktop-Deckel-Schließern (Energiesparmodus) bleibt der Kram dann halt doch mal (mehrere) hundert Tage auf der Festplatte ...

Wozu haben wir den den monatlichen MS-Patch-Day :mrgreen:. Ich glaube nicht das es irgendeine gepatchen Windows-PC gibt der länger als 1/4 Jahr seit seinem letzten Reboot läuft.