Tak jak w temacie, ale chodzi mi żeby to była liczba np. 3 nie uwzględniająca FDD, CD, DVD itd.
0
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;