Überflüssige Dateien finden und löschen

[XeRo]

Hier nun mein "Clean UP XP".
Dieses Programm sucht nach überflüssigen Dateien und listed sie auf.
Dann können Sie entscheiden, welche Dateien gelöscht werden sollen und welche nicht.

AHTUNG: NUR UNTER XP GETESTED!!! :firejump:
WICHTIG: UNBEDINGT README-DATEI LESEN!!!

Ich würde gern mal eure Meinung zu dem Programm hören.
Man könnte es ja auch ausbessern oder vervollständigen...

Die Suche der Überflüssigen Dateien funktioniert nach den Suchkriterien des PC-Praxis...




Sagt mir halt was ihr davon hält. :duck:




+++Verbesserte Version+++

[Luckie]

Ok. Here we go again...

Während des Suchvorganges reagiert das Programm nicht mehr.
Beende ich das Programm über das Kreuz vom fenster mit den gefundenen Dateien, wird nur das Fenster geschlossen, der Prozess läuft weiter. Mit dem "Beenden"-Button geht es.
Was ist das für ein seltsames Verhalten, wenn ich das Fenster maximieren will? Was soll der Blödsinn? Und vor allem, wie hast du das hinbekommen?

Wie viele Programme von dir kommen heute noch zum Testen? Ich bin gerade richtig warm geworden.

[mirage228]

Zitat:

Zitat von Luckie

Was ist das für ein seltsames Verhalten, wenn ich das Fenster maximieren will? Was soll der Blödsinn? Und vor allem, wie hast du das hinbekommen?

Hm.. verhält sich beim maximieren über den Button genauso, wie mein Turbo Pascal 7 :/

EDIT:
schau mal, was dein proggi bei mir aus meine Windows Verzeichnis löschen will:

s.Anhang:


EDIT2:
Dein Programm hatte nach dem Suchvorgang eine Speicherauslastung von 152 MB :shock:
Zum Glück hab ich 1024 MB RAM + 1024 MB Virutell...

[mandumoal]

So_geht_das_nicht! :cyclops:

[Luckie]

Geil. @mandumoal was wird bei dir in der vierten und sechsten Spalte angezeigt?

Und wenn ich auf "Maximieren" klicke, dann erwarte ich das genau das passiert. Es heißt ja "Maximieren" und nicht "Verschiebe das Fenster in die linke obere Ecke des Desktops". :evil:

[APP]

Hallo,

ich habe mir Deinen Code nur mal auf die Schnelle angeschaut,

Delphi-Quellcode:

LoeschListe:=TStringList.Create;

wird nie mehr Freigegeben (LoeschListe.Free).

Damit Dein Programm auf Usereingaben besser reagiert, würde ich Dir
empfehlen, die Procedure SucheDateien in einen Thread auszulagern.

[Luckie]

Zitat:

Zitat von APP

Hallo,

ich habe mir Deinen Code nur mal auf die Schnelle angeschaut,

Delphi-Quellcode:

LoeschListe:=TStringList.Create;

wird nie mehr Freigegeben (LoeschListe.Free).

Damit Dein Programm auf Usereingaben besser reagiert, würde ich Dir
empfehlen, die Procedure SucheDateien in einen Thread auszulagern.

Spielt im Endeffekt keine Rolle. Da wenn der Prozess endet, der belegte Speicher Windows wieder zur Verfügung steht.

[XeRo]

So:

Das sich das Programm nicht maximieren lässt ligt einfach daran, dass Form1.AutoSize:=True;()
Das das Programm während dem Suchforgang nicht reagiert, liegt daran, dass es gerade in einer Suchschleife befindet.
Das das Programm sich nicht über "X" schließen lässt hab ich geändert.
Das das Programm so viel Arbeitsspeicher benötigt, sollte auch nicht mehr der Fall sein.

Wichtig: Extra um das löschen von Daten die man noch brauch zu verhindern, lasse ich den benutzer aussuchen, welche Daten gelöscht werden sollen und welche nicht (man ist ja nicht blöd :nerd: )

Danke für die schnelle Antwort...weiß jetzt woran ich noch arbeiten muss....WEITER SO!

[Matze]

Ich finde das Programm sehr gut gelungen!

Nur sollte es die ganze Festplatte durchsuchen. ;)

[Luckie]

BTW: Was passiert bei Windows Installationen, die nicht auf C:\ sind? :roll:

Und zum Design verliere ich mal keine Worte....