Kennt jemand von euch zufällig so ein (Freeware) Tool, mit dem man z.B. in einem kleinen Fenster auf dem Desktop die freien Kapazitäten der eingebauten Festplatten im Auge behalten kann (vielleicht über eine Balkengrafik)?
Sollte unter Windows Server 2003 laufen.

.sundance.

Selber machen?

Timer und G_SizeRecArray rausmalen?

zusammenfalten · markieren

Delphi-Quellcode:

type
 TSizeRec=Record
 LW:String;
 Size:Int64;
 Free:Int64;
 End;
 TSizeRecArray=Array of TSizeRec;
var
 G_SizeRecArray:TSizeRecArray;

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Byte;
  size:Int64;
begin
 SetLength(G_SizeRecArray,0);
 for I := 1 to 27 do
   begin
     size := DiskSize(i);
     if Size>0 then
        begin
           SetLength(G_SizeRecArray,High(G_SizeRecArray) + 2);
           G_SizeRecArray[High(G_SizeRecArray)].LW := Char(i + 64);
           G_SizeRecArray[High(G_SizeRecArray)].Size := Size;
           G_SizeRecArray[High(G_SizeRecArray)].Free := DiskFree(i);
        end;
   end;
end;

Hab mir mal den Spass gemacht ....

Source liegt bei zur freien verwendung

Das wär auch was:
http://gallery.live.com/liveItemDeta...3ceb&bt=1&pl=1
Sidebar Gadget für Windoof Vista/7. Auch wenns unter Server 2003 nicht funktioniert. Vielleicht hilf es ja jmd.

Eine andere alternative wäre Zeus. Damit können auch mehrere Platten überwacht werden. Wenn es im Tray ist, so werden die Laufwerke über ein Popup angezeigt, welche unter ein bestimmtes Limit gekommen sind. Die Limits sind einstellbar wie eine Ampel.

Zitat von Bummi:

for I := 1 to 27 do

ihhhhh ... ich würde GetLogicalDrives oder GetLogicalDriveStrings vorschlagen.
Und seit wann hat unser Alphabet 27 Buchstaben?

FindFirstVolume kann auch nicht schaden, denn nicht jeder Bindet alle seine Laufwerke/Partitionen über so altmodische Laufwerksbuchstaben ein.

Wenn man ReadOnly-Laufwerke, wie CD/DVD und nicht eingelegte Wechsellaufwerke ausschließt, dann könnte das auch nicht schaden.

Das von Bummi genannte Beispiel ist fehlerhaft:
- Die Form wird an den erforderlichen Platz nicht angepasst
- Rundungsfehler: aus z.B. 1,85 GB sollte man nicht 1 GB machen!

Getestet nur auf WIN XP.

Ja es war fehlerhaft und 0% optimiert, das ganze war ein 15 min. Quickhack zum fertigbasteln und keine finsle Anwendung.

Warum habe ich jetzt Quicky gelesen.

2,5 Min. sind ein Quickie, 15 Min. ist mit Vorspiel oder ein Dreier...