| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

FAT | NTFS ? [D6, WinXP]

psa247 ©   (2005-05-22 11:39:00) 

Как узнать, что на локальном диске?

---

begin...end   (2005-05-22 12:26:00) [1]

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.

---

rOOse   (2005-05-22 12:15:00) [2]

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;

---

psa247   (2005-05-22 12:13:00) [3]

Буду рад

---

rOOse   (2005-05-22 12:12:00) [4]

Пример надо?

---

psa247   (2005-05-22 12:09:00) [5]

Оно. Благодарю

---

psa247   (2005-05-22 12:00:00) [6]

Ну да, что за файловая система на диске

---

rOOse   (2005-05-22 11:59:00) [7]

если да то пользуйся GetVolumeInformation

---

rOOse   (2005-05-22 11:52:00) [8]

Ты имеешь ввиду ntfs это или fat диск да:

---

Наверх