Einzelnen Beitrag anzeigen

Tonki

Registriert seit: 18. Sep 2006
10 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: Freier-/Belegter Speicher von Laufwerken

  Alt 5. Okt 2006, 21:29
langsam glaub ich irgendwie das mein IQ der eines brotes ist ^^ habs immernoch net gepeilt und es funktioniert auch immernoch nich...

da kommt mir dann noch die frage -> so wie ich das jetz verstanden hab bräuchte ich dann nur einen radiobutton wenn er alle laufwerke von c bis z abfragt aber ich hätte da gern sowas wie eine auswahl also das ein radiobutton die variable C um einen anderen laufwerksbuchstaben ersetzt und nich alle abtastet... dafür bräuchte ich ja keinen radiobutton das könnt ich in den standartbutton mit einbauen das er das machen soll

kann aber natürlich auch sein das ich das (wie immer -.-*) falsch verstanden hab in dem fall hab ich nix gesagt ^^

mein code sieht jetzt wie folgt aus:
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;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
   
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

function DiskInfo(Drive:Char; var total, avail: Int64): Boolean;
begin
  Result:=GetDiskFreeSpaceEx(PChar(Drive+':\'), avail, total, nil);
end;

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

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

procedure TForm2.RadioButton1Click(Sender: TObject);
var c:Char;
total, avail:Int64;
begin
   For c:='cto 'zdo begin
      // Hier noch prüfen, ob Laufwerk eine Festplatte ist
      DiskInfo(c, total, avail);
      ListBox1.Items.Add('Freier Speicher auf Laufwerk '+c+': '+IntToStr(avail div 1024 div 1024)+' MB))'; //
   end;
end;

end.
im radiobutton sind wieder nahezu alle parameter nicht deklariert =(
  Mit Zitat antworten Zitat