Fórum funções??? #189932

procedure GetDriveInfo(Drive: Char; out Serial: DWORD; out Size: Int64);
begin
  Drive := UpCase(Drive);
  GetVolumeInformation(PChar(String(Drive) + ´:\´), nil, 0, @Serial, Cardinal(nil^),
    Cardinal(nil^), nil, 0);
  Size := DiskSize(Ord(Drive) - Ord(´A´) + 1);
end;

var
  Sr: DWORD;
  Sz: Int64;
begin
  GetDriveInfo(´C´, Sr, Sz);
end;