[Mailchik]

by_gangster,

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Code]
#ifdef UNICODE
 type
  PChar = PAnsiChar;
#endif

const
 MOVEFILE_REPLACE_EXISTING = 1;

function MoveFileEx(lpExistingFileName, lpNewFileName: PChar; dwFlags: DWORD): BOOL;
 external 'MoveFileExA@kernel32.dll stdcall';

procedure CurPageChanged(CurPageID : integer);
 begin
  case CurPageID of
   wpSelectDir: begin
    MoveFileEx(ExpandConstant('{src}\test.iss'), ExpandConstant('{src}\test2.iss'),
     MOVEFILE_REPLACE_EXISTING);
   end;
  end;
end;