[Ross]

Как мне определить кол-во дисков и их имена.

[Ross]

Вот найденный мною алгоритм:

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?

[Admin]

Сообщение от Ross

И у меня тут же возникает вопрос: как сделать так чтобы выбрав диск из Listbox получить общее количество места на диске и свободное место и вывести результаты в поле Memo?

Думаю это то, что тебе нужно http://www.delphisources.ru/pages/so...rive_info.html

[Ross]

ООООгромное спасибо!:d