Текущий архив: 2005.07.18;
Скачать: CL | DM;
Вниз
FAT | NTFS ? Найти похожие ветки
← →
psa247 © (2005-05-22 11:39) [0]Как узнать, что на локальном диске?
← →
rOOse © (2005-05-22 11:52) [1]Ты имеешь ввиду ntfs это или fat диск да:
← →
rOOse © (2005-05-22 11:59) [2]если да то пользуйся GetVolumeInformation
← →
psa247 © (2005-05-22 12:00) [3]Ну да, что за файловая система на диске
← →
psa247 © (2005-05-22 12:09) [4]Оно. Благодарю
← →
rOOse © (2005-05-22 12:12) [5]Пример надо?
← →
psa247 © (2005-05-22 12:13) [6]Буду рад
← →
rOOse © (2005-05-22 12:15) [7]procedure TForm1.DriveComboBox1Change(Sender: TObject);
var
VolName: array [0..255] of char;
FSName : array [0..100] of char;
VolSN: PDWORD;
MaxCompLen,FSFlags: Cardinal;
FC,SPC,BPS,NC:DWORD;
s: string;
begin
VolSN:=nil;
s:=UpperCase(DriveComboBox1.Drive)+":\";
Label1.Caption:=s;
if (GetVolumeInformation(PChar(s),VolName,255,
VolSN, MaxCompLen, FSFlags,FSName,100)) then
begin
Label2.Caption:="Имя тома: "+AnsiString(VolName);
Label3.Caption:="Файловая система: "+AnsiString(FSName) ;
if GetDiskFreeSpace(PChar(s),SPC,BPS,FC,NC) then
Label4.Caption:="Свободных байт: "+IntToStr(SPC*FC*BPS)
else Label4.Caption:=""
end
else
begin
Label2.Caption:="Диск не готов";
Label3.Caption:="";
Label4.Caption:=""
end;
end;
← →
begin...end © (2005-05-22 12:26) [8]
var
pFileSystemName: PChar;
begin
GetMem(pFileSystemName, 100);
try
if GetVolumeInformation("C:\", nil, 0, nil, Cardinal(nil^), Cardinal(nil^), pFileSystemName, 100) then
ShowMessage(pFileSystemName)
finally
FreeMem(pFileSystemName)
end
end.
Страницы: 1 вся ветка
Текущий архив: 2005.07.18;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.033 c
