Cambiar la carpeta activa

2597 vistas

Después de cambiar la carpeta activa (mediante la selección de algún fichero en un OpenDialog) puede que nos interese volver a tener como carpeta activa la de nuestra aplicación. Será sencillo con el uso de SetCurrentDir



delphi
  1. SetCurrentDir(ExtractFilePath(Application.ExeName));



También nos puede servir para especificar una carpeta activa que no sea la de nuestra aplicación. Bastará con pasarle por parámetro la carpeta a la que "queremos ir"



delphi
  1. SetCurrentDir('c:\UnaCarpeta');



La función devuelve un booleano siendo true si se ha podido hacer el cambio de directorio o false en caso contrario, por lo que podrÃa ser interesante ponerla en una sentencia if:



delphi
  1. if SetCurrentDir('c:\UnaCarpeta') then
  2.   // proceso normal
  3. else
  4.   // podemos levantar una excepción o mostrar un mensaje de error