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]

@Alle
Hier für Euch das Update:
================================================== ============
Version: 1.2 Build 5 vom 04.10.2006
================================================== ============
- Checklistboxanzeige gefixt.
- Defproj.dof wird nicht gelistet.
- ALT-F4 wird abgefangen
- Code optimiert.
- TD2006 Compilat mit Inlines

Download und Screenshot wie immer im ersten Beitrag.

Neue User/Downloader: Meldet mal Eure Files und MBs (ab 1000)!

Viel Vergnügen.
Go2EITS

[Fuchtel]

Hallo Go2EITS,

ich habe noch einige Anmerkungen / Ideen für deinen Cleaner:

Sanduhr während des Suchens setzen

Fortschritsanzeige funzt nicht. Erst müßte der gesammte Durchsuchungsumfang berechnet werden (alle UVs), um damit Anzeige.Max zu setzen. Dies dauert aber zu lange, deshalb lieber weglassen.

Im LogBuch sollte nicht nur Start, Ende und Anzahl stehen, sonden auch jede gefundene und vorallem jede gelöschte bzw. ins Backup verschobene Datei.

Menuepunkt LogBuch Löschen: Bitte nicht einfach die Datei löschen, sondern nur dessen Inhalt und danach Eintrag, wann gelöscht wurde.

Den das Logbuch darstellenden Editor sollte der Anwender frei festlegen können (nur in INI-Datei; wenn nicht, wie bisher).

Ebenso sollte der BackUpPfad (nur) in der INI frei wählbar sein.

Menuepunkte nach den normalen Konventionen anordnen:

Delphi-Quellcode:

[&Datei]                   [&Extras]             [&Hilfe]
  [Backuppfad &öffnen]       [Logfiele &öffnen]    [&Update]
  [Backupinhalt &löschen]    [Logfile &leeren]     [&DHP]
  [-]                                              [-]
  [&Beenden]                                     [&Hilfe]

Bitte benutze normale INI-Einträge z.B:

Delphi-Quellcode:

[Info]
Version="Delphi Cleaner 1.2  (C) Go2EITS"

[FileExtensions]
Tilde=FALSE
DDP=FALSE
DOF=FALSE
BAK=TRUE

[Files]
MoveToBackUp=TRUE
CreateLog=TRUE

[Pathes]
PathList=3
OnlyOwnPath=TRUE
OwnPath=D:\ATROTECH\test

Unter [Pathes] PathList=3 solltest du den Laufwerksbuchstaben und nicht den Index speichern, da bei einem nächsten Start ev. andere Laufwerke eingebunden sein können (USB, Netzwerk, ..)



Wenn Du im BackUp Verzeichnis den gesammten UV-Pfad nachbildest, kann der Pfad mit Datei u.U. zu lang werden, so daß dann auf die Dateie nicht mehr sicher zugegriffen werden kann (Hier nicht getestet, aber in einem anderen Fall bei mir aufgetreten.). Besser währe es die Dateien mit einer vortlaufenden Nummer zu Erweitern und im Backuppfad unter Datum und Zeit ais UV zu speichern. Gleichzeitig wird dann dort eine Liste erzeugt, in der Dateiname und Pfad aufgeführt wird.

Mit besten Grüßen

Fuchtel

[Go2EITS]

Puh! Ihr stellt Aufgaben...

Ich habe es auch gesehen: Die Sanduhr wird über einer Groubbox nicht angezeigt, mal sehen ob Dein Vorschlag das Problem beseitigt.

Fortschritsanzeige funzt nicht. Erst müßte der gesammte Durchsuchungsumfang berechnet werden (alle UVs), um damit Anzeige.Max zu setzen. Dies dauert aber zu lange, deshalb lieber weglassen. Eigenlich funzt es schon. Ich zähle die Laufwerke und setzte entsprechend die Fortschrittsanzeige. Du hast XP, stimmts? Da muss ich hinter jeder Anzeige auf der Form ein Prozess.messages setzen. Sehe ich noch mal durch.

Zitat:

Im LogBuch sollte nicht nur Start, Ende und Anzahl stehen, sonden auch jede gefundene und vorallem jede gelöschte bzw. ins Backup verschobene Datei.

