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]

@Luckie

Zitat:

Ich würde die Schaltflächen durch Menüs ersetzen und zusätzlich eine Toolbar nehmen (Musst nur ein paar schöne Bildchens finden). Das, was in der Groupbox "Ereignis" steht würde ich in eine Statusbar verfrachten, dazu ist sie da. Un für die Einstellungen könnte man einen extra Dialog nehmen.

Danke! Hatte Dein Posting übersehen. Das Programm sollte erstmal fehlerfrei laufen, ok? Sonst wird es für mich zu schwierig.


@pertzschc

Zitat:

Ist wohl ein Geheimnis. Auch ok.

War von mir ernst gemeint. Es wird niemand gezwungen.
Das war beim ersten Mal auch mein Ergebnis, nur in ca. 2 Min.
Die Combobox ist von Natur aus ein Feld, in der man selbst Eingaben vornehmen kann.
(Siehe Hilfe. Wusste ich zuvor auch nicht. Wie stellt man die Eingabe ab?)

Zwischenstand zum Programm:
Nun fehlt nur noch die Belegung der 2 optionalen Endungen, die noch Leer sind und die LogDateien!
Wahrscheinlich wird die Version Freitag fertig.

Viele Grüße an die DP!
Go2EITS

[Sunlight7]

Die Eingabe kannste abstellen, wenn Du den Style auf csDropDownList setzt.

Hab noch 1.5 (3 halbe) Bugs gefunden.

• Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.
• Die von Norton Protection geschützten Dateien vom Papierkorb nicht anzeigen.
• Nimm das Leerzeichen vom Standard Backuppfad am Ende raus, sonst kann das Verzeichnis nicht mit dem Explorer gelöscht werden.

PS: 13 Dateien, 14.56 KB (hab meinen Cleaner mal kurz ausgeschaltet)

Wenn man ganz kleinlich ist: 198 KB stimmen nicht mehr, es sind bereits 200 KB

[Fuchtel]

Hallo Go2EITS,

Du schreibst:

Zitat:

... Bei der Suche hatte ich vergessen, die Liste im Speicher, wenn TStringList.Count > 0ist. mit TStringList.clear zu initialisieren. ...

Bedeutet das, das Du erst eine Stringliste mit den gefundenen Dateien füllst, und dann damit die TCheckListBox.Items füllst oder Assignesd?

Warum füllst Du in deiner Suchfunktion nicht gleich die TCheckListBox.Items und sparst Dir somit die Stringliste.

Weitere Fehler:

Sind folgende Dateien vorhanden:

D:\Test1.bak
D:\Test2.baked

und wird nach *.bak gesucht, so findet er beide Dateien!
Dabei kan die (hier willkürliche) Endung *.baked irgend eine andere wichtige Bedeutung haben.

Dies liegt daran, das bei

FindFirst(IncludeTrailingPathDelimiter(Directory) + Filter, cAttr, SearchRec) ... FindNext der Filter nicht korrekt ausgewertet wird.

Du mußt also jede gefundene Datei noch mal selbst überprüfen:

