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

[Sunlight7]

Ergebnis: 0 Dateien, 0 Bytes

Sorry für die schlechten Werte, ich habe ein selbstgeschriebens Programm im Hintergrund laufen, welches regelmäßig guckt, obs was zum löschen gibt.
Wollt nur mal schauen, was die "Kunkurenz" so macht...
Ist doch ein ganz nettes Programm, aber auf Labels klicke ich auch nicht gerne.

Zumindest weiß ich jetzt, das mein Cleaner nicht mal eine Datei übersehen hat.

[Go2EITS]

@Fuchtel:
Guter Vorschlag: Invertierten kommt rein. [Nachtrag: Schon drin]

Dieses Log schon geplant und wird in Backupverzeichnis geschrieben und sollte dann vom Programm auch geöffnet werden können. Kommt ins Todo, wenn das Programm steht.

Ich finde das Einschalten der horizontalen Leiste nicht! Irgendwas muss ich einschalten, damit ich in
Eigenschaften die Eigenschaft "Horizontale Linie" angezeigt bekomme. Nur was?

Zitat:

Bei rechtem Mausklick auf eine Datei das PopUpMenue des Explorers anzubieten.

Gib mir mal bitte ein Stichwort, mit der ich in der DP suchen kann, bin doch gegen Euch Anfänger!

Und: Es steht bei Dir noch aus, wieviele Dateien Du gefunden hast.

Roter Kasten
@Sunlight7
Und wo ist Dein Programm? Konkurrenz belebt das Geschäft, heißt es.
0 Dateien, 0 Bytes: Warte, ich finde noch was. Gibs zu, Du hast eine formatierte Festplatte durchsucht!

So sieht es momentan unter Windows2000 aus, XP ist natürlich schöner...

[Sunlight7]

Wie kommst den da drauf?
Ne leere Platte hab ich doch grad gar nicht.

Hab mal zählen lassen: 2161 x .pas, 1169 x .dfm und 521 x .dpr ...

Also mein Programm nennt sich so ganz Inoffiziel "Mini-Tools", das ist mein größtest Projekt, mit Uhr, Überblick was grad im TV läuft, Designer MCI-Player mit Extras für mich, Find Files, Fenster fremder Anwendungen automatisch ausrichten, ..., ...
Also da ist fast alles drin, was ich täglich so benutze (oder machen lasse).
Aber da hats an allen Ecken und Enden riesige Baustellen und der Cleaner hat, wie die meisten Hintergrund-Utils (noch) kein GUI.

Da gibts doch noch den "alten" Cleaner den könnt' ich mal wieder in gang bringen und vom DLS befreien...
Erinner mich mal dran, das probier ich mal.

[alzaimar]

Sooo. Das Design wird ja nun bald (gemeinsam?) optimiert.

Ich habe einen fetten Bug gefunden:
Ich hab das mal über meine Platte laufen lassen. Nach > 12.000 Dateien mit ca. 750 MB musste ich die Anwendung killen, da es 750MB virtuellen Speicher angefordert und meine mit 1GB ausgestattete Mühle in die Knie gezwungen hat. Ich vermute also, das irgendwo ein Speicherleck ist.

Saug Dir MemProof oder gleich FastMM4 und gehe mal auf die Suche nach den Lecks.

Kleinigkeit (nicht zum Design an sich):

Grundsätzlich sollten nicht bedienbare Elemente disabled sein.

Dateiliste leer--> Löschen-Buttons dürfen dann nicht gehen
Suche nicht gestartet --> "Suche abbrechen" ist disabled
Suche gestartet ---> "Suche starten" ist disabled

Und ich habe nichts gegen Buttons, die eine etwas längere Beschriftung haben. Kurz, prägnant, aussagekräftig. Und dann gibt es noch die Hint-Eigenschaft, die alle Unklarheiten beseitigt.

Ich hab mich noch nicht rangemacht, aber eventuell kann man die Suche noch verbessern. Es gibt doch hier (oder im Delphi-Forum?) DriveTools von Lucke(?) bzw. Heiko....

Zum Schluss nochmal: Dein Tool ist wirklich praktisch!

[Fuchtel]

Hallo,

Aus SwissDelphiCenter

...in einer Listbox einen horizontalen Scrollbalken anzeigen?
Autor: Thomas Stutz

Delphi-Quellcode:

procedure HorScrollBar(ListBox: TListBox; MaxWidth: Integer);
var
  i, w: Integer;
begin
  if MaxWidth = 0 then
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0)
  else
  begin
    { get largest item }
    for i := 0 to ListBox.Items.Count - 1 do
      with ListBox do
      begin
        w := Canvas.TextWidth(Items[i]);
        if w > MaxWidth then
          MaxWidth := w;
      end;
    SendMessage(ListBox.Handle, LB_SETHORIZONTALEXTENT,
      MaxWidth + GetSystemMetrics(SM_CXFRAME), 0);
  end;
end;

Fuchtel

[Go2EITS]

Zitat:

Wie kommst den da drauf?
Ne leere Platte hab ich doch grad gar nicht.

Da ein verwendet hast: War nur ein Scherz.

Zitat:

Da gibts doch noch den "alten" Cleaner den könnt' ich mal wieder in gang bringen und vom DLS befreien...
Erinner mich mal dran, das probier ich mal.

