[R.i.m.s.k.y.]

процесс ctfmon.exe будет убит по средствам секции [Run] »

фурсенка негодуэ одобряэ!!11


предлагаешь здесь присутствующим пасхальные гадания на скрипт? ню-ню

[Johny777]

ivsatel,
1 способ

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

Код:

function InitializeSetup(): Boolean;
var  ErrorCode: Integer;
begin
    Exec('taskkill', '/f /im process.exe', '', SW_Hide, ewWaitUntilTerminated, ErrorCode);  
    Result := True;
end;

тот же способ через RUN

Код:

[Run]
Filename: taskkill; Parameters: /f /t /im steam.exe; Flags: runhidden

и
2 способ через библиотеку ISTask.dll

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

Код:

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

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

[  Code]

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

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



function InitializeUninstall(): Boolean;
begin
If RunTaskA('hl2.exe', false) then
begin
if MsgBox('Программа установки русификатора обнаружила, что программа'#13'для которой установится русификатор запушена в данный момент. '#13#13' Закрыть программу?'#13#13 +
'"Да" - закроет и не сохранит измененные настройки в программе.' #13#13 +
'"Нет" - продолжит установку без закрытия. (Настоятельно рекомендуется нажать Да)', mbError, mb_YesNo) = idYes then
begin
KillTaskA('hl2.exe');
Result := True;
end else
Exit;
end;
Result := True;
begin
If RunTaskA('hl2.exe', false) then
begin
KillTaskA('hl2.exe');
Result := True;
end else
Exit;
end;
end;

[R.i.m.s.k.y.]

Johny777, 1 способ не работает, выше же написано
2 способ вызывает WMI если мне склероз не изменяет, и на сборочных виндах или допиленных ускорителями WMI крашится

Поэтому и нужен скрипт чтобы увидеть конкретно чего не идет

[Johny777]

R.i.m.s.k.y.,
Странно. Его и использую через RUN. Способ рабочий. Ну ладно.

[R.i.m.s.k.y.]

Johny777, не удивлюсь если ctfmon.ехе написан через русскую Е или О

[Johny777]

R.i.m.s.k.y.,
после завершения процесса Steam.exe в трее висит иконка, хотя процесс уже завершён. Это фигня конечно, но кого-то может смутить

[R.i.m.s.k.y.]

Johny777, это баг венды еще с вин95
курсор наведи и она исчезнет

[ivsatel]

Johny777, Спасибо. Через функцию получилось.

[ivsatel]

Еще вопрос. Как связать функцию (в коде) и секцию Tasks ? То есть, что-бы функция отрабатывала только если выбрано определенное задание из Tasks.

[R.i.m.s.k.y.]

ivsatel,

Код:

[Tasks]
Name: avs; Description: AviSynth 2.5.8 MT; GroupDescription: Дополнительные компоненты

[*Code]
....
if (IsTaskSelected('avs')) then ...