• Function StrSatisfy aus Key Objects Library (C) 2000 by Kladov Vladimir (http://bonanzas.rinet.ru (E)) (hoffentlich noch gültig!)

• Zumindest aber die Länge der Dateierweiterung (hier 3) testen. (Am schnellsten von hinten bis zu PathDelim zählen).

Fuchtel

[oki]

Hi,

das editieren in der ComboBox kann mit der eigenschaft "Style" im OI eingestellt werden. Ändere die Eigenschaft von "csDropDown" in "csDropDownList". dann können nur noch die Einträge ausgewählt werden.

gruß oki

PS. die gelöschten Corel-draw-Dateien waren keine Delphidateien, sonden Backup's von CorelDraw.

[Go2EITS]

@sunlight7

Zitat:

Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.

- erledigt. Showmessage eingefügt, wenn kein Backupverzeichnis vorhanden ist.

Zitat:

Die von Norton Protection geschützten Dateien vom Papierkorb nicht anzeigen.

Wer das Programm von Norton installiert, hat seinen Grund. Da pfusche ich lieber nicht rein.

Zitat:

Nimm das Leerzeichen vom Standard Backuppfad am Ende raus, sonst kann das Verzeichnis nicht mit dem Explorer gelöscht werden.

- War nur in der Anzeige drin, Das Verzeichnis wurde nicht mit \backup \ angelegt. Die Anzeige\Shellexecute habe ich entsprechend geändert.

@oki:
Das mit dem Editieren der Combobox habe ich gefunden und geändert. Nun kann man es nicht mehr editieren.

Zitat:

PS. die gelöschten Corel-draw-Dateien waren keine Delphidateien, sonden Backup's von CorelDraw.

Hast Du einen Vorschlag, wie ich die überspringen kann? Liegen die Backups generell in einem speziellen Ordner oder bezieht es sich auf die erstellten Grafiken/Objekte, die der User "wahllos" über die Festplatte verteilt? Sonst muss ich den User warnen, Coreldraw Dateien zu überspringen, bzw. nicht zu markieren.

@Fuchtel: Nein, die Daten schreibe ich in ein Tstringlist und dann ins Backup.
Bei der erneuten Suche habe ich die Tstinglist nicht neu initalisiert. Das ist alles.

Zitat:

Warum füllst Du in deiner Suchfunktion nicht gleich die TCheckListBox.Items und sparst Dir somit die Stringliste.

Sehr gute Idee. Aber ich habe die Daten in der TStringlist und die Filenames in der TCheckListBox.

Zitat:

D:\Test1.bak
D:\Test2.baked

Das ist komisch. Das sollte der Torrycode nicht. Ist ein Bug. Den versuche ich zu reproduzieren und zu beseitigen. Im Übrigen hast Du besonders konstruktive Vorschläge mit Lösungen. Das hilft richtig weiter. Vielen Dank!

@Luckie
Zum Projekt: Ein TMainmenue ist auch schon integiert. den Sinn und Zweck einer TmainMenue ist mir klargeworden. Aber: Die Suche und die Einstellungen möchte ich nebeneinander. Sonst friemelt man sich zu Tode, um eine Suche auszuführen. Das hat mich bei vielen Programmen gestört, dass man für jede Kleinigkeit über ein TMainmenue sich Hangeln muss und dann über zig Ebenen muss.

Zum Programmfortschritt:
- In mein Programm kommt ein Button dazu: DeepClean: Alle Laufwerke werden mit allen eingeschalteten Optionen ausgeführt und alle gefunden Dateien sofort gelöscht.
- Die Einstellungen der Optionen werden nun gespeichert und bei Neustart de Programmes geladen. (ohne Registry!)
- Wenn ein eigener Path zum Säubern gewünscht wird, wird die Combobox disabled und nur der Path gescannt.

Ist noch ein wenig Arbeit. Ihr habt ganz hervorragende Vorschläge. Respekt! Weiter so. Beste Grüße an die DP von
Go2EITS

[Luckie]

[quote="Go2EITS"]@sunlight7

Zitat:

Wenn man auf "Backupverzeichnis öffnen" klickt, und es noch nicht vorhanden ist.

- erledigt. Showmessage eingefügt, wenn kein Backupverzeichnis vorhanden ist.[quote]
Und warum deaktivierst du ihn nicht einfach? Ist schöner, als wenn dem benutzer so eine Messagebox ins Gesichtspringt, die er erst wieder wegklicken muss, um weiter arbeiten zu können.

[pertzschc]

Zitat von Go2EITS:

Ist noch ein wenig Arbeit. Ihr habt ganz hervorragende Vorschläge. Respekt! Weiter so.

Weiter geht es: Schau Dir mal die .Top Werte Deiner 3 Groupboxen an, von links nach rechts wird der obere Beginn je um 1-2? Pixel nach unten verschoben.

Gruß,
Christoph

[Go2EITS]

@Luckie
OK. Die Meldung nehme ich in die Statusleiste. Erledigt.

@pertzschc
Mach ich dann, wenn den Code mit TurboExplorer compliere. Da kann man die GuiObjekte besser ausrichten. Schreibe unter D7, wegen CnWizards.

Beste Grüße
Go2EITS

[Luckie]

Zitat von Go2EITS:

@Luckie
OK. Die Meldung nehme ich in die Statusleiste. Erledigt.

Nicht in die Statusleiste. Deaktivier die Schaltfläche so lange kein entsprechendes Verzeichnis existiert.

[Go2EITS]

@Luckie
Ist im TMainmenue und wunschgemäß erledigt.