[roman_kudin@vk]

Спасибо, попробую.

[jack_nuclear]

Помогите с ISTask.dll. Где взять новые версии? Чем сейчас заменяют "завершалки процессов"? Ткните носом, если говорилось.

[Nordek]

Помогите с ISTask.dll. Где взять новые версии? »

ISTask 1.0.1.0. Версия 1.0.1.0 является последней.

Чем сейчас заменяют »

Простой вариант:

Код:

[Run]
Filename: {sys}\taskkill.exe; Parameters: /F /IM calc.exe; Flags: runhidden

[jack_nuclear]

Простой вариант: »

А как на это вывести окно "приложение запущено, закрыть?". Через ISTask легко А как тут реализовать?

[kotyarko@fb]

Через ISTask легко А как тут реализовать? »

А чем ISTask не устраивает?

[jack_nuclear]

Цитата kotyarko@fb:
А чем ISTask не устраивает? »
УЖе устраивает. Заработало.

[jack_nuclear]

kotyarko@fb, У меня вопрос по твоему скрипту PlaySound.iss Воспроизводиться на всех компонентах, а не на конкретных. Help!

Код:

[Setup]
RawDataResource=SndA:bugreporter_succeeded.wav |SndB:WindowsLogoffSound.wav

[Code ]
#define A = (Defined UNICODE) ? "W" : "A"

type
    HINST = THandle;
    HMODULE = HINST;
    Pointer = Longint;
    HRSRC = THandle;
    HGLOBAL = THandle;

const
    SND_ASYNC           = $0001;
    SND_NODEFAULT       = $0002;
    SND_MEMORY          = $0004;
    RT_RCDATA           = 10;


function sndPlaySound(lpszSoundName: Pointer; uFlags: UINT): BOOL; external 'sndPlaySound{#A}@Winmm.dll stdcall';
function LoadResource(hModule: HINST; hResInfo: HRSRC): HGLOBAL; external 'LoadResource@kernel32.dll stdcall';
function FindResource(hModule: HMODULE; lpName: String; lpType: Longint): HRSRC; external 'FindResource{#A}@kernel32.dll stdcall';
function LockResource(hResData: HGLOBAL): Pointer; external 'LockResource@kernel32.dll stdcall';

var
 pSoundMemory_A, pSoundMemory_B: Pointer;
    
function GetResourceSoundAddr(const ResourceName: String): Pointer;
var
    hResourceSound: HRSRC;
begin
    hResourceSound := FindResource(HInstance, ResourceName, RT_RCDATA);
    Result := LockResource(LoadResource(HInstance, hResourceSound));
end;

procedure ComponentsOnClickCheck(Sender: TObject);
begin
    if IsComponentSelected('KMP\AB') then
    begin
    sndPlaySound(pSoundMemory_B, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
    end;
    if IsComponentSelected('KMP\ZK') then
    begin
    sndPlaySound(pSoundMemory_A, SND_MEMORY or SND_NODEFAULT or SND_ASYNC);
    end;
end;

procedure InitializeWizard4();
begin
    pSoundMemory_A := GetResourceSoundAddr('_IS_SNDA');
    pSoundMemory_B := GetResourceSoundAddr('_IS_SNDB');
    
    WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClickCheck;
end;

[Dodakaedr]

А как на это вывести окно "приложение запущено, закрыть?". Через ISTask легко А как тут реализовать? »

Как вариант

Код:

[Setup]
AppName=Test
AppVersion=1.1
DefaultDirName={pf}\Test

[Code]
function CheckAppRun: boolean;
var
i: integer;
begin
if FindWindowByWindowName('Калькулятор') = 0 then
  Result:= True
  else if MsgBox('Закрыть калькулятор?', mbError, MB_YESNO) = idyes then begin
  Exec(ExpandConstant('{sys}\taskkill.exe'), ' /F /IM calc.exe', '', SW_HIDE, ewWaitUntilTerminated, i);
  Result := True;
  end;
end;

function InitializeSetup(): Boolean;
begin
  Result := CheckAppRun;
end;

[jack_nuclear]

Цитата Dodakaedr:
Как вариант »

Спасибо. Лучше без дллок . Чем будет отличатся реализация через dll и через системный тасккилл? Что "лучше"? Или одинаково? Мб проблем будет меньше где-то.

[kotyarko@fb]

kotyarko@fb, У меня вопрос по твоему скрипту PlaySound.iss Воспроизводиться на всех компонентах, а не на конкретных. Help! »

Это как бы не мой скрипт. Вот подходящий вариант.