@echo off set "currentTime=%Time: =0%" set now=%date:~-4%_%date:~3,2%_%date:~0,2%_%currentTime:~0,2%_%currentTime:~3,2%_%currentTime:~6,2% set user=SYSDBA set password=masterkey set database_name=PARKDB.FDB set backup_name=Backup\PARKDB set ext=.fbk set backup_filename=%backup_name%_%now%%ext% echo %backup_filename% nbackup -U %user% -P %password% -B 0 %database_name% %backup_filename%
%date:~3,2%
set "currentTime=%Time: =0%"
set now=%date:~-4%_%date:~3,2%_%date:~0,2%_%currentTime:~0,2%_%currentTime:~3,2%_%currentTime:~6,2%
@echo off set script_name=e:\SoftBuild\Parking\DB\DB_Backup.bat set task_name=LotParkingBackup SCHTASKS /Create /SC DAILY /TN %task_name% /TR %script_name% /HRESULT /F /RI 240 /DU 24:00 /v1
function NextButtonClick(CurPageID: Integer): Boolean; var ServerHost, ServerPort, DBFileName, FBDirPath: string; ResultCode, ErrorCode: Integer; UDFFrom, UDFTo, ReaderPort: string; RegistryTaskFile, DBDirPath, BackupScriptPath, RegistryFileName: string; begin if CurPageID = SettingsPage.ID then begin ServerHost := SettingsPage.Values[0]; ServerPort := SettingsPage.Values[1]; DBFileName := SettingsPage.Values[2]; if IsComponentSelected(cDB) then begin DBDirPath := Copy(DBFileName, 1, Pos('PARKDB.FDB', DBFileName) - 1); BackupScriptPath := DBDirPath + 'DB_Backup.bat' RegistryTaskFile := '@echo off' + #13#10 + 'set script_name=' + BackupScriptPath + #13#10 + 'set task_name=LotParkingBackup' + #13#10 + 'SCHTASKS /Create /SC DAILY /TN %task_name% /TR %script_name% /HRESULT /F /RI 240 /DU 24:00 /v1' + #13#10; RegistryFileName := DBDirPath + 'DB_RegistryBackup.bat'; SaveStringToFile(RegistryFileName, RegistryTaskFile, False); Exec(ExpandConstant(RegistryFileName), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode); end; end; end;
@echo off set task_name=LotParkingBackup SCHTASKS /DELETE /TN %task_name% /F
[UninstallRun] Filename: "{app}\DB\DB_DeleteTask.bat"; WorkingDir: "{app}\DB\"; Flags: runhidden waituntilterminated; Components: DB
Source: https://habr.com/ru/post/329914/
All Articles