Filsystem

Måske lidt utydeligt, men f.eks. vil jeg gerne kunne vise et diagram med mapper af den ene akse og deres % af harddisken på den anden.

De findes! Se fx denne søgning på \"diskmonitor\": http://www.google.com/search?q=diskmonitor
Find en, se om den kan hvad du skal bruge og hent den! :o)

skriv en kode der tæller alle mb sammen på din computer og gemmer det hele i en Tprogressbar. eks:

procedure TForm1.FormCreate(Sender: TObject);
var
  drive : char;
  i, fsize : integer;
begin
i := 1;
for drive := \'A\' to \'Z\' do
  begin
    if getdrivetype(pchar(drive + \':\\\')) = drive_fixed then
    fsize := disksize(i);
    inc(i);
  end;
progressbar1.max := fsize;
end;

nu har du gemt din total størrelse af din HD i en Tprogressbar...
Nu laver du en slags \"Stifinder\". I dette tilfælde nøjes vi med at bruge Tdirectorylistbox og en Tfilelistbox - bare for vise teknikken!
I directorylistbox1 onChange procedure skriver du følgende;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
var
  f : file of byte;
  size : longint;
  i : integer;
begin
filelistbox1.directory := directorylistbox1.getitempath(directorylistbox1.itemindex);
size := 0;
if filelistbox1.items.count > 0 then
for i := 0 to filelistbox1.items.count-1 do
//læser alle filers størrelse i mappen
  begin
    try
    assignfile(f, filelistbox1.items[i]);
    reset(f);
    size := size+filesize(f);  //læser filen størrelse
    closefile(f);
    progressbar1.position := size;
    except
    //her indsættes eventuelt en fejlmeddelse
    end;
  end;
end;

Sådan kan det gøres. Der findes sikkert andre måder at gribe det an på...

ZeroHero

jeg vil lige kigge på din kode og se om jeg kan bruge noget af den, men der er en dog ting som jeg skal ændre. Det skal kunne ses som et diagram/billede, men jeg kan vel lege med canvas.

Der findes allerede et glimrende program til dette formål. Prøv at søge på TreesizePro på sharewaresiderne.

I stedet for Tprogressbar kan du bare bruge:

Tgauge og lav kind om til gkPie...

eller hvis det skal være lidt mere avanceret kan du bruge:

Tgraph

eller hvis det skal være helt \"tovli flot\" *GG* så brug :

Tchartfx eeler Tvtchart

ZeroHero