Letra de Driver disponível

Olá a todos, nesse artigo irei demonstrar como podemos listar a primeira letra de Driver disponível em sua máquina. Essa rotina é útil por exemplo se você deseja realizar um mapeamento de rede e não sabe quais letras já estão em uso, então a rotina retorna a primeira letra disponível.

function GetAvaliableDrive: String;
var
   i : Integer;
   DriveBits : set of 0..25;
begin
Integer(DriveBits) := GetLogicalDrives;
for i := 3 to 25 do
  if not (i in DriveBits) then
     begin
     Result := Chr(65 + i) + ':';
     Break;
     end;
end;

Iniciei o loop for..do com o valor 3 somente para excluir da listagem os drivers "A", "B" e "C". Caso queira validar esses drivers também basta iniciar o loop com o valor 0. Um abraço a todos e até o próximo artigo.