function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result:= true;

case CurPageID of
wpSelectDir:
begin
if FileExists(ExpandConstant('{app}')+'\WorldOfTanks.exe') then begin
if FileVersion(ExpandConstant('{app}')+'\WorldOfTanks.exe') < '0.9.0' then begin
MsgBoxEx(WizardForm.Handle, 'Моды не будут работать на данной версии игры! Моды предназначены для версии патча 0.9.0 ', 'Моды не подходят у данному патчу World of Tanks', MB_OK or MB_ICONWARNING, 0, 0);
Result:= false;
end;
end;
end;
end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result := True;
case CurPageID of
wpSelectDir:
if not FileExists(ExpandConstant('{app}\WorldOfTanks.exe')) then begin
MsgBox('Сюда установить компоненты нельзя!', mbError, MB_OK);
Result := False;
end;
end;
end;

Хе, работает(не не будет)

[code]

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp
[Files]
Source: "ISSkinEx.cjstyles"; DestDir: {tmp}; Flags: dontcopy
Source: "ISSkin.dll"; DestDir: {tmp}; Flags: dontcopy
[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkinEx.cjstyles');
LoadSkin(ExpandConstant('{tmp}\ISSkinEx.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

#define IncludeFiles "InstallFiles"
#define Skin
#ifdef Skin
#define Styles "ISSkinEx.cjstyles"
#endif

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
#ifdef Skin
#ifdef UNICODE
Source: {#IncludeFiles}\U\ISSkin.dll; Flags: dontcopy
#else
Source: {#IncludeFiles}\ISSkin.dll; Flags: dontcopy
#endif
Source: {#IncludeFiles}\{#Styles}; Flags: dontcopy
#endif



[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin.dll stdcall';

procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin.dll stdcall';

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('ISSkinEx.cjstyles');
LoadSkin(ExpandConstant('{tmp}\ISSkinEx.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirName={pf}\MyApp

[Files]
Source: "Tiger.cjstyles"; Flags: dontcopy
Source: "ISSkin.dll";Flags: dontcopy

[code]
procedure LoadSkin(lpszPath: String; lpszIniFileName: String);
external 'LoadSkin@files:ISSkin.dll stdcall';
procedure UnloadSkin();
external 'UnloadSkin@files:ISSkin.dll stdcall';

function InitializeSetup(): Boolean;
begin
if not FileExists(ExpandConstant('{tmp}\Tiger.cjstyles')) then ExtractTemporaryFile('Tiger.cjstyles');
if not FileExists(ExpandConstant('{tmp}\ISSkin.dll')) then ExtractTemporaryFile('ISSkin.dll');
LoadSkin(ExpandConstant('{tmp}\Tiger.cjstyles'), '');
Result := True;
end;

procedure DeinitializeSetup();
begin
UnloadSkin();
end;

[25.03.2014 13:29:43] nik1967: С сайтом какие то неполадки?
[25.03.2014 13:30:16] YURSHAT: Не, обновление движка и структуры форума

Offtopic

[UninstallDelete]
Type: filesandordirs; Name: "{app}\config"
Type: filesandordirs; Name: "{app}\files"
Type: files; Name: "{app}\ts3server.sqlitedb"

[code]
var
RunProg: TCheckBox;

procedure CheckBoxChecked;
begin
if RunProg.Checked then
MsgBox('CheckBox отмечен...', mbInformation, MB_OK);
end;

procedure GreatCheckBox;
begin
RunProg:= TCheckBox.Create(WizardForm);
with RunProg do
begin
Parent := WizardForm;
Caption := 'Удалить файлы конфигураций?';
SetBounds(140,330,150,15);
Cursor:= crHand;
Checked:= True;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpFinished then GreatCheckBox;
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssDone then CheckBoxChecked;
end;

Пример для расширенной версии

Пример

Пример

[UninstallDelete]
Type: files; Name: "{app}\config.ini"; Check: MakeLaunchIcon
Type: files; Name: "{app}\server.ini"; Check: MakeLaunchIcon2

[code]
var
LaunchIcon, LaunchIcon2: TCheckBox;

function MakeLaunchIcon: Boolean;
begin
Result:=LaunchIcon.Checked;
end;

function MakeLaunchIcon2: Boolean;
begin
Result:=LaunchIcon2.Checked;
end;

Procedure InitializeWizard();
begin
LaunchIcon := TCheckBox.Create(WizardForm);
with LaunchIcon do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Удалить файлы конфигураций?';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top + 37;
Width := ScaleX(300);
Height := ScaleY(15);
TabOrder := 0;
Checked := True;
end;
end;
begin
LaunchIcon2 := TCheckBox.Create(WizardForm);
with LaunchIcon2 do
begin
Parent := WizardForm.SelectDirPage;
Caption := 'Удалить файлы сервера?';
Left := ScaleX(0);
Top := WizardForm.DirEdit.Top + 57;
Width := ScaleX(300);
Height := ScaleY(15);
TabOrder := 0;
Checked := True;
end;
end;
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);begin
if (CurUninstallStep = usUninstall) and
(MsgBox(CustomMessage('Del'), mbInformation, MB_YESNO or MB_DEFBUTTON2) = IDYES) then
DeleteFile(ExpandConstant('{app}\ts3server.sqlitedb'));
end;