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;

Funciones Delphi