AAARGH! Dateien/Ordner löschen (Deinstallations-Routine)

[SearchBot]

Tach,

ich krieg ne Krise! Nun schon über 6 Stunden versuche ich einen Ordner mit ca. 5 Unterordnern und einigen Dateien darin zu löschen (deinstallieren).

Dazu erstelle ich eine Datei, in der alle Dateien und Ordner in diesem Format aufgeliestet sind:

C:\Ordner\Datei.exe
C:\Ordner\Subordner\datei2.zip
*C:\Ordner\Subordner
*C:\Ordner

Dann habe ich versucht unter winXP diese Liste als stringList abzuarbeiten

Delphi-Quellcode:

for i:=0 to sl.count-1 do deleteFile(sl[i]);

Natürlich mit dem kleinen Unterschied, daß die Zeilen mit dem * die Ordner sind, die ich mit rmdir() entfernen will. ICh habs auch schon mit RemoveDirectory (oder so ähnlich).

Nachdem es mit der kompletten Zeile nicht gefunzt hat, hab ich das dann zerlegt und die dateien einzeln im Ornder gelöscht und die Ordner dann mit:

Delphi-Quellcode:

chdir(pfad);
chdir('..');
rmdir(subordner);

entfernt...
Das hat noch am Besten geklappt, aber dann hat winXP/Delphi sich ständig geweigert, die Datei.exe zu löschen...


Dann hab ich was gelesen von Zeitproblemen, daß die Dateien nicht entfernt werden...

In den obigen Versuchen blieb immerwieder ein leerer Ordner über oder die .exe (wobei die .exe nicht ausgeführt wird, sie ist also eine ganz normale Datei).

Auch Versuche, evtl. Zeitprobleme beim Löschvorgang zu überwinden mit sowas:

Delphi-Quellcode:

    if not sysutils.deletefile(sl[i]) then begin
       argh:=0;
       repeat
        deleteFile(sl[i]);
        sleep(250);
        inc(argh);
       until not fileExists(sl[i]) or (argh>50);

scheiterten.

Es bleiben immerwieder einzelne Dateien übrig, die trotz Kommando partout nicht gelöscht werden. Ich schnapp gleich ab!

Zuletzt hab ichs so versucht:

Delphi-Quellcode:

    FileOP.Wnd:=0;
    FileOP.wFunc:=FO_DELETE;
    FileOP.pTo:=nil;
    FileOP.fFlags:=FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION or FOF_SILENT;
    FileOP.fAnyOperationsAborted:=False;
    FileOP.hNameMappings:=nil;

  for i:=0 to sl.count-1 do begin
   if sl[i][1]='*' then begin
    pfad:=copy(sl[i],2,length(sl[i]));
    FileOP.pFrom:=pchar(pfad);
   end else 
    FileOP.pFrom:=pchar(sl[i]);
   SHFileOperation(FileOP);
  end;

Da hat es dann funktioniert. 1x. Dann wieder nicht.

AAAAAARRHRGRGHRH! *kotz*
Ich rast gleich aus.

Hat mal jemand eine Lösung für den *#@&%!!! Oder bin ich zu blöd?

[Sharky]

Zitat:

Zitat von SearchBot

... ich krieg ne Krise! ...

Hai SearchBot,

auch wenn es sicher blöde ist eine Krise zu bekommen möchte ich Dich trotzdem bitten deinem Thread einen ordentlichen Titel zu geben. Danke.

Zitat:

AAAAAARRHRGRGHRH! *kotz*

Aber doch nicht in der DP. Wer soll da denn sauber machen?

[himitsu]

.pFrom und . pTo wollen eine Dateiliste, wo jeder dater per #0 voneinander getrennt und die Liste per #0#0 abgeschlossen ist ... dieses wird aber im MSDN erwähnt und in den viiiieeelen Threads zu diesem Thema wird das auch ständig gesagt.
also z.B. so:

Delphi-Quellcode:

FileOP.pFrom:=pchar(sl[i] + #0);

Außerdem kannst du nicht einfach so die aktive Anwendung löschen, aber wie es dennoch geht, wird z.B. hier in DP auch mehrfach erwähnt.

Und das deleteFile mit 'nem Stern, als Kenzeichnung für irgendwas, was es nicht kennt, nichts anfangen kann, sollte wohl auch klar sein ... dachte ich zumindestens -.-''


Ganz genau durchgelesen hab'sch mir diese Schweinerrei nicht, und blöd genug um hier alle Lösungen frei Haus zu liefern, bin'sch och noch nich ... ach ja, ich mach nicht sauber :warn:

[SearchBot]

Okok,
ich wisch hier ja schon sauber.
Pardon.
Es war spät und ich am rotieren, da wirds einem ja schwindlig und dann fällts halt ins offene Fenster und das dann halt grad die DP. Sorry.

*wischwisch*

@Himitsu:
Natürlich enferne ich vor der Übergabe an rmDir das Sternchen. Das ist für mich zum erkennen, daß jetzt ein Ordner und keine Datei kommt.

Ok, das mit der #0 hab ich übersehn. Macht das denn nicht schon pchar()?

Ich lösche keine aktive Anwendung. Ich erstelle aus Anwendung1 vorher eine Kopie in den Temp-Ordner, wo auch der Script hinkommt. Dann starte ich die Kopie mit shellexecute und terminiere Anwendung1 (mit halt; geht es besser).

Seltsamerweise ist Anwendung1 beim Löschen, obwohl terminiert, immernoch aktiv...

Ich habe da Code gefunden,
der funzt eigentlich gut, außer daß mir dann gesagt wird, Anwendung1 sei aktiv - danach ist sie aber dann doch weg. Fehlalarm?!

[himitsu]

Zitat:

Zitat von SearchBot

Ok, das mit der #0 hab ich übersehn. Macht das denn nicht schon pchar()?

PChar fügt nur ein #0 hinten an, aber es wird #0#0 als Listenabschluß benötigt ;)

Zitat:

Zitat von SearchBot

der funzt eigentlich gut, außer daß mir dann gesagt wird, Anwendung1 sei aktiv - danach ist sie aber dann doch weg. Fehlalarm?!

wer/was sagt das?

[SearchBot]

Das sagt der Löschdialog:
Anwendung1 kann nicht gelöscht werden.
Dann werden mir noch ein paar Hinweise gegeben, woran es wohl liegen mag.
'In Verwendung, Zugriff verweigert...

Muß ich nochmal genau hingucken...

Dann klick ich ok... und später ist dann Anwendung1 doch weg.