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

[Sunlight7]

Ergebnis: 0 Dateien, 0 Bytes :-D

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... :zwinker:
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. :mrgreen:

[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. :gruebel: 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. :zwinker:

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

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

[Sunlight7]

Wie kommst den da drauf? :gruebel:
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.

:gruebel: Da gibts doch noch den "alten" Cleaner :gruebel: den könnt' ich mal wieder in gang bringen und vom DLS befreien... :gruebel:
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 :gruebel: verwendet hast: War nur ein Scherz. :-D

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.

Delphi-Quellcode:

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! :thumb:

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! :thumb:
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: :wink:

- 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? :zwinker:

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