Delphi Cleaner 1.4 [Update!] 2000/XP/Vista

[Go2EITS]

Delphi Cleaner (C) Go2EITS - Freeware -
Das Programm läuft unter Windows 2000, XP und Vista!

Delphi Cleaner 1.4 ist da!
Update vom 18.09.2007

Vorab: Besten Dank an alle User, die mit Ihrer Hilfe zum Gelingen diese Programmes beigetragen haben!

Das Cleaner Tool für Delphi Programmierer.
Das Programm löscht "überflüssige" Dateien von Delphi-Programmierern und sorgt für ein schnelleres Betriebssystem, bietet ein Backup für die zu löschenden Dateien und sorgt für mehr Übersicht und "saubere" Verzeichnisse. Einge User konnten tausende von Dateien (Ein User 12.000!) finden und diese gefahrlos beseitigen. Ab der Version 1.2 Build 6 läuft das Programm auch vom Stick/CD/Diskette. Das Programm ist ideal für die "Bart-Rettungs-CD" und als Ergänzung zu normalen Cleanern gedacht.
Eine Besonderheit sei zu erwähnen, von der das Programm sich gegenüber anderen Programmen hervorhebt: Bei Bak-Dateien jedoch löscht das Programm nur BAK-Dateien mit Textinhalten. Binäre BAK-Dateien, wie z. B. die von Corel Draw oder BAK-Dateien, die vom System erstellt wurden, werden nicht gelöscht.

Übersicht:

• >>Gestartet werden kann das Programm:
• von einer CD, Stick oder Festplatte.

• Folgende Dateien mit den Suffixen werden angeboten:
• *.~*, *.dof, *.ddp,*.bak, *.drc, *.dsk
  
  >> Mit der Suchmöglichkeit auf:
• Eigenem Projektpfad
• einem Laufwerk oder auf
• allen Laufwerken
  Das Ergebnis der Suche wird mit der Anzahl der gefundenen Files und der Größe in KB/MB honoriert.
  
  >>Dabei kann man die gefunden Dateien
• anwählen
• abwählen
• invertieren
  
  >>und vor dem Löschen der gefundenen Dateien diese in ein
• Backupverzeichnis sichern, sowie ein
• Backupverzeichnis öffnen und ein
• Backupverzeichnis löschen.
  
  >>Weiteres steht ein
• Logfile zur Verfügung
  
  >> Und das Programm kann man auch im Hintergrund ausführen:
• Batchmodus: Mit dem Parameter -Silent wird das Programm im Hintergrund ausgeführt.

Zusätzliche Optionen:
- Alle gefundenen Dateien können zum Löschen in einer Liste an- bzw. abgewählt werden.
- Alle markierten Dateien können im Backupverzeichnis gesichert werden.
- Das Backupverzeichnis kann vom Programm aus angesehen werden.
- Gesperrte Dateien werden automatisch bei Systemneustart gelöscht.
- Logdatei kann erstellt und aufgerufen werden.

Backup:
Das Backup wird im Verzeichnis des Programmes angelegt.
Unter Programmpath\Backup\ stehen die Backups mit den Dateien von den gesicherten Laufwerken.


Kleinigkeiten:
- Kleine Exe
- Keine Registryeinträge
- Codeoptimiert mit TurboDelphi
- Sowie viele Verbesserungen, die mit Eurer Hilfe in das Programm einflossen.

Haftungsausschluss:
Das Programm habe ich gründlich getestet. Fehler kann ich jedoch nicht ausschließen.
Ich hafte nicht für Schäden, die direkt oder indirekt durch den Gebrauch der Software entstehen können.

Vorschläge zur Verbesserung des Programmes sind erwünscht!
Viel Vergnügen
Go2EITS

[Go2EITS]

Noch jemand der in einer VM Umgebung und XP Probleme hat?
Trage ich mal in ersten Beitrag rein, dass es unter VM vorerst nicht geht.
Und bestimmt war der Datenträger auch nicht beschreibbar, von dem Du mein Programm gestartet hast, stimmts?

@Sunlight7
Alles habe ich noch nicht gemacht!
Die Menueeinträge sind z. B. noch während der Suche an.
Aber nett, dass Du es probierst.

