Hvordan gemmer jeg disk forbrug?

Hej

Jeg har lavet et lille program som kan vise ens drev forbrug.

Men hvordan kan jeg få den til at gemme forbruget i en fil? .txt eller .ini?

Mvh Kim - FreeSoft
_______________________________
http://thefreeworld.frac.dk

Kode 

procedure SkrivStrengITextFil(filnavn: string; Streng: string);
var
   fil: textfile;
begin
AssignFile(fil, filnavn);

//Vi skriver til slutningen af filen
Append(fil);

//skriv strengen
Writeln(fil, streng);

//Luk filen
CloseFile(fil);
end;

Hej

Jeg har lavet et lille program som kan vise ens drev forbrug.

Men hvordan kan jeg få den til at gemme forbruget i en fil? .txt eller .ini?

Mvh Kim - FreeSoft
_______________________________
http://thefreeworld.frac.dk

Hej hvis jeg var dig ville jeg gemme den i en .ini fil jeg kan godt hjælpe med det, kontakt mig over MSN fra 16.30 --> ? og på ICQ fra 07.45 --> 15.00

ellers så skriver jeg her engang i løbet af dagen....

¤¤¤Vi lære kun så længe vi lever¤¤¤

Du kan bruge denne procedure:

Kode 

procedure SkrivStrengITextFil(filnavn: string; Streng: string);
var
   fil: textfile;
begin
AssignFile(fil, filnavn);

//Vi skriver til slutningen af filen
Append(fil);

//skriv strengen
Writeln(fil, streng);

//Luk filen
CloseFile(fil);
end;

Kode 

s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);

brugt := total - ledig; // Finder brugt MB

total, brugt etc. er integer variabler

Hvorfor er de double. DiskFree og DiskSize returner en Int64.

Kode 

  s : char;
  total,ledig,brugt : double;
  i : integer;
begin

s := drivecombobox1.Drive;
total := disksize(ord(s) - 64);
ledig := diskfree(ord(s) - 64);

ledig := ledig;
total := total;