Manejo de archivos

[aeff]

ahhh!!, si notas que se tarda mucho, entonces te recomiendo que hagas lo siguiente:

Dentro de la función GetDocAsTxt hay dos lineas que dicen asi:

Código Delphi [-]
  WordApp.ActiveDocument.Close;
  WordApp.Quit;

esas dos remplazala por estas:

Código Delphi [-]
  ShellExecute(Application.Handle, nil, 'tskill', 'WINWORD', nil, SW_HIDE);
  Sleep(100);

y no olvides añadir en el uses la unit ShellApi si vas a trabajar con ShellExecute,

saludos,
aeff!!

[zvf]

Muchas muchas gracias, funciona de maravilla...
De verdad que me impresiona ver como ustedes prestan su tiempo para apoyar a otras personas, esto que te estoy pidiendo es para hacer un proyecto que va a beneficiar a personas SordoCiegas aquí en México, así que si funciona como lo planeamos, prometo darte créditos y además claro, de promover el foro.

Oye, una duda más, si yo quiesiera que no solo fueran archivos *.doc; sino tambien *.pdf o de otras extensiones.

¿Hay alguna forma de hacerlo?

Gracias!

[aeff]

mira, no te preocupes por los creditos, si vas a ser referecia a esta ayuda que te he dado solo hazlo a nombre de ClubDelphi,

te doy gracias a ti por haberme agradecido, asi de simple,

bueno, para los *.pdf si no tengo ni idea, pero te prometo que voy investigar como hacer los mismo con estas extenciones, puede que exista alguna forma de hacer automatizaciones con Acrobat Reader o encontrar algunos componentes para leer *.pdf que yo no conozco y es posible que alguien aqui en este club conozca.

por favor, respondanle a [zvf] lo antes posible si alguien conoce de esto, ya saben que el objetivo de su trabajo ayudara a personas con discapacidades.
muchas gracias, y un gran saludo

aeff!!