@Balu der Bär
Danke für die Info Aber nehme noch einmal die obige Version, wenn du magst. Ich habe keinen Fehler unter Windows 2000 gefunden, ich habe es so gemacht wie Du. Ich probiere es später unter XP nochmal.

Beste Grüße
Go2EITS

[Balu der Bär]

Zitat von Go2EITS:

Und bestimmt war der Datenträger auch nicht beschreibbar, von dem Du mein Programm gestartet hast, stimmts?

Natürlich ist der Datenträger beschreibbar.

[Sunlight7]

Hallo Go2EITS

Hab mal rumprobiert...

Ein Fehler: .BAK werden nicht gefunden (egal ob Pfad oder komplette suche)!

Welche Dateien suchst Du wenn *.~* angeklickt wurde?
Diese fehlen leider in der Liste: *.~pa, *.~df die nicht: *.~pas, *.dfm
Diese sind zwar auch nicht in der Liste, aber ich meine, die gehören da auch nicht hin: *.~dc, *.~bpl
Das mit dem Ordner setzen, wenn man einen eigenen Pfad sucht hast Du leider vergessen.

Noch ein paar Kleinigkeiten:

Beim klicken im Menu auf Backup die Untereinträge setzen, damit man nicht gefragt wird, ob man das Backup löschen will wenn keines da ist.

Log Datei:
Programm gestartet: 17:43:03
Suche gestartet : 17:43:08
Suche gestartet : 17:43:27
Suche gestartet : 17:43:54
Suche gestartet : 17:44:06
Suche gestartet : 17:44:41
Suche gestartet : 17:44:47
Suche beendet : 17:44:48
Kleiner Fehler: Bei suche mit eigenem Pfad: Suche beendet fehlt dann.

Schönheitsfehler: Schreibschutz bei Diskette funktioniert, "Log-Datei erstellen" sollte aber nicht angeklickt werden können.

ProgressBar funkt in XP, nur wenn man im Hauptverzeichnis nur 3 Verzeichnisse hat, dann ist nicht viel Anzeigemöglichkeit von .Max da, aber das ist nicht so schlimm.
Das mit ALT+F4 funkt, hast doch ein Herz für ALT+F4 schließer.

Eine Anregung für's Menü: Ich persönlich finde es schrecklich, wenn man zB. auf "Update?" klickt und schon gehts ins Netz.
Da sollte man den Nutzer vorher sagen wohin es geht, und fragen, ob man darf.
Zusätzlich sehe ich es lieber, wenn beim klick auf ein Menü erst ein Untermenü erscheint.


Wenn Du mal Zeit hast: Die Ränder der ListBox gleichmäßig verteilen

Edit: Nachtrag zum Silent Mode:
"Wollen Sie die markierten Files wirklich löschen?"
Da mag ich nicht auf ja klicken, weil ich nicht weiß, was markiert ist
Da könnte man eine Liste hinzufügen, in etwa:

Delphi Cleaner 1.3 hat folgende Dateien gefunden:

4 x *.~pas
3 x *.~fdm
...
Möchten Sie diese Dateien wirklich löschen?
[Ja][Nein][Weiß nicht]

Falls man weiß nicht klickt wird das Fenster angezeigt.

[Go2EITS]

Neue Version online im ersten Beitrag!

================================================== ============
Version: 1.3 Build 2 vom 20.10.2006
================================================== ============
- Das Statuspanel durch ein normales Panel erstetzt. Jetzt wird auch unter XP der Zustand des Programmes angezeigt.
- Anzeige, wie lange die Suche gedauert hat.
- Dauer der Suche wird geloggt.
- Anzeige Betriebssystem
- Anzeige, ob das Programm von einem schreibgeschützten Datenträger
gestartet wurde.
- Diverses Fixes
- Silent.bat als Muster für die Batchdatei beigefügt.
- Zum Testen der selektiven Wahl der BAK-Dateien:
Die Dateien _Binaer.bak und _Text.bak beigefügt.
Die _Text.bak wird Ihnen angezeigt, die _Binaer.bak korrekterweise nicht.


@Balu der Bär
Danke! Den Fehler mit dem Unterverzeichnis hatte ich nicht bemerkt. Behoben.

@Sunlight7:
Es werden nur *.Bak Dateien angezeigt, die reine Textdateien sind. Bak-Dateien mit binären Inhalt werden nicht angezeigt. Die Log-Datei zeigt wieder alles korrekt an.
Ja, das möchte ich auch: "3 Bak", "1425 Dof Dateien" etc.
Der Silentmodus bzw. das Programm darf im Batchmodus keine Meldungen zeigen, daher auch der Name "Silentmodus". Gefixt.

Die Version 1.2 mit dem Menue und dem Schreibschutz war doch ein wenig problematisch: Hier muss für jeden Zustand die Buttons und Menues ein- bzw. ausgeschaltet werden. Ich habe das Programm mit der vorliegenden Version 1.3 komplett erneuert: Aussagekräftige Namen für die Elemente auf der Gui vergeben: z. B. EditPfad statt edit1 oder chkBackup statt checkbox1 umbenannt und komplexe Proceduren zur besseren Übersicht in einzelne Proceduren "gesplittet". Erst dann kam ich den Bugs auf die Spur.

Zitat:

Eine Anregung für's Menü: Ich persönlich finde es schrecklich, wenn man zB. auf "Update?" klickt und
schon gehts ins Netz.

Naja, so schrecklich ist es auch wieder nicht. Ich finde es nervig, wenn ich für jede Kleinigkeit extra bestätigen muss. z. B. "Wollen Sie schließen?", "Wirklich?", "Schade..., na dann." Du weiß jetzt was sich darunter verbirgt. Und wenn Du DHP klickst, bist du ganz schnell auf der Hauptseite der DP.

Zitat:

Welche Dateien suchst Du wenn *.~* angeklickt wurde?
Diese fehlen leider in der Liste: *.~pa, *.~df

*.~pa und *.~df kenne ich nicht. *.~dc, *.~bpl sind mir auch nicht geläufig.
Welche Delphi Version hast Du? Ich nehme, wenn diese Dateien wirklich entbehrlich sind,die Dateien mit diesen Endungen rein. Zu deiner Frage *.~*: Durchsucht die delphispezifischen Dateien von D7. Such mal nur die *.~*, dann siehst Du die Endungen.
Vielen Dank für Deine Mühe. Ich hoffe, die Version 1.3 ist für Dich gefälliger.

@Alle
Meine Erfahrung als Anfänger ist: Je mehr Optionen in der Gui, desto größer wird der Aufwand. Die eigentliche Aufgabe des Programme, in meinem Fall die Suche nach den Dateien, nimmt nur 10% des Gesamtaufwandes ein. (Nach dem Aufwand wohl nur noch 5%) Der restliche Aufwand geht in die Gestaltung der GUI und die Fehlersuche. (Wenn man von Anfang an systematischer vorgeht, reduziert sich die Fehlersuche drastisch.) Ein Consolenprogramm nimmt doch nur den Bruchteil des Aufwandes ein, weil der User in den einen Prozess nicht direkt "reinpfuschen" kann, während bei der Suche in der GUI meines Programmmes ich sogar das "Schließen" abfangen muss, weil man nicht ausschliessen kann, dass jemand während der Suche "brutal" aussteigen möchte. Bei einem Consolenprogramm wartet man im Regelfall geduldig ab, weil man weiß dass ein "Reset" oder ein Beenden über den Taskmananger den Daten auf der Festplatte ganz gewiss nicht "gut tut".

Problematisch scheint mir die Anzeige der Statusleiste unter XP zu sein:
Ich habe alles ausprobiert: .Refresch, .update, .repaint Application.prozessmessages, Delay(500), form.show, form.refresht etc. Nichts hat funktioniert. In einem "normalen Programm", dass ich mir erstellt habe,geht die Anzeige der Statusbar unter XP.Auch ein Timer, mit dem ich die Statusbar mit der aktuellen Zeit versorgte, lieferte mir korrekte Anzeigen. Jedoch wenn mein Programm eine Suche auf der Platte tätigt, erscheint unter XP keine Anzeige mehr. Auch die OnShow-Anzeige unter XP der Statuszeile geht nicht. Dies ist mir auch in anderen Projekten aufgefallen. Euch bisher nicht? Ist es ein BUG? Auch die Compilierung mit Turbo-Delphi brachte keine Besserung. Damit ist die Statusanzeige unter XP ungelöst. Und habe kurzerhand ein Panel eingesetzt. Die Statuszeile verwende ich nicht mehr. Die hat mich zu lange geärgert.

Weiterhin nicht gelöst:
Die geforderten Hints in der Menueliste habe ich getätigt und auch auf True gestellt. Aber weder in Delphi7 noch TD2006 werden die Hints angezeigt.

Das nächste Projekt ist jedoch besser vorbereitet und das Grundgerüst sicherlich besser ausgestattet,
wo ich z. b. ALT-F4 oder ein Close-Ereignis gleich abfange. Oder auf Userrechte achte. Ich habe keine INI-Datei mehr genommen.

Na dann erst mal viel Spaß mit der neuen Version, die hoffentlich keine Fehler mehr haben sollte.

Viele Grüße an die DP!
GoEITS

[Sunlight7]

Hallo Go2Eits!

Vor dem Testen:

*.~pa, *.~df und *.~dc sind von Delphi 2.0
*.~bpl: Delphi 5.0

Das mit den .BAK: Das waren leere (0 Byte große) Dateien.
Hmm, da fällt es sichtlich schwer zu unterscheiden, ob's Text oder Binär ist
Aber eine 0 Byte Datei zu löschen ist sicher nicht so Schmerzvoll.

Edit:
Neues Problem: Programm reagiert nicht während der Suche
Nur wenn die Suche auf das nächste Laufwerk springt reagiert es ganz kurz.

EEdit: *.~dof könnte man auch löschen

EEEdit: Log-Datei:
Wenn man das Log einschaltet, muß man das Programm erst neu starten, damit das Log geschrieben wird.

Log-Datei löschen.

Zitat:

Log-Datei gelöscht.

Die ist aber noch da?

[Go2EITS]

Hallo Sunlight!

Zitat:

Hmm, da fällt es sichtlich schwer zu unterscheiden, ob's Text oder Binär ist

Stimmt!
Aber eine 0 Byte Datei zu löschen ist sicher nicht so Schmerzvoll. Das mit den 0-Bytes Bak löschen ist ein wenig gefährlich: Es können auch offene Dateien vom Betriebssystem sein, denke ich. Sind diese im Delphi Ordner "haufenweise" oder allgemein verstreut?
Wenn letzteres, überlasse ich das Feld den klassischen Clean-Programmen. (Vorerst... )

[Roter kasten]
Zugunsten der der Schnelligkeit sind permanente Abfragen und Aufrufe von Application.Prozessmessages
oder Form.Refresh nicht mehr so häufig drin. Aber wenn Du zwischen Programmen hin und her schaltest, wirkt das Programm wie stehengeblieben. Täuscht aber, spätestens nach der nächsten Änderung in der Form siehst Du die Form wieder. Wenn Die Festplatte > 50 G ist, dauert es schon ein wenig, insbesondere wenn viele kleine Dateien darauf sind.

Zitat:

Wenn man das Log einschaltet, muß man das Programm erst neu starten, damit das Log geschrieben wird.

Gut gesehen. Werde ich ändern.

Log gelöscht und doch noch da: So wollte es jemand. Da steht dann drin: Logdatei gelöscht.
Ich glaube, die kleine 1 KB Datei kann man verschmerzen, d. h. muss man nicht gänzlich löschen.

*.~dof gehört auch zu Delphi 2.
Wenn das ganze nicht zu langsam bei der Suche wird, könnte ich diese Optionen für D2 mit reinnehmen.
Aber ich glaube, so viele Delphi 2 Nutzer gibt es nicht mehr. Wenn sich hier 10 User via PN melden, nehme ich die Optionen
für D2 z. B. so rein: [x] Delphi2: Tempörare Dateien auch löschen.

Beste Grüße
Go2EITS

[Sunlight7]

Zitat von Go2EITS:

Aber eine 0 Byte Datei zu löschen ist sicher nicht so Schmerzvoll.

Seltsamer Quellcode

Zitat von Go2EITS:

Das mit den 0-Bytes Bak löschen ist ein wenig gefährlich: Es können auch offene Dateien vom Betriebssystem sein, denke ich. Sind diese im Delphi Ordner "haufenweise" oder allgemein verstreut?

Beides
Geöffnete Dateien lassen sich nicht löschen

Zitat von Go2EITS:

Zugunsten der der Schnelligkeit sind permanente Abfragen und Aufrufe von Application.Prozessmessages
oder Form.Refresh nicht mehr so häufig drin. Aber wenn Du zwischen Programmen hin und her schaltest, wirkt das Programm wie stehengeblieben. Täuscht aber, spätestens nach der nächsten Änderung in der Form siehst Du die Form wieder. Wenn Die Festplatte > 50 G ist, dauert es schon ein wenig, insbesondere wenn viele kleine Dateien darauf sind.

>50 G?
Ich hab 4 x 250 GB
Ich weiß, das es nicht stehenbleibt, aber man kann nicht auf Abbrechen klicken...
Ein ProcessMessages wäre bei Verzeichniswechsel besser angebracht, meine ich mal.

Zitat von Go2EITS:

*.~dof gehört auch zu Delphi 2

Nö, das gehört zu Delphi 5.

Ich weiß nicht, ob Delphi 3 & 4 auch noch die *.xx wie D2 oder schon *.xxx Dateien wie D5 anlegen.

Zitat von Go2EITS:

Meine Erfahrung als Anfänger ist: Je mehr Optionen in der Gui, desto größer wird der Aufwand...

Das ging mir anfangs auch so, als ich von Basic nach Delphi umstieg, aber daran gewöhnt man sich mit der Zeit

Hmm, die Fehler werden doch schon weniger, weiter so, dann ist's bald Perfekt

Edit: PS: Für mich mußt Du nicht Extrawürste braten, mein eigener Cleaner paßt ja im Hintergrund auf

[Go2EITS]

@Sunlight:
Hier die verbesserungen nach deinen Vorschlägen. Klappt es nun mit Deinen riesen Kloppern? (Norddeutscher Auspruch? Meine: "Deine großen Festplatten")

Hier schnell die neue Version für alle nachgeschoben.
[Nachtrag: Jetzt gehen aber die Downloads rauf!. Danke! ]

================================================== ============
Version: 1.3 Build 4 vom 20.10.2006
================================================== ============
- Für große Platten eine bessere Reaktion auf eine Unterbrechung während der Suche eingebaut.
- Kleiner Log-Datei Fix.
(Vorschläge von Sunlight7 umgesetzt)


@Sunlight

Zitat:

Beides
Geöffnete Dateien lassen sich nicht löschen

Siehe mal in meine Hilfe... Geöffnete Dateien werden bei Neustart gelöscht!
(Zumindestens wird es versucht. Und sogar in der Log und OnScreen angezeigt!)

Zitat:

Ein ProcessMessages wäre bei Verzeichniswechsel besser angebracht, meine ich mal.

Gesagt, getan!

Ich weiß nicht, ob Delphi 3 & 4 auch noch die *.xx wie D2 oder schon *.xxx Dateien wie D5 anlegen. Ich auch nicht, es meldet ja keiner außer Dir im Moment etwas dazu. (Kleiner Userkreis in D2 schätze ich)
Extrawurst gibt es ab 10 User.

[Sunlight7]

Jo, das kloppt jetzt.

Für den allerletzten Feinschliff noch eine Kleinigkeit:
Wenn sich das Fenster merken würde, wo es gestanden hat, wäre das sehr Klasse.

Edit:

Zitat von Go2EITS:

Siehe mal in meine Hilfe... Geöffnete Dateien werden bei Neustart gelöscht!
(Zumindestens wird es versucht. Und sogar in der Log und OnScreen angezeigt!)

Wenn sich eine 0 Byte große .Bak Datei nicht löschen läßt, muß diese ja nicht zum löschen beim Neustart eingetragen werden.

[Go2EITS]

@Sunlight7

Zitat:

Wenn sich das Fenster merken würde, wo es gestanden hat, wäre das sehr Klasse.

Und wie mach ich dat?