[Gnom_aka_Lexander]

habib2302, дай полный свой скрипт. как я тебе,наугад чтоль делать буду?

[Gnom_aka_Lexander]

habib2302, с такой кучей вопросов тебе тогда проще самому разобраться. открываешь справку и читаешь там все,что касается битности. там и параметры секции Setup и встроенные функции. Плюс в папке примеров есть примеры: 64Bit, 64BitTwoArch, и 64BitThreeArch. там есть абсолютно все ответы на твои вопросы.

[sergey3695]

insombia, Хотя не это уже по аккуратнее. (Rikill/Wr0ng1eR, наверное Rikill делал скрипт).

[habib2302]

люди помогите.у меня есть 2 exe фала для запуска.один для x86 bit,а другой для x64 bit.как сделать так,чтобы создавались ярлыки, запускались эти 2 файла после установки, реестр заносился, прога устанавливалась в папку. и все это под битность системы

[insombia]

sergey3695 забей!

[Johny777]

habib2302, оптимизировал код, добавил проверку разрядности. Изучай!
насчёт секции реестра не знаю какие ключи ты хочешь вносить в зависимости от разрядности, но помнится инно делает это сама, то бишь пишет в 64 или 32 кусты в зависимости от системы
пусть меня поправят если я гоню.

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

Код:

; Скрипт создан через Мастер Inno Setup Script.
; ИСПОЛЬЗУЙТЕ ДОКУМЕНТАЦИЮ ДЛЯ ПОДРОБНОСТЕЙ ИСПОЛЬЗОВАНИЯ INNO SETUP!

#define MyAppName "CCleaner"
#define MyAppVersion "3.28.1913"
#define MyAppPublisher "Copyright © 2005-2013 Piriform Ltd"
#define MyAppURL "http://www.piriform.com/ccleaner"
#define AppExeName86 "CCleaner.exe"
#define AppExeName64 "CCleaner64.exe"
;(*Автор репака*);
#define AuthRep "Xabib"

