Código Delphi [-] Function UnidadLista(Unidad: Char): Boolean; begin Result:=FileExists(Unidad+':\NUL'); end;
Function UnidadLista(Unidad: Char): Boolean; begin Result:=FileExists(Unidad+':\NUL'); end;