[Johny777]

R.i.m.s.k.y.,
на тему "во время установки" пример South

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

Код:

[Setup] 
AppName=MyProg 
AppVerName=MyProg 
DefaultDirName={pf}\MyProg 
DefaultGroupName=MyProg 
  
[Files] 
Source: 1.dll; DestDir: {app}; AfterInstall: Patch() 
Source: 2.dll; DestDir: {app}; AfterInstall: Patch() 
 
[Code_] 
procedure Patch; 
var 
  ResultCode: Integer; 
begin 
  case ExtractFileName(ExpandConstant(CurrentFileName)) of 
    '1.dll': begin 
               if Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then 
                 MsgBox('Hello.', mbInformation, MB_OK); 
               if ResultCode=0 then WizardForm.CancelButton.OnClick(nil); 
             end; 
    '2.dll': if Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then 
               MsgBox('Hello 2.', mbInformation, MB_OK); 
  end; 
end; 
 
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean); 
begin 
  Confirm:=False; 
end;

может кому пригодится

некоторые уникумы удаляют лишнее лежащее в {src} »

Забей! "Против лома нет приёма!"