@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
К сожалению, не доступен сервер mySQL