[A1EXXX]

Помогите разобраться: есть простенький скрипт с запросом второго диска для распаковки FreeArc:

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

#define MyAppName "Test" #define MyAppVerName "Test" #define MyAppExeName "Test.exe" [Setup] AppName={#MyAppName} AppVerName={#MyAppName} DefaultDirName={pf}\{#MyAppName} DirExistsWarning=no ;DisableReadyPage=true ShowLanguageDialog=auto OutputBaseFilename=setup OutputDir=. UninstallDisplayIcon={app}\{#MyAppExeName} DefaultGroupName={#MyAppName} InternalCompressLevel=none Compression=none [UninstallDelete] Type: filesandordirs; Name: {app} [Languages] Name: eng; MessagesFile: compiler:Default.isl Name: rus; MessagesFile: compiler:Languages\Russian.isl [Files] Source: C:\Program Files\FreeArc\bin\Arc.exe; DestDir: {tmp}; Flags: dontcopy [CustomMessages] ExtrError=Произошла ошибка во время извлечения данных. Установка будет прервана. [code] var SecondProgressBar: TNewProgressBar; procedure InitializeWizard(); begin WizardForm.FileNameLabel.Hide; WizardForm.StatusLabel.Top:=ScaleY(81); WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width; WizardForm.StatusLabel.Width:=ScaleX(262); WizardForm.ProgressGauge.Top:=ScaleY(100); WizardForm.ProgressGauge.Left:=ScaleX(155); WizardForm.ProgressGauge.Width:=ScaleX(262); SecondProgressBar := TNewProgressBar.Create(WizardForm); with SecondProgressBar do begin Parent := WizardForm.InstallingPage; Left := ScaleX(0); Top := ScaleY(100); Width := ScaleX(150); Height := ScaleY(21); Min := 0; Max := 13; //задается как (кол-во распаковываемых архивов * 3) + 1 end; end; procedure PlsInsertNextDisk(num: integer; CheckedFile: string); var Capt:string; begin CheckedFile:=ExpandConstant(CheckedFile); if not FileExists(CheckedFile) then begin Capt:='Пожалуйста, вставьте диск %n, содержащий файл %f и нажмите ОК для продолжения установки.'; StringChange(Capt, '%n', inttostr(num)); StringChange(Capt, '%f', ExtractFileName(CheckedFile)); MsgBox(Capt, mbInformation, MB_OK); PlsInsertNextDisk(num, CheckedFile); end; end; procedure ExtractArc(arcArchName,arcDestDir:string); var ResCode:integer; begin WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusExtractFiles); Exec(ExpandConstant('{tmp}\arc.exe'), 'x '+AddQuotes(ExpandConstant(arcArchName))+' -y -dp'+AddQuotes(ExpandConstant(arcDestDir)), '', SW_HIDE, ewWaitUntilTerminated, ResCode); if (ResCode <> 0) then begin MsgBox(ExpandConstant('{cm:ExtrError}'), mbCriticalError, MB_OK); SecondProgressBar.Hide; DelTree(ExpandConstant('{app}'), True, True, True); Abort; end else SecondProgressBar.Position:= SecondProgressBar.Position+3 end; procedure CurStepChanged(CurStep: TSetupStep); begin if CurStep = ssInstall then begin WizardForm.StatusLabel.Caption:=SetupMessage(msgStatusExtractFiles); ExtractTemporaryFile('arc.exe'); SecondProgressBar.Position:=SecondProgressBar.Position+1; ExtractArc('{src}\data-1.arc','{app}\'); ExtractArc('{src}\data-2.arc','{app}\'); PlsInsertNextDisk(2, '{src}\data-3.arc'); //если data4.arc не найден в корне диска, просим второй диск ExtractArc('{src}\data-3.arc','{app}\'); ExtractArc('{src}\data-4.arc','{app}\'); PlsInsertNextDisk(1, '{src}\data-1.arc'); //снова просим первый диск end; end;

Если пытаюсь установить в папку по умолчанию (именно этого скрипта) - не распаковывается, ошибка! Если, например, меняю путь на D:\Games\Test - распаковывается!
Теперь самое ужасное: использую этот скрипт для игры - ни в какую папку, ни на какой диск распаковка не идёт!!! Пробовал на одних и тех же архивах! Help!
Serega, как-то пробовал ваш скрипт FreeArc - вообще не распаковывалось... что я не так делаю?
З.Ы. Окно во время распаковки не кликабельное, т.е. свернуть, переместить нельзя, - это можно как-то исправить???

[A1EXXX]

Inno Setup ISCmplr 5.3.6 (build 091123) от ResTools

[RapMan]

Пример кода »

у меня в Form Designer нету такой закладки, есть
Редактор кода но он показывает только:

