Evitar Borrado de Carpetas

[lKinGl]

Salu2 compañeros..

Tengo una pequeña aplicación que guarda archivos *.qrp dentro de varias carpetas para mantener ordenados los archivos, me gustaria saber que debo hacer para que la carpeta sea imposible de eliminar ya que si se elimina el software empezará a dar error de que no consigue la ruta

gracias adelantadas

[*Caro*]

Empezado por lKinGl

.......... ya que si se elimina el software empezará a dar error de que no consigue la ruta

Hola, entonces deberías preguntar si la ruta existe.

Código Delphi [-]
 if DirectoryExists(Ruta) then
   showmessage('Existe el directorio');

Saluditos

[lKinGl]

de lo contrario que la cree verdad?

gracias por tu respuesta

[*Caro*]

O también la creas tu desde tu programa

Código Delphi [-]
 //Si no existe creamos el directorio
 if not DirectoryExists(Ruta) then
  CreateDir(Ruta);

Saluditos

[lKinGl]

Muchas gracias caro

[lKinGl]

Mi Código Final me quedó así

Código Delphi [-]
    if not DirectoryExists('Reportes\Recepciones\') then
      begin
        CreateDir('Reportes\Recepciones');
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end
      else
      begin
        form16.QuickRep1.Prepare;
        form16.QuickRep1.QRPrinter.Save('Reportes\Recepciones\'+SpinEdit1.Text+'_'+ComboBox2.Text+'_'+ComboB  ox4.Text+'_'+ComboBox1.Text+'.qrp');
      end;

gracias por tu ayuda caro