[архив] Inno Setup .:[все вопросы]:.

Sserss · Отправлено: **14:54, 25-07-2009** | #**1161**

Serega,

Спасибо то что нужно!!!

Serega · Конфигурация компьютера

Мне в PM задали вопрос, решил написать его здесь, т.к. другим может быть интересен ответ на этот вопрос...

Цитата:

Не знаете ли вы, как можно сделать окно "исталлятора" передвигаемым при выполнение, например этого?:

Код:

Exec(ExpandConstant('{tmp}\arc.exe'), 'x '+AddQuotes(ExpandConstant('{app}\data.arc'))+' -y -dp'+AddQuotes(ExpandConstant('{app}')), '', SW_HIDE, ewWaitUntilTerminated, Res);

Нужно в скрипте написать функцию ожидания, здесь поможет ISTask.dll.

Пример

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Files]
Source: compiler:Libraries\ISTask.dll; Flags: dontcopy

[Code]
type
  _TMsg = record
    hwnd: HWND;
    message: LongWord;
    wParam: Longint;
    lParam: Longint;
    time: LongWord;
    pt: TPoint;
  end;

const
  PM_REMOVE           = 1;

// пpовеpяет очеpедь пpикладной задачи на сообщение и копиpует его в Msg,
// если в очеpеди нет сообщений, функция выполняет немедленный возвpат и пеpедает упpавление Windows.
function PeekMessage(var lpMsg: _TMsg; hWnd: HWND;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external 'PeekMessageA@user32.dll stdcall';
// пеpеводит комбинации  wm_KeyDown/Up в wm_Char или wm_DeadChar и комбинации wm_SysKeyDown/Up в wm_SysChar или
// wm_SysDeadChar и напpавляет символьное сообщение в очеpедь пpикладной задачи.
function TranslateMessage(const lpMsg: _TMsg): BOOL; external 'TranslateMessage@user32.dll stdcall';
// пеpедает в Msg сообщение оконной функции окна
function DispatchMessage(const lpMsg: _TMsg): Longint; external 'DispatchMessageA@user32.dll stdcall';

function RunTaskA(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@files:ISTask.dll stdcall delayload setuponly';

procedure Application_ProcessMessages;
var
  Msg: _TMsg;
begin
  while PeekMessage(Msg, WizardForm.Handle, 0, 0, PM_REMOVE) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end;

procedure Run; // здесь ваша функция, где выполняется запуск программы
var
  Res: Integer;
begin
  // запускаем программу с параметром ewNoWait
  if Exec(ExpandConstant('{tmp}\arc.exe'), 'x ' + AddQuotes(ExpandConstant('{app}\data.arc')) + ' -y -dp'+AddQuotes(ExpandConstant('{app}')), '', SW_HIDE, ewNoWait, Res) then
    while RunTaskA('arc.exe', False) do // проверяем, работает ли программа
      Application_ProcessMessages;
end;

Qarmaa · Отправлено: **16:07, 25-07-2009** | #**1163**

Serega, спасибо за пример.
Только, зачем создавать процедуру Run, если всё прекрасно работает через процедуру CurStepChanged?
Примерно так:

Serega · Конфигурация компьютера

Цитата Qarmaa:

Только, зачем создавать процедуру Run, если всё прекрасно работает через процедуру CurStepChanged? »

Согласен, я показал для примера и даже указал в комментариях:

Цитата Serega:

procedure Run; // здесь ваша функция, где выполняется запуск программы »

я же не знаю, в какой процедуре вы будете запускать файл...

zl0ybot · Отправлено: **10:10, 27-07-2009** | #**1165**

Здравствуйте.У меня к вам просьба вот в этот скрипт 1.добавить freearc.(чтобы архивы были рядом с setup.exe)2.и еще добавит фоновую музыку (.mp3) 3. чтобы у музыки была кнопка play\pause. (ps я нуб в inno setup)скрипт

gvshil · Отправлено: **10:34, 27-07-2009** | #**1166**

Подскажите, пожалуйста, какой Flags применить для отмены регистрации DLL при деинсталяции (или достаточно указать Flags: regserver).
Спасибо.

Serega · Конфигурация компьютера

Цитата zl0ybot:

Здравствуйте.У меня к вам просьба вот в этот скрипт »

Существует утилита, для объединения скриптов - InnoSetup Script Joiner

Цитата gvshil:

Подскажите, пожалуйста, какой Flags применить для отмены регистрации DLL при деинсталяции (или достаточно указать Flags: regserver »

Достаточно.

mityafm · Отправлено: **09:22, 29-07-2009** | #**1168**

Как определить факт установленного .NET Framework 1 ?

BlackSelf · Отправлено: **14:52, 29-07-2009** | #**1169**

mityafm, подойдет?

Serega · Конфигурация компьютера

Цитата mityafm:

Как определить факт установленного .NET Framework 1 »

Накидал пример, необходимо указать, только минимальную версию .NET Framework:

Пример

Код:

; определение версии установленного .Net Framework

[Setup]
AppName=NetFramework
AppVerName=NetFramework
DefaultDirName={pf}\NetFramework
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes
VersionInfoCopyright=Serega

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

[Code]
const
  MinNetFrameWork = 'v1.1'; // минимальная версия NetFrameWork

var
  url: string;

function GetNetFrameWork(ver: string): Integer;
begin
// страница загрузок http://www.microsoft.com/downloads/results.aspx?pocId=&freetext=Framework&DisplayLang=ru
  Result:= 5;
  url:= 'http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe';
  case ver of
   'v1.0':
      begin
      // по этой ссылке v1.1, т.к. ссылку на v1.0, я не нашёл... раритет... ;)
        url:= 'http://download.microsoft.com/download/0/8/6/086e7824-ddad-45c0-b765-721e5e28e4c5/dotnetfx.exe';
        Result:= 0;
      end;
   'v1.1':
      begin
        url:= 'http://download.microsoft.com/download/0/8/6/086e7824-ddad-45c0-b765-721e5e28e4c5/dotnetfx.exe';
        Result:= 1;
      end;
   'v2.0':
      begin
        url:= 'http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/dotnetfx.exe';
        Result:= 2;
      end;
   'v3.0':
      begin
        url:= 'http://download.microsoft.com/download/4/d/a/4da3a5fa-ee6a-42b8-8bfa-ea5c4a458a7d/dotnetfx3setup.exe';
        Result:= 3;
      end;
   'v3.5':
      begin
        url:= 'http://download.microsoft.com/download/7/0/3/703455ee-a747-4cc8-bd3e-98a615c3aedb/dotNetFx35setup.exe';
        Result:= 4;
      end;
  end;
end;

function SearchNetFrameWork: Boolean;
var
  Error: Integer;
  VerNetFrameWork: array of string;
  VerNetFrameWorkInstalled: TArrayOfString;
  i, n: Integer;
begin
  VerNetFrameWork:= ['v1.0', 'v1.1', 'v2.0', 'v3.0', 'v3.5'];
  SetArrayLength(VerNetFrameWork, GetArrayLength(VerNetFrameWork));
  if RegGetSubkeyNames(HKLM, 'SOFTWARE\Microsoft\.NETFramework\policy', VerNetFrameWorkInstalled) then
    begin
      SetArrayLength(VerNetFrameWorkInstalled, GetArrayLength(VerNetFrameWorkInstalled));
      for i:= 0 to GetArrayLength(VerNetFrameWorkInstalled)-1 do
        begin
          for n:= 0 to GetArrayLength(VerNetFrameWork)-1 do
          if VerNetFrameWorkInstalled[i] = VerNetFrameWork[n] then
          if n >= GetNetFrameWork(MinNetFrameWork) then
            begin
              Result:= True;
              Break;
            end
          else
            begin
              if MsgBox('Для этой программы требуется установленный .NET Framework не ниже ' + MinNetFrameWork + '. ' +
                        'Пожалуйста загрузите и установите .NET Framework и запустите установку снова. ' +
                        'Вы хотите загрузить .NET Framework сейчас?', mbConfirmation, MB_YESNO) = idYes then
              ShellExec('open', url,'','',SW_SHOWNORMAL,ewNoWait,Error);
              Result:= False;
            end;
        end;
    end;
end;

function InitializeSetup: Boolean;
begin
  if SearchNetFrameWork then Result:= True;
end;