Ich überlege mir ein "Big"Log als Option. Ich glaube nicht, dass Du 3000 Dateien nochmals, die ich Dir vorher in einer Checklistbox angeboten hatte, ansehen willst.

Zitat:

Menuepunkt LogBuch Löschen: Bitte nicht einfach die Datei löschen, sondern nur dessen Inhalt und danach Eintrag, wann gelöscht wurde.

Dachte ich mir auch schon.

Zitat:

Den das Logbuch darstellenden Editor sollte der Anwender frei festlegen können (nur in INI-Datei; wenn nicht, wie bisher). Ebenso sollte der BackUpPfad (nur) in der INI frei wählbar sein.

Stimmt. Kommt in die 1.3er Version.

Zitat:

Wenn Du im BackUp Verzeichnis den gesammten UV-Pfad nachbildest, kann der Pfad mit Datei u.U. zu lang werden, so daß dann auf die Dateie nicht mehr sicher zugegriffen werden kann (Hier nicht getestet, aber in einem anderen Fall bei mir aufgetreten.). Besser währe es die Dateien mit einer vortlaufenden Nummer zu Erweitern und im Backuppfad unter Datum und Zeit ais UV zu speichern. Gleichzeitig wird dann dort eine Liste erzeugt, in der Dateiname und Pfad aufgeführt wird.

Da ist was dran. Verlege ich in die 1.3er Version, die wird noch ein wenig auf sich warten müssen. Im Gegensatz zu Consolenprogrammen ist bei GUI 20x mehr Aufwand zu betreiben. Allein der Umstand, dass der User während einer Suche das Programm nicht abbrechen darf und auch alle Buttons abgechaltet werden müssen, hatte ich zuvor nicht bedacht, wie so vieles anderes nicht. Aber jetzt, sofern es mir die Zeit erlaubt, arbeite ich an dem Projekt weiter, weil ich meine Kenntnisse erweitern möchte. Und habe aufgrund Eures Feedbackes an diesem Projekt viel gelernt.

Wenn ich in dem nächsten Update nicht Eure, für meine Anfängerkünste hohen Ansrüche nicht sofort umsetze, daher nicht böse sein: Was ich sofort kann, setze ich um. Wo ich mich reinarbeiten muss, dauert länger und kommt später. OK?

Erstaunlich ist, das möchte ich Euch noch mitteilen, das TD2006 von D7 ein deutlicher Sprung ist.
Unter D7 habe ich Fastmove, Fastmm und Fastcode verwendet. In TD2006 ist der Compilercode sehr optimiert, da läßt sich nur wenig optimieren. Das Inline bringt nochmals etwas Performance. Delphi Cleaner ist unter D7 wegen CnWizard editiert und mit TD2006 compiliert.

Also Fuchtel, ganz herzlichen Dank für die wertvollen Hinweise und Deine Zeit, die Du für mein Programm genommen hast! Version 1.2 Build 6 kommt aber zuerst. Da sind erst mal die Vorschläge von Sunlight 7 drin. Die INI-Datei, und die Änderung der Menueleiste lasse ich mir noch durch den Kopf gehen. Ich finde Backup, Log und DHP und Update so griffiger. Da muss ich mich nicht erst durch das Menue hangeln. Wenn ich 10 Menueüberschriften hätte, würde ich die Einträge sofort, so wie Du es vorgeschlagen hast, umsetzen. Aber bei den wenigen Einträgen... Deine meisten Deiner Vorschläge kommen wohl in dem großen Update in der Version 1.3. In der 1.3 möchte ich die Lesegeschwindigkeit mit einem Trick beschleunigen. Mal sehen, ob das geht. Und GUI wird, dank Deiner bzw. Eurer Vorschläge ab 1.3 wird komfortabler. Ich konzentriere mich, die "Fehler" in der 1.2 zu beseitigen.
[Nachtrag]
Der Backuppfad ist absichtlich so gelegt, damit man die fehlende Datei besser finden kann. Die Gefahr, dass der Pfad länger als 255 Zeichnen wird, besteht. Deine Überlegung diesbezüglich ist ein sehr guter Ansatz, den ich mir auch sorgfältig durch den Kopf gehen lasse.
[\Nachtag ENDE]

CU! Und beste Grüße an die DP!
Go2EITS
2. Nachtrag:

Zitat:

