Eine exe löscht sich selbst!

**AlexII**

Hallo ich hab folgenden Code gefunden, eine exe Datei bzw. Programm löscht sich selbst. Ich selber verstehe den Code nicht, deswegen frage ich was hält ihr davon? Wird wirklich alles gelöscht?

zusammenfalten · markieren

Delphi-Quellcode:

			procedure SelfEfface;

var

 F: Textfile;

begin

 AssignFile(F,Changefileext(Paramstr(0),'.bat'));

 Rewrite(F);

 Writeln(F,':1');

 Writeln(F, Format('Erase "%s"',[Paramstr(0)]));

 Writeln(F, Format('If exist "%s" Goto 1',[Paramstr(0)]));

 Writeln(F, Format('Erase "%s"',[ChangeFileExt(Paramstr(0),'.bat')]));

 CloseFile(F);

 WinExec(PChar(ChangeFileExt(Paramstr(0),'.bat')),SW_HIDE);

 Halt;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 SelfEfface;

end;

**mkinzler**

Es wird eine .bat erzeugt dann wird die bat gestartet und das Programm beendet. Die Batch welche versucht solange die Exe zu löschen, bis das erfolgreich ist. Anschliessend löscht sie sich selber.

**AlexII**

Dann kann man den Code ruhig verwenden, wie ich verstehe? Ich hab aber gelesen, dass man das nie hin bekommt, aber es geht doch.

**mkinzler**

Eine Exe kann sich ja auch nicht selber löschen, über den Umweg der batch geht es aber.

**AlexII**

Ja direkt nicht, ist klar, aber indirekt doch.

**Bernhard Geyer**

Diese Lösung schläg aber auch fehle wenn die Exe in Verzeichnissen mit beschränkten Zugriff liegt (C:\Programme\...). Dann nützt dir auch eine Batch-Datei nichts.

**AlexII**

Kann man die Funktion vielleicht erweitern, dass sie in allen Verzeichnissen gut funktioniert?

**mkinzler**

Nein, weil das Problem nicht am Tool liegt, sondern an den Rechten des angemeldeten Benutzers auf das Verzeichnis, in dem die Anwendung liegt

**AlexII**

Welche Fehlermeldung kommt denn? Hab XP und bei mir geht's überall.

Da wird bestimmt gefragt, ob man die bat Datei ausführen soll oder nicht, oder doch nicht? Wenn ja einfach erlauben und die bat erledigt ihre Sache, oder?

**API**

Hi, die .bat könnte auch ins temp-Verzeichnis geschrieben werden.

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  ShellAPI;

procedure DeleteSelf;

function GetTmpDir: string;

  var

    pc: PChar;

  begin

    pc := StrAlloc(MAX_PATH + 1);

    GetTempPath(MAX_PATH, pc);

    Result := string(pc);

    StrDispose(pc);

  end;

  function GetTmpFileName(ext: string): string;

  var

    pc: PChar;

  begin

    pc := StrAlloc(MAX_PATH + 1);

    GetTempFileName(PChar(GetTmpDir), 'DeleteSelf', 0, pc);

    Result := string(pc);

    Result := ChangeFileExt(Result, ext);

    StrDispose(pc);

  end;

var

  BatchFile: TStringList;

  BatchFileName: string;

begin

  BatchFileName := GetTmpFileName('.bat');

  FileSetAttr(ParamStr(0), 0);

  BatchFile := TStringList.Create;

  with BatchFile do

  begin

    try

      Add('@echo off');

      Add(':retry');

      Add(Format('Erase "%s"', [ParamStr(0)]));

      Add(Format('If exist "%s" Goto retry', [ParamStr(0)]));

      Add(Format('Erase "%s"', [BatchFileName]));

      SaveToFile(BatchFileName);

      ShellExecute(0, 'Open', PChar(BatchFileName), nil, nil, SW_HIDE);

    finally

      BatchFile.Free;

    end;

    Halt;

  end;

end;

Eine exe löscht sich selbst!

Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Re: Eine exe löscht sich selbst!

Forumregeln

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#2 Re: Eine exe löscht sich selbst! 13. Sep 2008, 11:57 Es wird eine .bat erzeugt dann wird die bat gestartet und das Programm beendet. Die Batch welche versucht solange die Exe zu löschen, bis das erfolgreich ist. Anschliessend löscht sie sich selber. Markus Kinzler
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#3 Re: Eine exe löscht sich selbst! 13. Sep 2008, 12:01 Dann kann man den Code ruhig verwenden, wie ich verstehe? Ich hab aber gelesen, dass man das nie hin bekommt, aber es geht doch.
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#4 Re: Eine exe löscht sich selbst! 13. Sep 2008, 12:03 Eine Exe kann sich ja auch nicht selber löschen, über den Umweg der batch geht es aber. Markus Kinzler
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#5 Re: Eine exe löscht sich selbst! 13. Sep 2008, 12:09 Ja direkt nicht, ist klar, aber indirekt doch.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#6 Re: Eine exe löscht sich selbst! 13. Sep 2008, 13:27 Diese Lösung schläg aber auch fehle wenn die Exe in Verzeichnissen mit beschränkten Zugriff liegt (C:\Programme\...). Dann nützt dir auch eine Batch-Datei nichts. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#7 Re: Eine exe löscht sich selbst! 13. Sep 2008, 13:37 Kann man die Funktion vielleicht erweitern, dass sie in allen Verzeichnissen gut funktioniert?
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#8 Re: Eine exe löscht sich selbst! 13. Sep 2008, 13:39 Nein, weil das Problem nicht am Tool liegt, sondern an den Rechten des angemeldeten Benutzers auf das Verzeichnis, in dem die Anwendung liegt Markus Kinzler
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#9 Re: Eine exe löscht sich selbst! 13. Sep 2008, 13:44 Welche Fehlermeldung kommt denn? Hab XP und bei mir geht's überall. Da wird bestimmt gefragt, ob man die bat Datei ausführen soll oder nicht, oder doch nicht? Wenn ja einfach erlauben und die bat erledigt ihre Sache, oder?
	Zitat