Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Июн

Как узнать букву жесткого диска и информацию о нём?

Posted by Chas under Топик-обзор

Возникла такая проблема: хочу написать программу, которая определяет все жёсткие диски, которые подключены в системе (в том числе и по usb) выводит названия самих дисков и буквы томов (под которыми они видны в системе), расположенных на этих дисках.

volod3000:
Вот еще такое есть : (вложенный файл).
Применение :



Var
	S,SOut : String;

	I : Integer;

	VolumeName,FileSystemName : String;

	VolumeSerialNo,MaxComponentLength,FileSystemFlags:LongWord;
begin

	S:=GetDisks(DiskHDD); {Получаем список Жёстких дисков (Параметр DiskHDD)}

	SOut:='';

	For I:=1 to Length(S) do {Получаем информацию о всех дисках и пишем в TLabel на форме}
	Begin
	{Если диск существует/вставлен ...}

	if GetHDDInfo(S[I], VolumeName, FileSystemName, VolumeSerialNo,

	MaxComponentLength, FileSystemFlags) then {... тогда собираем информацию}

	SOut:=SOut+

	'Диск: '+S[I]+#13#10+

	'Метка: '+VolumeName+#13#10+

	'Файловая система: '+FileSystemName+#13+#10+

	'Серийный номер: '+IntToHex(VolumeSerialNo,8)+#13+#10+

	'Макс. длина имени файла: '+IntToStr(MaxComponentLength)+#13+#10+

	'Flags: '+IntToHex(FileSystemFlags,4)+#13#10+#13#10;
	End;
	Memo2.Lines.Add(SOut); {Выводим  полученные данные о дисках}
end;