Hola,
Me permito añadir una línea a una de las funciones escritas por
roman más arriba, de tal modo que quede como sigue:
Código Delphi
[-]
uses
Masks;
function IsDrive(S: String): Boolean;
begin
S := IncludeTrailingPathDelimiter(S);
Result := MatchesMask(S, '[a-z]:\');
end;
De ese modo la función devolverá "True" tanto si se pasa como parámetro "C:\" como si se pasa "C:", por ejemplo.