[ViewVC] Diff of: public/ibx/trunk/iblocaldb/IBXSaveDatabaseDlg.pas

Comparing ibx/trunk/iblocaldb/IBXSaveDatabaseDlg.pas (file contents):
Revision 37 by tony, Mon Feb 15 14:44:25 2016 UTC vs.
Revision 80 by tony, Mon Jan 1 11:31:07 2018 UTC

+var
+  SaveDatabaseDlg: TSaveDatabaseDlg;
-+
+function SaveDatabaseToArchive(DBName: string;  DBParams: TStrings; aFilename: string): boolean;
-+
+implementation
-+
+uses Registry;
-+
-+
+{$IFDEF WINDOWS}
-+
+const
-+
+  rgShellFolders      = 'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
-+
+  rgPersonal          = 'Personal';
-+
+{$ENDIF}
-+
-+
+function SaveDatabaseToArchive(DBName: string; DBParams: TStrings;
-+
+  aFilename: string): boolean;
-+
+begin
-+
+ with TSaveDatabaseDlg.Create(Application) do
-+
+ try
-+
+  if aFilename = ''  then
-+
+  begin
-+
+    SaveDialog1.InitialDir := GetUserDir;
-+
+    {$IFDEF WINDOWS}
-+
+    with TRegistry.Create do
-+
+    try
-+
+      if OpenKey(rgShellFolders,false) then
-+
+      begin
-+
+        SaveDialog1.InitialDir := ReadString(rgPersonal)
-+
+      end;
-+
+    finally
-+
+      Free
-+
+    end;
-+
+    {$ENDIF}
-+
+    if SaveDialog1.Execute then
-+
+      aFilename := SaveDialog1.FileName
-+
+    else
-+
+      Exit;
-+
+  end;
-+
+  IBBackupService1.SetDBParams(DBParams);
-+
+  IBBackupService1.BackupFile.Clear;
-+
+  IBBackupService1.DatabaseName := DBName;
-+
+  IBBackupService1.BackupFile.Add(aFilename);
-+
+  Result := ShowModal = mrOK
-+
+ finally
-+
+   Free
-+
+ end;
-+
+end;
-+
+{$R *.lfm}
+{ TSaveDatabaseDlg }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines