harddiskin kapasitesi ve boş alanı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
harddiskin kapasitesi ve boş alanı
harddiskin kapasitesini ve boş alanını bulma işlemini nasıl yağabilirim delphide arkadaşlar yardımcı olursanız sevinirim...
Allah Namına Al Allah Namına Ver Vesselam...
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;