[Setup]
WizardSmallImageFile={tmp}\WizardSmallImage.bmp
WizardImageFile={tmp}\WizardImage.bmp
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
AppPublisherURL={#MyAppURL}
AppSupportURL={#MyAppURL}
AppUpdatesURL={#MyAppURL}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=true
OutputBaseFilename={#MyAppName} {#MyAppVersion}
SetupIconFile={tmp}\ico.ico
Compression=lzma2/Ultra64
SolidCompression=true
InternalCompressLevel=Ultra64
DiskSpanning=false
DiskSliceSize=736000000
ShowLanguageDialog=auto
SlicesPerDisk=4
UninstallDisplayIcon={app}\ico.ico
;Авторские права.
VersionInfoCopyright={#MyAppPublisher}
;Производитель.
AppPublisher={#MyAppPublisher}
BitmapResource=logo:logo.bmp
; "ArchitecturesInstallIn64BitMode=x64" requests that the install be
; done in "64-bit mode" on x64, meaning it should use the native
; 64-bit Program Files directory and the 64-bit view of the registry.
; On all other architectures it will install in "32-bit mode".
ArchitecturesInstallIn64BitMode=x64
; Note: We don't set ProcessorsAllowed because we want this
; installation to run on all architectures (including Itanium,
; since it's capable of running 32-bit code too).

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

[Tasks]
Name: icons; Description: Создать Ярлыки:;
Name: icons\desktop; Description: На Рабочем Столе;
Name: icons\quicklaunchicon; Description: В Панели Задач;

[Files]
;Файлы распаковываемые в папку с игрой. Необходимы для деинсталлятора
Source: WinTB.dll; Flags: dontcopy;
Source: logo.bmp; Flags: dontcopy
Source: {tmp}\SGS2.png; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: {tmp}\isgsg.dll; DestDir: {tmp}; Flags: ignoreversion dontcopy nocompression
Source: {tmp}\WizardImage.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: Hidden;
Source: {tmp}\WizardSmallImage.bmp; DestDir: {app}; Flags: ignoreversion; Attribs: Hidden;
Source: {tmp}\ico.ico; DestDir: {app}; Flags: ignoreversion
Source: {app}\{#AppExeName86}; DestDir: "{app}"; Flags: ignoreversion Check: not IsWin64();
Source: {app}\{#AppExeName64}; DestDir: "{app}"; Flags: ignoreversion Check: IsWin64();
Source: {app}\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs
; Примечание: Не используйте "Flags: ignoreversion" для системных файлов

[Registry]
Root: HKLM; SubKey: SOFTWARE\Piriform\CCleaner; ValueType: string; ValueName: UpdateCheck; ValueData: 1;
Root: HKLM; SubKey: SOFTWARE\Piriform\CCleaner; ValueType: string; ValueData: "C:\Program Files\CCleaner";

[Icons]
Name: {group}\{#MyAppName}; Filename: {app}\{#AppExeName86}; IconFilename: {app}\ico.ico; Check: not IsWin64();
Name: {group}\{#MyAppName}; Filename: {app}\{#AppExeName64}; IconFilename: {app}\ico.ico; Check: IsWin64();
Name: {group}\{cm:UninstallProgram,{#MyAppName}}; Filename: {uninstallexe}; IconFilename: {app}\ico.ico;
Name: {group}\Ririform.Com; Filename: {#MyAppURL}
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#AppExeName86}; Tasks: icons\desktop; IconFilename: {app}\ico.ico; Check: not IsWin64();
Name: {commondesktop}\{#MyAppName}; Filename: {app}\{#AppExeName64}; Tasks: icons\desktop; IconFilename: {app}\ico.ico; Check: IsWin64();
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#AppExeName86}; Tasks: icons\quicklaunchicon; IconFilename: {app}\ico.ico; Check: not IsWin64();
Name: {userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}; Filename: {app}\{#AppExeName64}; Tasks: icons\quicklaunchicon; IconFilename: {app}\ico.ico; Check: IsWin64();

[Run]
Filename: {app}\{#AppExeName86}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent Unchecked; Check: not IsWin64();
Filename: {app}\{#AppExeName64}; Description: {cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}; Flags: nowait postinstall skipifsilent Unchecked; Check: IsWin64();

[Messages]
BeveledLabel=RePack by {#AuthRep}

[code]
procedure ShowSplashScreen(p1:HWND;p2:string;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload'

procedure FolderTreeViewOnChange(Sender: TObject);
begin
  if TObject(Sender) is TFolderTreeView then WizardForm.DirEdit.Text := AddBackslash(TFolderTreeView(Sender).Directory) + '{#MyAppName}' else
  WizardForm.GroupEdit.Text := AddBackslash(TStartMenuFolderTreeView(Sender).Directory)+'{#MyAppName}';
end;


#include "WinTB.iss"

procedure InitializeWizard;
begin
  ExtractTemporaryFile('WinTB.dll');
  SetTaskBarProgressValue(0, 60);
  SetTaskBarProgressState(0, TBPF_ERROR);
  TaskBarV10(MainForm.Handle, WizardForm.Handle, false, false, 0, 0, _m_);
  ExtractTemporaryFile('SGS2.png');
  ShowSplashScreen(WizardForm.Handle, ExpandConstant('{tmp}')+'\SGS2.png', 1000, 3000, 1000, 0, 255, False, $FFFFFF, 10);

  with TFolderTreeView.Create(WizardForm) do
  begin
    Parent := WizardForm.SelectDirPage;
    Top := ScaleY(WizardForm.DirEdit.Top+28);
    Width := ScaleX(417);
    Height := ScaleY(100);
    OnChange := @FolderTreeViewOnChange;
  end;

  with TStartMenuFolderTreeView.Create(WizardForm) do
  begin
    Parent:= WizardForm.SelectProgramGroupPage;
    Top := ScaleY(WizardForm.GroupEdit.Top+28);
    Width := ScaleX(417);
    Height := ScaleY(100);
    SetPaths(ExpandConstant('{userprograms}'), ExpandConstant('{commonprograms}'), ExpandConstant('{userstartup}'), ExpandConstant('{commonstartup}'));
    OnChange := @FolderTreeViewOnChange;
  end;

  with TBitmapImage.Create(WizardForm) do
  begin
    Parent:= WizardForm;
    ExtractTemporaryFile('logo.bmp');
    Bitmap.LoadFromFile(ExpandConstant('{tmp}\logo.bmp'));
    SetBounds(ScaleX(20), ScaleY(315), ScaleX(154), ScaleY(42)); {первые 2 параметра - координаты левогого верхнего угла по горизонтали и вертикали, дальше ширина и высота, до которой растянуть}
    Stretch:= True;
  end;
end;

procedure DeinitializeSetup();
begin
  TaskBarDestroy;
end;

procedure InitializeUninstallProgressForm();
begin
  FileCopy(ExpandConstant('{app}\WizardSmallImage.bmp'), ExpandConstant('{app}\WizardSmallImage.bmp'), False);
  with UninstallProgressForm.WizardSmallBitmapImage do Bitmap.LoadFromFile(ExpandConstant('{app}\WizardSmallImage.bmp'));
  with TBitmapImage.Create(UninstallProgressForm) do
  begin
    Parent := UninstallProgressForm;
    Stretch:= true;
    SetBounds(ScaleX(20), ScaleY(315), ScaleX(154), ScaleY(42));
    Bitmap.LoadFromResourceName(HInstance, '_IS_logo');
  end;
end;

UPD: забыл добавить ArchitecturesInstallIn64BitMode=x64
Исправил

================================================================================

insombia, sergey3695,

sergey3695 забей! »

insombia, Хотя не это уже по аккуратнее. (Rikill/Wr0ng1eR, наверное Rikill делал скрипт). »

Какие у вас содержательные комментарии! Спасибо за активность ребята!

[insombia]

sergey3695 я находил коды и вставлял,что не получалось он помогал
p.s.думаю вопрос закрыт оффтоп вне зоны

[habib2302]

Johny777, огромное спасибо!!!!

[cliff99]

Johny777,

не проблема, используй: AnsiToUtf8(AddBackslash(ExpandConstant('{src}')) + 'main.arc') константа {src} - путь к "рядом с экзешником инсталла" »

Всё равно не распаковывает архивы.

Код:

if IsComponentSelected('main') then FreeArcExtract (CallbackAddr('ArcCallBack'), 'x', '-o+', '-dp' + AnsiToUtf8(AddBackslash(ExpandConstant('{src}')) + 'main.arc'), '--', AnsiToUtf8(AddBackslash(ExpandConstant('{src}')) + 'main.arc'), '', '', '', '', '');

Скинь , если можно пример с уже распаковывающимся main.arc
то есть , где пути настроены.

[alert30]

cliff99, main.arc стоит рядом с Вашим компилированным инсталлятором?