nOobCrafter
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[Setup]
AppName=AppName
AppVerName=AppVerName
DefaultDirName={pf}\My Program
[Files]
Source: Files\*; DestDir: {app}; BeforeInstall: CreateBackup()
[Code]
procedure CreateBackup();
begin
if FileExists(ExpandConstant(CurrentFileName)) then
FileCopy(ExpandConstant(CurrentFileName),
ExpandConstant('{app}\') +
GetDateTimeString('dd/mm/yyyy hh:nn:ss ', '-', '-') +
ExtractFileName(ExpandConstant(CurrentFileName)), True)
end; |
Всего записей: 99 | Зарегистр. 26-06-2008 | Отправлено: 18:02 27-06-2008 | Исправлено: nOobCrafter, 10:25 28-06-2008 |
|
