Jak sprawdzić ilość partycji

0

Tak jak w temacie, ale chodzi mi żeby to była liczba np. 3 nie uwzględniająca FDD, CD, DVD itd.

0
var
 PozBufor, Bufor: PChar;
 i: integer;
 Lista: TStringList;
begin
 Lista := TStringList.Create;
 i := GetLogicalDriveStrings(0, nil);
 if i = 0 then Exit;
 GetMem(Bufor, i + 1);
 try
  if GetLogicalDriveStrings(i, Bufor) = 0 then Exit;
  PozBufor := Bufor;
  while PozBufor^ <> #0 do
    begin
     if GetDriveType(PChar(PozBufor)) = DRIVE_FIXED then Lista.Add(PozBufor);
     PozBufor := PozBufor + StrLen(PozBufor) + 1;
    end;
  finally
   FreeMem(Bufor);
  end;

 Lista.Free;
end;

Teraz sprawdzaj ilośc wpisów, co równa się ilości partycji:

Lista.Count;

1 użytkowników online, w tym zalogowanych: 0, gości: 1