[Snikt!]

alex2010, ага, если руки прямые :D

Может, тогда кто-нибудь поможет этот скрипт довести до ума? А то не хочет распаковывать ФриАрк архивы
http://rapid.ufanet.ru/9585636
Так не написал, т.к. форум не позволяет. Больше 30000 символов в скрипте.

[semiono]

Как принудительно завершить программу установки из секции код?

[cleric1985_n]

Надо смотреть на каком этапе это нужно..

Вот скажем, на этапе установки...

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

Код:

[Files] 
Source: ISTask.dll; DestDir: {tmp}; Flags: dontcopy

Код:

function KillTask(ExeFileName: string): Integer; 
external 'KillTask@files:ISTask.dll stdcall delayload'; 
 
function RunTask(FileName: string; bFullpath: Boolean): Boolean; 
external 'RunTask@files:ISTask.dll stdcall delayload'; 
 
//**************************************************// 
function InitializeSetup(): Boolean; 
begin 
  If RunTask('file.exe', false) then   
    begin                              
      if MsgBox('Программа file.exe используется. Закрыть и продолжить установку?', mbInformation, mb_YesNo) = idYes then 
         begin                        
           KillTask('file.exe');      
           Result:= True; 
         end else                     
          Exit;                       
    end; 
Result:=True; 
end;

Или же на этапе удаления

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

Код:

[Files]
Source: ISTask.dll; DestDir: {app}; Flags: ignoreversion

Код:

// функции используемые при деинсталляции
// RunTask@{app}\ISTask.dll - название функции (в данном случае, если программа работает)
// и путь dll'ки где она расположена...

function RunTask(FileName: string; bFullpath: Boolean): Boolean;
external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';
function KillTask(ExeFileName: string): Integer;
external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usUninstall then
  if RunTask('file.exe', False) then
    begin
      // прячем форму
      UninstallProgressForm.Visible:= False;
       if MsgBox('Программа file.exe используется. Закрыть и продолжить удаление?', mbConfirmation, MB_YESNO) = IDYES then
        begin
          KillTask('file.exe');
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          // показываем форму
          UninstallProgressForm.Visible:= True;
        end
       else
        begin
          MsgBox('Завершите работу file.exe, затем снова запустите программу удаления.', mbInformation, MB_OK);
          UnloadDll(ExpandConstant('{app}\ISTask.dll'));
          Abort;
        end;
    end;
end;

А также библиотека

[semiono]

cleric1985_n, а можешь продолжить это же самое, только if not IsWin64... KillTask() ?
Или это не совсем то что здесь надо? Мне надо запретить установку на x86 системе.

[cleric1985_n]

А зачем тогда завершать? просто возьмите проверку системы..т.е. если не х64, то не устанавливать.....вроди в самом инно есть такая проверка..

[Habetdin]

semiono,

Код:

function InitializeSetup(): Boolean;
begin
if IsWin64 then
	Result:= True else
	MsgBox('На вашем компьютере установлена 32-битная ОС.' + #13#10
		'Установка  невозможна!', mbInformation, MB_OK);
end;

[Chelluga]

У мну пара вопросов к народу. Народ:

1. Почему инно не распознаёт оранжевый цвет? То-есть clOrange.
Есть ли аналог или как это будет выглядеть в инновских цифирках (подобное - #FF7F00 пробовал - инно и это не понимает)?

2. Я хочу запустить одну прогу после фриарка, но у мну она запускается до (соответственно сразу и закрывается ибо не находит, что ищет). Как это пофиксить?

3. Цвет фриарка (то-бишь инфа о распаковываемом файле и т.п.) белая, а мне нужен иной цвет. Облазил код - не нашёл. Ни одного упоминания на фонтколор фриарка...Мож я невнимательный?

Кто поможет?

Заранее спасибо.

[patrion]

Snikt! , Во 1 этот скрипт полностью стабилен,
во 2 эт я его просил )))

[cleric1985_n]

Можно и так, но а не проще как предложил Habetdin ? т.е запускать самому последовательно файлы… »

Вариант хороший, если бы не одно но, а именно...файл 2 не запускается самостоятельно, а исключительно при запуске из файла 1,т.е. извлекается из первого..но сохранить его и потом запустить отдельно увы невозможно...так что не подходит такой способ..нужно именно отследить, а не запустить и отследить...

[Habetdin]

cleric1985_n,

if Exec(ExpandConstant('{app}\file1.exe'), '', '', SW_SHOW, ewWaitUntilTerminated, ResultCode) then »

Выделенное означает, что инсталлятор будет ждать, пока не закроется file1.exe.
Можно еще ResultCode проверять для надежности