Extrae la letra de unidad de una ruta dada.
Ejemplo de uso:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
if ConectarServidorEmail(txtServidor.Text, txtUsuario.Text, strtoint(txtPuerto.Text)) then begin obtenerDatosUnidad (ExtractFileDrive (txtCarpetaDestino.Text)); enviarEmail (txtServidor.Text, txtUsuario.Text, txtContrasena.Text, strtoint(txtPuerto.Text), 'Copia de Seguridad - Iniciada el ' + DateToStr(horaInicio) + ' a las ' + timetostr(TimeOf(horaInicio)), 'La copia de seguridad que ha ' + 'programado se ha iniciado correctamente el día ' + DateToStr(horaInicio) + ' a las ' + timetostr(TimeOf(horaInicio)) + '.' + chr(13) + chr(13) + 'Aviso proporcionado por AjpdSoft Copia de Seguridad.', opAutenticacion.Checked, txtEMailEmisor.Text, txtNombreEmisor.Text, txtEMailDestinatario.Text, txtCC.Text); end; |
Use SysUtils;
