Wie's direkt geht, weiß ich nicht.
Aber du könntest diese Procedure in einer Schleife durchlaufen.
Die Partitionen findest du so heraus:
http://www.delphipraxis.net/internal...ht=laufwerk%2A
Die Patitionen allein bekommst du, indem du nur die
DRIVE_FIXED
beachtest.