Jak odczytać wszystkie dyskiw systemie

Kto wie jak odczytać ile jest dysków w systemie zainstalowanych??

STRING drives
INT a
GetLogicalDriveStringsA(254, &drives)
a=3
	While drives[a+1] <> 0
		drives[a]=" "
		a+=4
	Wend
messagebox 0, drives,""

program wyświetla a:\ c:\ d:\ e:\ ...
albo po kolei otwieraj wszystkie partycje (a-z) FindOpen...

Całkiem użyteczna forma jak wrzucimy dostępne dyski do StringList:

char *line, Drives[82];
Drives[81]=0;
TStringList *stacje;
stacje = new TStringList;

if (GetLogicalDriveStrings(80, Drives))
{line = Drives;
//--- Zamiana stringów zakończonych '/0' i na końcu "/0/0" na StringList
  do
  {stacje->Add(line);
   line = StrEnd(line)+1;
  }while (*line!=0);
//--- Koniec zamiany
//..... używasz już zmiennej 'stacje'
}