[Setup]
;Означает создавать ли автоматический деинсталлятор. При значении "yes" он создается. При значении "no" автоматическое удаление будет невозможно, так что пользователь должен будет вручную удалять программу.
Uninstallable=yes
;Изменяет иконку на странице "Установка и удаление программ" в Панели управления
UninstallDisplayIcon={app}\ICONS\UnInstall.ico
;Место расположения деинсталлятора (по умолчанию значение - UninstallFilesDir={app})
UninstallFilesDir={app}\Uninstall
;Режим создания "лога" для деинсталлятора
UninstallLogMode=overwrite

[code]
Source: "C:\msxml4.dll"; DestDir: "{sys}"; Flags: restartreplace sharedfile regserver

#include "SHFileOperation.iss"

[Setup]
AppName=My Program
AppVerName=My Program version 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program

[Tasks]
Name: src; Description: "Backup"

[Files]
Source: "C:\util\*"; DestDir: {app}; BeforeInstall: CreateBackup; Flags: ignoreversion recursesubdirs createallsubdirs

[Code]
function MoveFile(const srcFile, destFile: PChar): Integer;
external 'MoveFileA@kernel32.dll stdcall';

procedure CreateBackup;
var
srcFile, destFile: string;
basePath, shortPath: string;
begin
if IsTaskSelected('src') then
begin
  basePath := ExpandConstant('{app}');
    srcFile := ExpandConstant(CurrentFileName);
    shortPath := srcFile;
   StringChangeEx(shortPath, basePath, '', True);
   destFile := ExpandConstant('{app}\Backup') + shortPath;
 ForceDirectories(ExtractFilePath(destFile));
 MoveFile(PChar(srcFile), PChar(destFile));
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if CurUninstallStep = usPostUninstall then
begin
  MoveDir(ExpandConstant('{app}\Backup\'), ExpandConstant('{app}'));
  RemoveDir(ExpandConstant('{app}\Backup\'));
end;
end;

Цитата(zubr @ 21:03:2005, 23:25 )

[Components]
Name: "Backup"; Description: "Backup"; Types: full

[Files]
Components: Backup; Source: "MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: MyProgCheck

[Code]

function MyProgCheck():boolean;
var
    s1, s2:string;
begin
 Result:=True;
 s1:=ExpandConstant('{app}')+'\MyProg.exe';
 s2:=ExpandConstant('{app}')+'\Backup';
 If FileExists(s1) then
 begin
  CreateDir(s2);
  FileCopy(s1, s2+'\MyProg.exe', False);
 end;
end;

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
AppName=Сокрушитель
AppVerName=Сокрушитель v3.2 by Crond
AppPublisher=SKYRIVER
AppPublisherURL=http://www.skyriver.ru/
AppSupportURL=http://www.skyriver.ru/
AppUpdatesURL=http://www.skyriver.ru/
DefaultDirName=C:\Program Files\SkyRiver\AIM II\Data
DefaultGroupName=Сокрушитель v3.2 by Crond
AllowNoIcons=yes
OutputDir=C:\Documents and Settings\PCHELP\Мои документы
OutputBaseFilename=Setup
SetupIconFile=C:\Documents and Settings\PCHELP\Мои документы\My Games\механоиды 2 война кланов моды\дополнения. проги\A.I.M._Icons_v2.2\A.I.M. 2.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl"
Name: "basque"; MessagesFile: "compiler:Languages\Basque.isl"
Name: "brazilianportuguese"; MessagesFile: "compiler:Languages\BrazilianPortuguese.isl"
Name: "catalan"; MessagesFile: "compiler:Languages\Catalan.isl"
Name: "czech"; MessagesFile: "compiler:Languages\Czech.isl"
Name: "danish"; MessagesFile: "compiler:Languages\Danish.isl"
Name: "dutch"; MessagesFile: "compiler:Languages\Dutch.isl"
Name: "finnish"; MessagesFile: "compiler:Languages\Finnish.isl"
Name: "french"; MessagesFile: "compiler:Languages\French.isl"
Name: "german"; MessagesFile: "compiler:Languages\German.isl"
Name: "hebrew"; MessagesFile: "compiler:Languages\Hebrew.isl"
Name: "hungarian"; MessagesFile: "compiler:Languages\Hungarian.isl"
Name: "italian"; MessagesFile: "compiler:Languages\Italian.isl"
Name: "norwegian"; MessagesFile: "compiler:Languages\Norwegian.isl"
Name: "polish"; MessagesFile: "compiler:Languages\Polish.isl"
Name: "portuguese"; MessagesFile: "compiler:Languages\Portuguese.isl"
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"
Name: "slovak"; MessagesFile: "compiler:Languages\Slovak.isl"
Name: "slovenian"; MessagesFile: "compiler:Languages\Slovenian.isl"
Name: "spanish"; MessagesFile: "compiler:Languages\Spanish.isl"

[Files]
Source: "C:\Documents and Settings\PCHELP\Мои документы\My Games\механоиды 2 война кланов моды\дополнения. проги\сокрушитель v 3_2\сокрушитель v 3_2\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
; NOTE: Don't use "Flags: ignoreversion" on any shared system files

[Icons]
Name: "{group}\{cm:ProgramOnTheWeb,Сокрушитель}"; Filename: "http://www.skyriver.ru/"
Name: "{group}\{cm:UninstallProgram,Сокрушитель}"; Filename: "{uninstallexe}"

Цитата(Ded Mazai @ 25:10:2007, 21:15 )

[Setup]
DiskSpanning=yes 
DiskSliceSize=733989400 (размер в байтах)

[Components]
Name: "Backup"; Description: "Сохранить резервные копии файлов"; Types: full

[Types]
Name: "Backup"; Description: "Выборочная установка"; Flags: iscustom

[Files]
Components: Backup; Source: "MyProg.exe"; DestDir: "{app}"; Flags: ignoreversion; Check: MyProgCheck

[Code]

function MyProgCheck():boolean;
var
   s1, s2:string;
begin
Result:=True;
s1:=ExpandConstant('{app}')+'\MyProg.exe';
s2:=ExpandConstant('{app}')+'\Backup';
If FileExists(s1) then
begin
 CreateDir(s2);
 FileCopy(s1, s2+'\MyProg.exe', False);
end;
end;