Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c