Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
3-84917
petyun
2002-08-06 15:57
2002.08.26
Ошибки SQL Midas


8-85131
Янушка
2002-04-18 14:26
2002.08.26
Как организовать простенькую анимацию в Delphi?


1-85090
Aries
2002-08-14 20:15
2002.08.26
Проблема с точками остонова


14-85246
BigBadMutuh
2002-08-01 13:24
2002.08.26
Книга по ADO.


1-85033
andrey_pst
2002-08-14 09:24
2002.08.26
Как распечатать содержимое TMemo ?