Meghajtó típusa

Ritkán fordul elő, hogy egy "E" meghajtóról kéne megállapítani, hogy az hdd, vagy cd-rom. Ezt mutatja be az alábbi példa.

procedure TForm1.Button1Click(Sender: TObject);
var
i,typ: Integer;
c,forma: String;
begin
for i:=Ord('A') to Ord('Z') do
begin
c:=chr(i)+':\';
typ:=GetDriveType(PChar(c));
case typ of
0: forma:=C+' valami hiba';
1: forma:=C+' ez is valami hiba';
Drive_Removable: forma:=C+'Drive_Removable';
Drive_Fixed: forma:=C+'Drive_Fixed';
Drive_Remote: forma:=C+'Drive_Remote';
Drive_Cdrom: forma:=C+'Drive_Cdrom';
Drive_Ramdisk: forma:=C+'Drive_Ramdisk';
end;
if not ((typ=0) or (typ=1)) then
ListBox1.Items.AddObject(forma, Pointer(i));
end;
end;