Как изменить текущую папку?

tavis

День добрый. Использую версию FastReport 2.5 Ситуация следующая: пользователь сохраняет сформированный отчет с помощью функции SaveToFile() При этом открывается папка, в которую было выполнено последнее сохранение. Как можно изменить программно текущую папку или установить путь "по умолчанию"?
Благодарю за помощь.

gpi

Попробуйте модифицировать исходники:

procedure TfrReport.ShowPreparedReport;
var
  s: String;
  p: TfrPreviewForm;
begin
  CurReport := Self;
  MasterReport := Self;
  DocMode := dmPrinting;
  CurBand := nil;
  if EMFPages.Count = 0 then Exit;
  s := frLoadStr(SPreview);
  if Title <> '' then s := s + ' - ' + Title;
  if not (csDesigning in ComponentState) and Assigned(Preview) then
    Preview.Connect(Self)
  else
  begin
    if csDesigning in ComponentState then
      p := TfrPreviewForm.Create(nil) else
      p := TfrPreviewForm.Create(Self);
    if MDIPreview then
    begin
      p.WindowState := wsNormal;
      p.FormStyle := fsMDIChild;
    end;
    p.Caption := s;
    p.SaveDialog.InitialDir := 'C:\';  //добавить
    p.Show_Modal(Self);
    Application.ProcessMessages;
  end;
end;