Код:

var
  Memo1: TMemo;
  ListBox1: TListBox;
  CheckBox1: TCheckBox;

а вот координаты и другие свойства объектов - нету, где их взять?
Версия 1.1.2c

нашел, оказывается в настройках нужно было поставить... Все спасибо!

[A1EXXX]

[Serega]

Помогите разобраться: »

Лишний бэкслеш, т.е. надо так - ExtractArc('{src}\data-1.arc','{app}'); и т.д.

как-то пробовал ваш скрипт FreeArc - вообще не распаковывалось... что я не так делаю? »

У меня всё нормально распаковывается...

Окно во время распаковки не кликабельное, т.е. свернуть, переместить нельзя, - это можно как-то исправить??? »

При использовании ewWaitUntilTerminated окно и будет не кликабельным...
Выход из ситуации - это запускать распаковку без ожидания, плюс добавить процедуру в которой проверять в цикле список процессов и если arc.exe есть, то делать ожидание, скажем 200-300 мс.
Процесс можно проверять через ISTask.dll или через функцию IsProgRunning, из этого скрипта (правда работает не на всех версиях Windows):

Пример

Код:

; В Диспетчере задач, вкладка Процессы, присутствует MyProc.exe.
; Как его остановить программно, аналогично тому, как это делает кнопка Завершить процесс в Диспетчере?
; Данный пример показывает, как проверить работает ли программа и если необходимо, то завершить её.
; Не уверен, что будет работать на всех версиях Windows...

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
VersionInfoCopyright=Serega, serg_0675@mail.ru

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

[Code]
var
  ResultCode: Integer;

function IsProgRunning(ProgName: string): Boolean;
// функция определяет, запущенно ли приложение
var
  Size: Integer;
begin
  Result:= False;
  Exec('cmd', '/c tasklist /fi "IMAGENAME eq ' + ProgName + '" >"' +
    ExpandConstant('{tmp}\RunList"'), '', SW_HIDE, ewWaitUntilTerminated, ResultCode);
  if FileSize(ExpandConstant('{tmp}\RunList'), Size) then
    if Size > 0 then Result:= True;
end;

function CloseProg(ProgName: string; Child: Boolean): Boolean;
// функция завершает работающее приложение со всеми дочерними (Child) процессами
var
  Tree: string;
begin
  Result:= False;
  if Child then Tree:= ' /t' else Tree:= '';
  Exec('cmd', '/c taskkill /f' + Tree + ' /im ' + ProgName, '', SW_HIDE,
    ewWaitUntilTerminated, ResultCode);
  if not IsProgRunning(ProgName) then Result:= True;
end;

function InitializeSetup(): Boolean;
begin
  Result:= False;
  if Exec(ExpandConstant('{win}\notepad.exe'), '', '', SW_SHOWMINIMIZED, ewNoWait, ResultCode) then
   if IsProgRunning('notepad.exe') then
    if MsgBox('Обнаружена работающая программа notepad. Закрыть её?',
      mbConfirmation, MB_YESNO) = IDYES then
    if CloseProg('notepad.exe', True) then
      begin
        MsgBox('Программа успешно завершена.', mbInformation, MB_OK)
        Result:= True;
      end
    else MsgBox('К сожалению, программу завершить не удалось.', mbInformation, MB_OK);
end;

[A1EXXX]

Убрал, теперь всё как по маслу
Буду пробовать добавить кликабельность
Serega, как всегда на высоте, респект

Нифига не получается

[Serega]

не получается »

а конкретней, что именно не получается?

[A1EXXX]

Serega, не знаю, как применить это в моём случае... Очень нужна помощь гуру

---

Можно ли в этом коде:

[Dirs] Name: "{app}"; Attribs: system; AfterInstall: CreateIni(); [Files] Source: C:\icon.ico; DestDir: {app} [code] procedure CreateIni(); begin SaveStringsToFile(ExpandConstant('{app}\Desktop.ini'), ['[.ShellClassInfo]', 'IconFile=icon.ico', 'IconIndex=0'], False) end;

добавить файлу Desctop.ini атрибуты system и hidden. Альтернативку нашёл: Source: "C:\Desktop.ini"; DestDir: "{app}"; Attribs: system hidden, но создавать файл каждый раз вручную надоедает

[Berline]

Снова я! Наверн боян... наверн примитив...
Сколько бы я не добавлял в секцию [Tasks] элементы, по дефолту всегда галочка стоит... Как ее снять? т.е. чтоб пир инсталле галочка не стояла на той задаче, на котороу ненад...
А итакж добавляю в [Run] программу, чтоб на последней странице была галочка - тож по дефолту она стоит...

[A1EXXX]

Berline, добавь после каждого Flags: unchecked