[saurn]

svs23

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

Тогда предложите пользователю установку notepad++, а он уже сам решит, нужен он ему или нет. Да и, на мой взгляд, совершенно не обязательно, чтобы файл открывался именно notepad++. Существует множество других редакторов. Я, например, пользуюсь, другой программой. Так что лучше будет устанавливать по выбору, чтобы потом уши не горели)).

[Dodakaedr]

Процесс WorldOfTanks.exe, да пробовал, процесс не убивается ( »

Должен. Тестировал на Калькуляторе. DLL-ка думаю имеется.

не работает на Unicode версии »

работает

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program ver.1.5
DefaultDirName={pf}\My Program

[Files]
Source: "compiler:Dll Pack\ISTask.dll"; DestDir: "{app}"

[Code]
function KillTask(ExeFileName: ansistring): Integer; external 'KillTask@files:ISTask.dll stdcall delayload setuponly';
function RunTask(FileName: ansistring; bFullpath: Boolean): Boolean; external 'RunTask@files:ISTask.dll stdcall delayload setuponly';
function KillTaskA(ExeFileName: ansistring): Integer; external 'KillTask@{app}\ISTask.dll stdcall delayload uninstallonly';
function RunTaskA(FileName: ansistring; bFullpath: Boolean): Boolean; external 'RunTask@{app}\ISTask.dll stdcall delayload uninstallonly';

function InitializeSetup(): Boolean;
begin
  If RunTask('calc.exe', false) then begin
    if MsgBox('Программа установки обнаружила, что программа Калькулятор запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbError, mb_YesNo) = idYes then begin
      KillTask('calc.exe');
      Result := True;
    end else
      Exit;
    end;
    Result := True;
end;

function InitializeUninstall(): Boolean;
begin
  If RunTaskA('calc.exe', false) then begin
    if MsgBox('Программа удаления обнаружила, что программа Калькулятор запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbError, mb_YesNo) = idYes then begin
      KillTaskA('calc.exe');
      Result := True;
    end else
      Exit;
    end;
  Result := True;
  UnloadDLL(ExpandConstant('{app}\ISTask.dll'));
end;

[svs23]

Тогда предложите пользователю установку notepad++, а он уже сам решит, нужен он ему или нет. Да и, на мой взгляд, совершенно не обязательно, чтобы файл открывался именно notepad++. Существует множество других редакторов. Я, например, пользуюсь, другой программой. Так что лучше будет устанавливать по выбору, чтобы потом уши не горели)). »

сделать предложение на установку notepad++ не проблема
просто есть люди для которых огромная проблема "Открыть с помощью" и найти там "подходящую" программу

txt они еще откроют, т.к. в системе имеется текстовый редактор, которым не рекомендуют править файлы настроек модов, а вот что делать с xml для них уже проблема (проверено на личном опыте, ТАКИЕ люди есть).....

[svs23]

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

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

Код:

procedure ExtLog();
begin 
SaveStringToFile(ExpandConstant('{app}\res_mods\SVS_mini_mod_pack_setup.log'), #13#10 + GetDateTimeString('dd/mm/yyyy hh:nn:ss', '-', ':') + ' - ' + ExpandConstant(CurrentFileName), True); 
end;

[Dodakaedr]

Потому что на деле используете ISTaskU.dll. Обычная же в юникоде не работает »

Нет, я использовал ISTask.dll.

[saurn]

Нет, я использовал ISTask.dll. »

Действительно, работает. Но игнорирует некоторые процессы. В 64-х разрядной среде в упор не видит, к примеру, тот же запущенный калькулятор.

[Kashtan007]

saurn, хм.. у меня 64-х разрядная среда, и процесс закрывается (по примеру Dodakaedr).

[Kashtan007]

Dodakaedr, обнаружил проблему, когда нажимаю "Нет", то установка продолжается, и процесс не закрывается.

[kotyarko@fb]

когда нажимаю "Нет", то установка продолжается, и процесс не закрывается »

На нажатие "нет" можно повесить процедуру Abort. При этом не стоит забывать, что при аборте будет вызываться процедура DeinitializeSetup, и если в ней есть что-то связанное с визадом (например, WizardForm.Free), то программа будет ругаться. Это можно решить создав булевую переменную, и присваивать ей определённые значения, которые будут проверяться; и в зависимости от результата выполняться та же WizardForm.Free.
Это решение при нескольких функциях InitializeSetup, когда Result := False не решает.

[habib2302]

Доброе время суток. Есть один вопрос. Дело в том, что когда идет распаковка в {tmp} нету никакого диалогового окна т.е приложение запущено, а окна или хотя бы прогресбара нет особенно если еще большой объем файлов. как избавиться