[91892823]

Devils Night, спасибо! Задача выполнена. Спасибо всем, кто помог!
Вот скрипт полностью, вдруг кому-нибудь пригодится.
Автоустановка с определением битности системы

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

[Setup]
Uninstallable=false
CreateUninstallRegKey=false
UpdateUninstallLogAppName=false
AppName=PS
AppVersion=13.0
;AppVerName=PS 13.0
DefaultDirName={pf}\Ps
DisableDirPage=yes
DefaultGroupName=PS
DisableProgramGroupPage=yes
OutputDir=E:\ТемР\4556
OutputBaseFilename=setup
SetupIconFile=E:\44к.ico
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"

[Files]
Source: Adobe Photoshop CS6 (x32)\*; DestDir: {app}; Flags: recursesubdirs createallsubdirs ignoreversion; Check: not IsWin64
Source: Adobe Photoshop CS6 (x64)\*; DestDir: {app}; Flags: recursesubdirs createallsubdirs ignoreversion; Check: IsWin64

[Icons]
Name: {commondesktop}\Ps; Filename: {app}\PhotoshopCS6Portable.exe; WorkingDir: {app}; Check: not IsWin64
Name: {commondesktop}\Ps; Filename: {app}\Photoshopx64Portable.exe; WorkingDir: {app}; Check: IsWin64

[code]
function ShouldSkipPage(PageID: Integer): Boolean;
begin
Result:=true;
end;

procedure WizardFormShow(Sender: TObject);
begin
WizardForm.NextButton.OnClick(nil);
end;

procedure InitializeWizard();
begin
with WizardForm do
begin
Show;
OnShow := @WizardFormShow;
end;
end;