[saurn]

Mailchik, И что это ? »

Перемещение файлов это

Код:

[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 InitializeWizard();
begin
 itd_init;
 itd_addfile('http://sayt.ru/1.rar',expandconstant('{src}\1.rar'));
 itd_downloadafter(wpReady);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
 case CurStep of
   ssInstall: MoveFileEx(ExpandConstant('{src}\1.rar'), ExpandConstant('{app}\1.rar'), MOVEFILE_REPLACE_EXISTING);
 end;
end;