Вот найденный мною алгоритм:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
LogDrives: set of 0..25;
begin
integer(LogDrives) := GetLogicalDrives;
for i := 0 to 25 do
if (i in LogDrives) then
ListBox1.Items.Add(chr(i + 65));
end;
И у меня тут же возникает вопрос: как сделать так чтобы выбрав диск из Listbox получить общее количество места на диске и свободное место и вывести результаты в поле Memo?
|