NightW0lf
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [Setup] AppName=My Program PATCH AppVerName=My Program 1.5 AppPublisher=My Company, Inc. DefaultDirName={pf}\Vmd DefaultGroupName=My Program OutputDir=C:\SETUP OutputBaseFilename=setup_patch Compression=lzma LicenseFile=C:\SETUP_FOR\_WC3_TH\RTF_FILES\License.rtf SolidCompression=yes UninstallLogMode=overwrite Uninstallable=yes [Languages] Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl" [Tasks] Name: arc; Description: "Создать резервную копию оригинальных файлов " [Files] Source: "C:\MyProg.exe"; DestDir: {app}; BeforeInstall: CreateBackup; Flags: onlyifdoesntexist uninsneveruninstall ;MyProg.exe - оригинальный файл уже установлен ;C:\MyProg.exe - обновленный файл! [Run] Filename: "{app}\MyProg.exe"; Description: "{cm:LaunchProgram,My Program}"; Flags: nowait postinstall skipifsilent ;"{app}\MyProg.exe" должен запуститься обновленный файл! [Code] var ArcDir: String; procedure CreateBackup(); var SrcFile, DestFile: string; begin ArcDir:= AddBackslash(ExpandConstant('{app}\Backup_Files')) ForceDirectories(ArcDir); SrcFile:= AddBackslash(ExpandConstant('{app}')) + ExtractFileName(CurrentFileName); DestFile:= AddBackslash(ArcDir) + ExtractFileName(CurrentFileName); FileCopy(SrcFile, DestFile, False); end; | Всего записей: 479 | Зарегистр. 08-11-2006 | Отправлено: 21:06 02-01-2007 | Исправлено: NightW0lf, 21:11 02-01-2007 |
|