Freier-/Belegter Speicher von Laufwerken

[Tonki]

hallo zusammen!

wie der titel schon sagt würd ich gern ein programm bauen was mir den freien und belegten speicher eines laufwerks anzeigt
hab natürlich erst mal in der code library nachgeschaut und bin fündig geworden (Link zur Library)!
nun hab ich 2 probleme *grübl*

1.
hab das programm erstmal klein gebaut (was ich damit meine kommt bei frage 2 ). also die funktion auf einen button gelegt der mir von Laufwerk C (bootpartition) den speicher anzeigen soll! es kommen da zahlreiche fehlermeldungen das so ziemlich alle befehle nicht deklariert sind, die beim button stehn... nun weiss ich leider nicht wie ich sie deklarieren soll... also als was?
hier mein bisheriger code:

Delphi-Quellcode:

unit SpeicherCheck;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    RadioButton1: TRadioButton;
    Button1: TButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
procedure Button1Click(Sender: TObject);
function DiskInfo(dir: String; var total, avail: Int64): Boolean;
begin
  dir := IncludeTrailingPathDelimiter(ExtractFilePath(dir));
  Result := GetDiskFreeSpaceEx(PChar(dir), avail, total, nil);
end;

var
  TotalSpace, AvailSpace: Int64;

procedure TForm2.Button1Click(Sender: TObject);
begin
  DiskInfo('C', TotalSpace, AvailSpace);

  ShowMessage(Format(
  'Gesamt: %.0n Bytes, Frei: %.0n Bytes',
  [1.0 * TotalSpace,
   1.0 * AvailSpace]));
end;



end.

nicht über die radiobuttons wundern das is teil von frage 2 ^^


nun die zweite frage von der ich die ganze zeit schreibe:
wenn ich mit ein bissl hilfe das speicher checken zum laufen bekomme würd ich gern auch andere laufwerke, also nich nur C sondern auch die andern anzeigen lassen! aber weil ich von diesem "für jede funktion mach ich jetz nen button weil ichs nich besser kann" weg will und was neues probiern mag hab ich mir gedacht das ich mir da ein paar radiobuttons reinsetze und nur einen button benutze! also für jedes laufwerk im rechner einen radiobutton den man auswählen kann und dann untendrunter nur einen einzigen button mit dem man dann den speichercheck des laufwerks was man durch die radiobuttons ausgewählt hat durchführt! vom prinzip her ist es klar -> ich muss den radio buttons sagen das sie bei dieser stelle hier

Delphi-Quellcode:

begin
  DiskInfo('C', TotalSpace, AvailSpace);

  ShowMessage(Format(
  'Gesamt: %.0n Bytes, Frei: %.0n Bytes',
  [1.0 * TotalSpace,
   1.0 * AvailSpace]));
end;

den laufwerksbuchstaben einfach ändern! nunja das is leichter gesagt als getahn vor allem weil ich auch nich weiss wonach ich suchen könnte um das in der code library zu finden... deshalb bin ich da leicht überfordert *schäm* hat da jemand vll eine lösung für mich? mag wie gesagt nich immer alles mit buttons machen...

liebe grüße

Tonki