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]

Пример надо?

Буду рад

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;

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.

FAT | NTFS ? Найти похожие ветки