[Serega]

но для функций, которые просто возвращают true/false без всякого ResultCode »

Код:

if not FileCopy(...) then
  MsgBox(SysErrorMessage(GetLastError), mbInformation, MB_OK);

GetLastError, прочитать о ней можно здесь http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
В инно, объявляется в скрипте так:
function GetLastError: DWORD; external 'GetLastError@kernel32.dll stdcall';

[Ivan_009]

При использовании скина как сделать,чтобы при выходе инсталл плавно закрывался без дополнительной формы аеро ( на Win7)...

[Dodakaedr]

как сделать чтобы ярлыки создавались либо для всех пользователей, либо для текущего?

[Dodakaedr]

Взял пример из справки программы:

читать дальше »

Код:

[Files]
Source: "{src}\*.exe"; DestDir: {app}; BeforeInstall: ChangeCaption('Откиньтесь на спинку кресла и наслаждайтесь!') 
Source: "{src}\*.dll"; DestDir: {app}; BeforeInstall: ChangeCaption('Не забудьте зарегистрироваться') 

[Cоde] 
procedure ChangeCaption(str: string); 
begin 
WizardForm.StatusLabel.Caption:= str; 
end;

В итоге у меня получилось

читать дальше »

Код:

[Files]
Source: "regcode.ini"; DestDir: "{pf}\r"; BeforeInstall: "CreateBackup ChangeCaption('Регистрация программы')"; Flags: ignoreversion
Source: "Settings.ini"; DestDir: "{pf}\r"; BeforeInstall: "CreateBackup ChangeCaption('Установка настроек')"; Flags: ignoreversion

[Cоde]
procedure ChangeCaption(str: string);
begin
WizardForm.StatusLabel.Caption:= str;
end;

но при компиляции выдает

читать дальше »

Как это исправить?

И еще такой вопрос: как создать checkbox c текстом "Зарегистрировать" на странице выбора папки (SelectDirPage) чтобы если отмечен, то при установки устанавливался файл regcode.ini если не отмечен то не устанавливался?

[Ivan_009]

Покажите пожалуйста пример слайд шоу через ботву.

[TryRooM]

Dodakaedr,
checkbox c текстом
http://rghost.ru/53291369

[Habetdin]

Как это исправить? »

Можно вызывать CreateBackup внутри функции ChangeCaption. Кстати, в полном коде («В итоге у меня получилось») не видно реализации функции CreateBackup.
Либо сделать отдельную функцию, которая вызовет и CreateBackup, и ChangeCaption.

[Dodakaedr]

Либо сделать отдельную функцию, которая вызовет и CreateBackup, и ChangeCaption. »

можете это в коде показать?
Реализация функции CreateBackup

читать дальше »

Код:

procedure CreateBackup;
var
srcFile, destFile: string;
begin
srcFile:= ExpandConstant(CurrentFileName);
destFile:= srcFile + '.bak';
DeleteFile(destFile);
RenameFile(srcFile, destFile);
end;

procedure RestoreBackup(backupDir: string);
var
srcFile, destFile: string;
FSR, DSR: TFindRec;
FindResult: Boolean;
APath: string;
begin
APath := AddBackslash(backupDir);
FindResult := FindFirst(APath + '*.bak', FSR);
try
while FindResult do
begin
if FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
begin
srcFile:= APath + FSR.Name;
destFile:= Copy(srcFile, 0, Length(srcFile)-4);
DeleteFile(destFile);
RenameFile(srcFile, destFile);
end;
FindResult := FindNext(FSR);
end;
FindResult := FindFirst(APath + '*.*', DSR);
while FindResult do
begin
if ((DSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY) and
not ((DSR.Name = '.') or (DSR.Name = '..')) then
{Recursion} RestoreBackup(APath + DSR.Name);
FindResult := FindNext(DSR);
end;
finally
FindClose(FSR);
FindClose(DSR);
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usPostUninstall then
begin
RestoreBackup(ExpandConstant('{app}'))
end;
end;

[Habetdin]

Dodakaedr, ок, просто хотел уточнить параметры CreateBackup. Раз их нет, то и будем вызывать без них Как я писал выше, самый легкий способ - сделать так:

Код:

procedure ChangeCaption(str: string); 
begin
  CreateBackup();
  WizardForm.StatusLabel.Caption:= str; 
end;

И убрать CreateBackup из BeforeInstall.
P.S.: ChangeCaption в [Code] должен быть объявлен позже, чем CreateBackup.

В смысле нет »

Реализация != параметр, у CreateBackup нет входных параметров.

[Dodakaedr]

хотел уточнить параметры CreateBackup. Раз их нет »

Спасибо! Заработал.