"Die Methode SetCursor setzt den Cursor auf das erste Zeichen vor oder an der Position Pos, das bearbeitet werden kann, und wählt es aus."

In einer Edit! Interssant. Aber das Einschalten der Sanduhr geht mit chHourglas; zurück mit CrDefalut: Siehe unten: (Damit nicht jemand verzweifelt ist und den obigen Code irrtümlich kopiert:

Delphi-Quellcode:

Cursor:=crHourGlass; // oder
Cursor:=crDefault;

3. Nachtrag:
Setzt den Mauscursor für die ganze Form auf CrHourglas und retour:

Delphi-Quellcode:

Screen.Cursor := crHourGlass; 
try 
  // nach was 
finally 
  Screen.Cursor := crDefault; 
end;

[Go2EITS]

Ich habe Euch das neue Update Build 6 hochgeladen; ich denke, da sind durchaus interssante Sachen für Euch hinzugekommen.

Das Prüfen, ob mein Programm von einem CD-Rom oder Diskettenlaufwerk gestartet worden ist, war einen harte Nuss. Aber ich glaube, es klappt so weit. Damit kann man von Bart CD seinen Rechner aufräume.
Es müßte auch ein einem Stick mit eingeschalteten Schreibschutz gehen.
Sonst sind nachfolgende Neuerungen zusammengefasst.

================================================== ============
Version: 1.2 Build 6 vom 06.10.2006
================================================== ============
- Programm ist von schreibgeschütztem Medium und damit auch von CD/Diskette/USB-Stick startbar.
- Bei Backup wird zuvor geprüft, ob gesichert werden kann:
Schreibschutzüberprüfung und ob genügend auf Platz am Datentäger vorhanden ist.
- Anzeige, wie groß das Backupverzeichnis ist.
- Abbruch des Programmes bei der Suche wird abgefangen
- Code auf Schnelligkeit optimiert

So prüft mal, ob alles passt und meldet bitte mal als kleines Dankeschön die gefundenen Files/MB.
Viel Vergügen beim Aufräumen!
Go2EITS

[oki]

Hi go2eits,

ich hab gerade dein Build6 getestet. Dabei ist mir folgendes aufgefallen:

- Das Menü liefert keine Hint's
- Click auf Hilfe -> tut nichts
- was ist DPH? (war mutig -> bei Delphipraxis gelandet; vorher wissen ist schöner)

Nach einem Suchdurchlauf wollte ich das Programm beenden. Da kamm die Aufschrift das ich die Suche erst beenden mus. -> hat aber nicht mehr gesucht. -> Klick auf Suchen gab Exception (000000000)! Alle Button's mit ansicht wie bei Suche.

Hab dann alles mit TaskManager abgeschossen.

Tut mir leid für die schlechten Nachrichten, lief schon mal besser.

Gruß oki

[Balu der Bär]

Hallo,

irgendwas stimmt da noch nicht. Ich hatte den Pfad welchen Ordner dein Programm durchsuchen soll manuell gesetzt (C:\Programme\Borland\). Nach einer realtiv kurzen Suche wurde mir allerdings keine Datei angezeigt. Danach habe ich die ganze Festplatte durchlesen lassen, und auch dort wurde mit im Borland-Ordner nur eine kleine *.bak angezeigt, obwohl sich viel mehr *.bak Dateien in weiteren Unterordnern befinden.

Viel schlimmer bis auf die Tatsache das nichts gefunden werden konnte fand ich, dass ich dein Programm nicht mehr beenden konnte. Weder über das Schließen-Icon, noch über deinen Beenden-Button und auch per Hauptmenü ging es nicht. Dein Programm ist aber nicht abgestürzt oder ähnliches, man konnte es weiterhin bedienen, jedoch nicht beenden. Also blieb mir nichts anderes übrig als es mit dem Taskmanager zu beenden.

Btw, du solltest wirklich noch das MainMenü etwas überarbeiten.

[Go2EITS]

@oki
- Das Menü liefert keine Hint's
- Click auf Hilfe -> tut nichts
- was ist DPH? (war mutig -> bei Delphipraxis gelandet; vorher wissen ist schöner)
Ich kriege keine Hints im Menue bei mir rein. Es funktioniert irgendwie nicht.
Hilfe? ja nur wenn Du die 7z hast. Da ist die Hilfe drin. Die *.exe ist nur die Exe ohne Hilfe.
DHP = Delphi Praxis Hauptseite!
Abgestürzt? Was für Einstellungen hattest Du denn?

@Balu der Bär
Vielen Dank für das Testen.
Es werden nur Bak-Dateien angezeigt, die reinen Text haben. Aus Sicherheitsgründen werden binäre Bak-Dateien werden global zum Löschen angeboten, bzw. angezeigt. Die Suche kannst Du über "Suche beenden" abbrechen. Hast Du die Build 6? wenn nicht, lade Dir das letzte Update runter. Aber in Zukunft gibt es die Option: "Auch binäre Bak-Dateien anzeigen", wenn man benutzerdefinierte Pfade verwendet.

Zitat:

Viel schlimmer bis auf die Tatsache das nichts gefunden werden konnte fand ich, dass ich dein Programm nicht mehr beenden konnte. Weder über das Schließen-Icon, noch über deinen Beenden-Button und auch per Hauptmenü ging es nicht. Dein Programm ist aber nicht abgestürzt oder ähnliches, man konnte es weiterhin bedienen, jedoch nicht beenden. Also blieb mir nichts anderes übrig als es mit dem Taskmanager zu beenden.

Ich habe mich bemüht, Deinen Fehler (Build 6) zu reproduzieren. Es gelang mir leider nicht. (Test ohne Eintrag in der Liste, Test mit Einträgen, nur .bak markiert oder alle markiert, Pfad aud Borland gelegt, einzelnes Laufwerk probiert.).
1. Probiere bitte daher die neueste Version (Build 6)

Wenn ein Fehler doch auftreten sollte, sei so nett und teile mir doch nachfolgende Fragen mit:
Prog in VM?
Welche Einstellungen hast Du im Programm vor dem Fehler vorgenommen?
Konntest Du den Fehler wiederholen?
Ist die Umgebung XP oder Windows?
Hast Du Einträge in der Liste oder keine.
Hast Du das Programm auf Diskette, Stick, CD gestartet?
Schreibschutz z. B. Stick während des Betriebes geändert?

Nur so könnte ich gezielt Deinen Fehler reproduzieren und schnell beseitigen.

Ich bin an der Überarbeitung generell dran.

[Nachtrag:] Ich vermute fast, dass die Abfrage, ob ich mich auf einem beschreibaren Datentäger befinde, der Grund für den Absturz auf einigen Rechnern ist. Nicht so einfach zu lösen, wenn es bei mir geht. [Nachtrag Ende]

Beste Grüße
Go2EITS

[Balu der Bär]

Zitat von Go2EITS:

1. Prog in VM?
2. Welche Einstellungen hast Du im Programm vor dem Fehler vorgenommen?
3. Konntest Du den Fehler wiederholen?
4. Ist die Umgebung XP oder Windows?
5. Hast Du Einträge in der Liste oder keine.
6. Hast Du das Programm auf Diskette, Stick, CD gestartet?
7. Schreibschutz z. B. Stick während des Betriebes geändert?

1.) Ja
2.) Keine, alles bei den Standardeinstellungen gelassen
3.) Ich werde gleich mal gucken
4.) Windows XP
5.) Ja, die eine einzige *.bak die nach der systemweiten Suche gefunden wurde
6.) Nope
7.) Nope

//Edit: Ja es war Build 6.

[Sunlight7]

Zitat von Go2EITS:

Die Änderungen in dieser Version bassieren hauptsächlich auf
die freundliche Unterstützung von Sunlight7

Ach danke!
Aber da werd ich gleich

Gleich mal die neue Version testen.

[Balu der Bär]

Jab Fehler ist reproduzierbar:

Ich starte dein Programm (Build 6). Mache bei "Nur eigenen Path durchsuchen" den Haken rein, klicke danach in das Edit und wähle den Ordner "C:\Programme\Borland" aus. Danach klicke ich auf "Starte suche". Es wird keine Datei gefunden. Also nehme ich den Haken bei "Nur eigenen Path durchsuchen" raus und wähle "C:\" bei "Laufwerke durchsuchen" aus. Nach der Suche wurde wieder keine Datei gefunden. Jetzt kann ich machen was ich will, dass Programm lässt sich nur noch mittels Taskmanager beenden.