Текущий архив: 2002.08.26;
Скачать: CL | DM;
Вниз
Disk Найти похожие ветки
← →
yar (2002-06-12 19:22) [0]Как можно определить тип файловой системы.
И сирийный номер диска.
заранее благодарен.
← →
Almaz © (2002-06-13 02:00) [1]Например так:
var
VolumeName: array [0..MAX_PATH] of Char;
SerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
FileSystemName: array [0..25] of Char;
begin
GetVolumeInformation("C:\", VolumeName, sizeof(VolumeName),
@SerialNumber, MaximumComponentLength, FileSystemFlags,
FileSystemName, sizeof(FileSystemName));
Edit1.Text := VolumeName; // Метка диска
Edit2.Text := IntToStr(SerialNumber); // Серийный номер
Edit3.Text := FileSystemName; // Файловая система
end;
Удачи.
Страницы: 1 вся ветка
Текущий архив: 2002.08.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.018 c
