當要知道所選的驅動器屬于什么類型時，請看下面的程序。    var
    x:integer;
    driver:pchar;
begin
    driver:='f:\';
    x := GetDriveType(driver);
    Case x of
        2: Label1.Caption := '該驅動器是可移動驅動器';
        3: Label1.Caption := '該驅動器是固定驅動器';
        4: Label1.Caption := '該驅動器是網絡驅動器';
        5: Label1.Caption := '該驅動器是CD-ROM驅動器';
        6: Label1.Caption := '該驅動器是虛擬驅動器';
        Else Label1.Caption := '該驅動器無效';
    End;
end;