Сидит программер, клепает свою прогу, тут звонок в дверь.
Программер открывает - там смерть с косой стоит. Он в панике: "Смерть, дай мне еще полчаса, я закончу прогу, над которой работал два года и можешь меня забирать..."
Смерть ему в ответ: "Я не за тобой, я за твоим винтом!"
procedure TForm1.Button1Click(Sender: TObject);
var
ld: DWORD;
i: integer;
begin
ld := GetLogicalDrives;
for i := 0 to 25 dobeginif (ld and (1 shl i)) <> 0 then
Memo1.Lines.Add(Char(Ord('A') + i) + ':\');
end;
end;
Статья Как получить список доступных носителей раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal.