Erinnere mich mal, dass ich Dich erinnere, Dich zu erinnern. Mach ich dann gerne.

10 Jahre Delphi 2? Ich kann Dir als ehemaliger Anhänger von Turbopascal, da hast Du schon Delphi programmiert, wärmstens TurboDelphi empfehlen. Ist kostenlos. Und Programmieren macht wieder Spass.
In der DP Hauptseite sind Links dazu.

@alzaimar

Zitat:

Sooo. Das Design wird ja nun bald (gemeinsam?) optimiert.

Eure Vorschläge sind ja auch fundiert. Und ich flexibel.
12.000 Files und 750 MB? Puh, da wird es Zeit zum Aufräumen.
BUG? Naja. Die Dateien werden bei der Suche schon in den Speicher gecacht. Und wenn es 2 GIG sind, macht dies wohl auch nichts. Aber die Suche dauert bei der Menge, insbesondere wenn der Speicher kleiner ist. Wenn das Ram nicht ausreicht, wird Ram oder Programmteile in die pagefile.sys ausgelagert, wie bei allen anderen Programmen auch. Wenn Deine Festplatte mit der pagefile.sys zur Vergrösserung kein Platz mehr hat, meldet Windows dies, oder auch nicht und "friert" ein. Sieh Dir das bitte mal an.
Spätestens wenn Du eine andere Anwendung laufen läßt, z.B. Grafikprogramm, wird Dein Computer durch die Vergößerung in die Knie gezwungen. Was ich nicht noch nicht eingebaut habe, ob das Backup noch mit 750 MB auf die Platte passt. Diese fehlende Abfrage, werde ich mit einbauen. Das Backup übrigens zur Sicherheit als Default eingeschaltet. Lösche mal nicht alle Dateien auf einmal, dann funzt es. 12.000 Dateien sind ja gigantisch. Da kommt mein Tool gerade richtig.
Grundsätzlich sollten nicht bedienbare Elemente disabled sein. Sehe ich auch so.
Kommt, wenn der Kern steht. Habe ich unter der Rubrik Design eingeordnet, also zweitrangig. Die Hints kommen, wie bei meinen andern Projekten am Schluss. Da kürze ich dann die Beschriftungen. Sehe ich genauso wie Du.

Die Suche basiert auf GetAllFiles von Torry geht ganz gut und läßt sich universell einsetzten. Luckies Like sehe ich mir später an. Aber erstmal scheint es so weit seinen Zweck zu erfüllen. Danke für die guten Vorschläge!

Ich darf es noch mal wiederholen: 12.000 Files und 750 MB! Da lohnt sich mein Tool. Ab ins Backup, auf eine CD Brennen und Backup löschen. Das lohnt sich.

@Fuchtel: Danke!!!!!!!!!
Das füge ich ein.
Kein Wunder dass ich nichts finde, ist in Delphi wohl nicht implementiert.

Beste Grüße und Danke für das Lob! So. Bin vorerst offline. Arbeit ruft.
Mit Euch wird das Tool ja was!
Go2EITS

[Luckie]

So langsam, haben wir ein brauchbares Design. Übernimm noch die Vorschläge von alzaimar und vershe die Schaltflächen und Checkboxen mit Shortcuts.

[Go2EITS]

@alzaimar
Hast recht, doch ein BUG. Bei der Suche hatte ich vergessen, die Liste im Speicher, wenn TStringlist.count > 0 ist, mit Tstringlist.clear zu initalisieren. Die Liste wurde bei Dir wohl nach dem zweiten mal Suchen gigantisch. Danke für den Hinweis.

Wie ich im Button das S so markiere (Suche) habe ich als Frage in einem anderen Thread gestellt. Die Sortcuts laufen schon, nur die Anzeige des Unterstriches im Button ist mir noch nicht geläufig.

Beste Grüße
Go2EITS

[Luckie]

Setze ein & vor den Buchstaben. Und je nach dem wie dein Windows eingestellt ist, siehst du das erst, wenn du die Alt-Taste drückst.

[Go2EITS]

Hab ich gemacht. Ich sehe die Shortcuts. Vielen Dank!

So: Zwischenstand von Eurem Auftragsprogrammierer:

- Die Buttons werden je nach Zustand des Porgrammes enabled bez. disabled.
- Shortcuts eingebaut
- Checkbox statt Button: Gewählte Dateien werden ins Backup abgelegt.
- Parameter -Silent und -Backup für Batch eingebaut.

So nun noch die Verzeichnisse für Luckie, einen horizontalen Scrollbalken und Logdateien für Fuchtel. Ach ja: Die zwei Checkboxen müssen auch noch irgendwie von Euch belegt werden können. Das wird ein wenig dauern...

Ich kann mit nicht ganz von den Labels trennen: Die Logdateien ansehen und löschen (siehe Screenshot) werden auch noch ausgeschaltet, wenn gar keine Logdadeien vorhanden sind. Diese möchte ich nicht als Buttons, um die untergeordnete Rolle darzustellen. Seid Ihr damit einverstanden?

Übrigens: Heute sehr viel mit Euch gelernt!
Viele Grüße an alle "Helfer".
Go2EITS