Verificando o tipo de drive ii

{Verificando o tipo de Drive O código abaixo
implementa uma função para testar qual o
tipo de drive da unidade especificada.

Para isto, é necessário utilizar uma função de
API do windows chamada GetTypeDrive.

Esta função retorna valores default que
indicam o tipo de drive selecionado.(Drive_Removable,Drive_Fixed,Drive_Remote,Drive_
CdRom,Drive_RamDisk)}


Function Tipo_Drive(Drive:Char):String;
Const
Drive_Removable = 2;
Drive_Fixed = 3;
Drive_Remote = 4;
Drive_CdRom = 5;
Drive_RamDisk = 6;
var
Tipo: byte;
begin
Tipo := GetDriveType(PChar(Drive + ':'));
Case Tipo of
0: Result := 'Indeterminado';
1: Result := 'Inexistente ';
2: Result := 'Removível';
3: Result := 'Fixo';
4: Result := 'Rede';
5: Result := 'CD-ROM';
6: Result := 'RAM Disk';
else Result := ' Erro';
End;
end;