[Banan330]

Хрень,надо так

Скрытый текст

[Files]
Source: {#MyAppSource}\*.*; DestDir: {#OutputDir}\Vasya
Source: {#MyAppSource}\*.*; DestDir: {#OutputDir}\Masha

[Run]
Filename: "{cmd}"; Parameters: "/c if /i ""%computername%"" == ""123"" (xcopy /e /y ""{#OutputDir}\Vasya\*.txt"" ""{#MyAppName}\Vasya\"" )";
Filename: "{cmd}"; Parameters: "/c if /i ""%computername%"" == ""123"" (xcopy /e /y ""{#OutputDir}\Masha\*.txt"" ""{#MyAppName}\Masha\"" )";

[ZVSRus]

Всем Доброго времени суток. У кого есть код для командных файлов (.cmd):

"Setup.exe" /VERYSILENT /I /RU
"Setup.exe" /VERYSILENT /I /EN
"Setup.exe" /VERYSILENT /P

Решение найдено.

Последняя загвоздка с прописыванием пути "setup.exe" /VERYSILENT /P /D="D:\MyPortable".

[El Sanchez]

Хрень,надо так »

Banan330, т.е. давайте плодить файлы сначала в {#OutputDir}, а потом героически копировать оттуда нужные в {#MyAppName}, зная, что деинсталлятору во время удаления про файлы из {#MyAppName} ничего не будет известно. А потом - чё это у меня файлы остаются после удаления?

[vadjliss]

парни помогите со скриптом распаковка FreeArc
если можно то наглядный скрипт что куда прописывать
прочитал много но не догнал что и как
заранее спасибо.

[Habetdin]

El Sanchez, да, и Check - это уже не модно

---

vadjliss, ссылка на пример скрипта дана в шапке темы, что конкретно непонятно в примере?

[vadjliss]

я не понял как прописать архив что бы после распаковки установилось программа
ярлыки прописать программы

[R.i.m.s.k.y.]

Господа
насколько я понимаю для определения windows10 нужен инно 5,5,6 или выше
Но беда - у меня скрипт на расширенной версии инно от restools еще от инноультра 5,5,1(а)
Сайт restools http://restools.hanzify.org/ лежит, инноультра сдох
Вопрос: где теперь все это брать?

и если с новыми версиями все так плохо то как можно выкрутиться для корректного опознавания вин10 в инно версии 5,5,1ее(а) через Version: TWindowsVersion?

[R.i.m.s.k.y.]

и если с новыми версиями все так плохо то как можно выкрутиться для корректного опознавания вин10 в инно версии 5,5,1ее(а) через Version: TWindowsVersion? »

через ntoskrnl.exe

Код:

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

#define MyAppName "version"
#define MyAppVersion "1.0"
#define MyAppExeName "MyProg.exe"

[Setup]
; Примечание: Значение AppId идентифицирует это приложение.
; Не используйте одно и тоже значение в разных установках.
; (Для генерации значения GUID, нажмите Инструменты | Генерация GUID.)
AppId={{8D07C1DF-B738-44EC-AAB9-42EE73B52969}
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
CreateAppDir=no
OutputDir=.
OutputBaseFilename=version
Compression=lzma
SolidCompression=yes
Uninstallable=false

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"

[Code]

var
  Version: TWindowsVersion;

Function InitializeSetup: Boolean;
var ResultStr, s, st, s_apprun, s_app :string; ResultCode, res, i, ErrorCode: Integer; rim, b1,b2 : boolean; VersionMS0x86, VersionLS0x86 : cardinal;
Begin
  GetWindowsVersionEx (version)
  GetVersionNumbers(ExpandConstant('{sys}\ntoskrnl.exe'), VersionMS0x86, VersionLS0x86);
  s:= 'ntoskrnl.exe = ' + IntToSTR(VersionMS0x86) + '.' + IntToSTR(VersionLS0x86) + #13#10 +
      'OS = ' + inttostr(Version.Major) + '.' + inttostr(Version.minor);
  if  VersionMS0x86 = $60001 then MsgBox(s + ' // ' + 'Windows 7', mbInformation, MB_OK);
  if  VersionMS0x86 = $60002 then MsgBox(s + ' // ' + 'Windows 8.0', mbInformation, MB_OK);
  if  VersionMS0x86 = $60003 then MsgBox(s + ' // ' + 'Windows 8.1', mbInformation, MB_OK);
  if  VersionMS0x86 = $A0000 then MsgBox(s + ' // ' + 'Windows 10', mbInformation, MB_OK);
  if  VersionMS0x86 = $A0001 then MsgBox(s + ' // ' + 'Windows 10.1', mbInformation, MB_OK);

  Result:= false
end;
end.

655360 это 000А 0000, 0000А = 10
причем обратите внимание что сам инно 5,5,1 опознает систему как вин 8,0, даже не вин 8,1 из-за старого манифеста (OS = ), но через версию файла ntoskrnl.exe опознает ОС как десятку в hex, т.е. как надо
В общем даже на старом инно если применять этот метод будет опознавать еще долго, если МС опять что-нибудь не начудит

нужно было поменять if на case но вломм
Мысль ясна

[doctor_allcome]

Добрый день!
Возник вопрос. В окне SelectDirPage при нажатии кнопки "Далее>" выходит сообщение о том что "Папка не существует" и предложение создать её.
Как сделать так, что бы папка создавалась автоматически и сообщение не выводилось?

[R.i.m.s.k.y.]

doctor_allcome, DirExistsWarning и EnableDirDoesntExistWarning в секции Setup