harddiskin kapasitesi ve boş alanı

[kubra_21]

harddiskin kapasitesini ve boş alanını bulma işlemini nasıl yağabilirim delphide arkadaşlar yardımcı olursanız sevinirim...

[Ottoman]

Slm..Bu Kodla gösterebilirsin!.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
var
 i:Integer;
 begin
  Memo1.Clear;
  for i:=1 to 26 do
  if DiskSize(i) <> -1 then
    begin
    Memo1.Lines.Add(chr(i+64)+':'+IntToStr(DiskFree(i) div 1048576) +' MB Boş');
    Memo1.Text:=Memo1.Text+FloatToStrF(DiskSize(i) / 1048576,ffFixed,10,2) + 'MB Kapasite';
    Memo1.Text:=Memo1.Text+#9'>>>>'#9;
    Memo1.Text:=Memo1.Text+FloatToStrF(DiskFree(i) / 1048576,ffFixed,10,2) + 'MB Boş';
  end;
end;