[Dodakaedr]

Поделитесь кто-нибудь библиотекой ISTaskU.dll.

[Kashtan007]

Всем привет.
Как в установщике ставятся приоритеты на установку.
Ну вот допустим у меня компоненты в такой структуре
Программа
-1
-2
-3
Патч для программы
-1
-2

Сначала же будет ставить программу, а потом устанавливать на неё патч?
Либо же нужно ставить какой-то приоритет? Чтобы патч устанавливался после программы.

[saurn]

Kashtan007, файлы устанавливаются в том порядке, в котором указаны в секции Files, сверху вниз.

[Shkutu]

Kashtan007, из справки - "All entries are processed by the installer in the order they appear in a section", т е все элементы обрабатываются установщиком в том порядке, в каком они указаны. По идее, чтобы патч ставился после программы, вам надо указать файлы, элементы секции Run и прочее в правильном порядке.

[Shift85]

Поделитесь кто-нибудь библиотекой ISTaskU.dll. »

Dodakaedr, Юникодной нет есть обычная если пригодиться.

[Dodakaedr]

Юникодной нет есть обычная если пригодиться. »

Спасибо, но обычная у меня есть....

[Mailchik]

Dodakaedr, http://forum.oszone.net/post-2291020-1870.html

[Dodakaedr]

Mailchik, Знаю, уже давали, но файл удален...

Mailchik,

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Files]
Source: "ISTaskU.dll"; Flags: dontcopy;

[ Code]
function KillTask(ExeFileName: string): Integer;
  external 'KillTask@files:ISTaskU.dll stdcall';

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
  external 'RunTask@files:ISTaskU.dll stdcall';

function InitializeSetup(): Boolean;
begin
  If RunTask('aimp3.exe', false) then begin
    if MsgBox('Закрыть AIMP?', mbError, mb_YesNo) = idYes then begin
      KillTask('aimp3.exe');
      Result := True;
    end else
      Exit;
    end;
  Result := True;
end;

При использовании этого кода вместе с

Код:

procedure DeinitializeSetup();
begin
gdipShutdown;
islogo_three(WizardForm.Handle);
end;

появляется ошибка "Could not call proc." при нажатии на "Нет". Подскажите как решить эту проблему.

[saurn]

появляется ошибка "Could not call proc." при нажатии на "Нет". Подскажите как решить эту проблему. »

Код:

[Code]
var
    Init: Boolean;


procedure InitializeWizard();
begin
...
    Init := True;
...
end;


procedure DeinitializeSetup();
begin
    if Init <> False then
      begin
          gdipShutdown;
          islogo_three(WizardForm.Handle);
      end;
end;

[Dodakaedr]

saurn, Спс! Сработало. Скажите, пожалуйста, правильно ли я указываю код на удаление файла при деинсталяции? Потому что он не удаляется ни через код ни через [UninstallDelete]:

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
    begin
    if FileExists('msimg32.dll') then DeleteFile('msimg32.dll');
    end;
end;