ExtractFileDrive (path)

Extrae la letra de unidad de una ruta dada.

Ejemplo de uso:

    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;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario