ChangeFileExt (fichero, nuevaExtension)

Devuelve el fichero pasado como parámetro con la extensión cambiada a la pasada como parámetro.

Un ejemplo de utilización:

procedure TformMenuPrincipal.FormCreate(Sender: TObject);
begin
  txtFichero.Text := leCadINI('Guardar log', 'Ruta fichero', ChangeFileExt(ParamStr(0), '.txt'));
  opGuardar.Checked := leBoolINI('Guardar log', 'Guardar log', false);
  txtMinutos.Text := inttostr(leEntINI('Intervalo', 'Minutos', 4));
  opAvisar.Checked := leBoolINI('Avisar', 'Avisar', false);
  txtPorcentajeAviso.Text := IntToStr (leEntINI('Avisar', 'Carga inferior a', 20));
  opMinimizada.Checked := leBoolINI('Al iniciar', 'Ejecutar minimizada', false);
end;

En este caso “ChangeFileExt(ParamStr(0), ‘.txt’))” devolverá la ruta y el nombre del fichero ejecutable de la aplicación (“Param(0)”) con la extensión “.txt”.

Unidad SysUtils

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario