Подскажите пожалуйста как в IS сделать проверку перед началом деинсталяции на факт запуска программы и если программа запущена обязать пользователя выйти из программу перед деинсталяцией?

[Code]
function InitializeSetup(): Boolean;
var
ErrorCode: Integer;
begin
Exec('taskkill', '/f /im mysoft.exe', '', sw_hide, ewWaitUntilTerminated, ErrorCode);
;RegDeleteValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', 'mysoft');
;RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\mySoftware\mysoft');
Result:=True;
end;

EJO>[Code]
EJO>function InitializeSetup(): Boolean;
EJO>var
EJO>ErrorCode: Integer;
EJO>begin
EJO>Exec('taskkill', '/f /im mysoft.exe', '', sw_hide, ewWaitUntilTerminated, ErrorCode);
EJO>;RegDeleteValue(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', 'mysoft');
EJO>;RegDeleteKeyIncludingSubkeys(HKEY_CURRENT_USER, 'Software\mySoftware\mysoft');
EJO>Result:=True;
EJO>end;

Стыдно должно быть советовать это убожество.

L>Подскажите пожалуйста как в IS сделать проверку перед началом деинсталяции на факт запуска программы и если программа запущена обязать пользователя выйти из программу перед деинсталяцией?

Смотри в сторону встроенных функций типа CheckForMutexes(), MsgBox() и т.п.

Здравствуйте, leonidus1981, Вы писали:

L>Подскажите пожалуйста как в IS сделать проверку перед началом деинсталяции на факт запуска программы и если программа запущена обязать пользователя выйти из программу перед деинсталяцией?
Всё достаточно просто. Нужно в скрипт включить вот это:

[Setup]
AppMutex=MyProgramsMutexName

This directive is used to prevent the user from installing new versions of an application while the application is still running, and to prevent the user from uninstalling a running application. It specifies the names of one or more named mutexes (multiple mutexes are separated by commas), which Setup and Uninstall will check for at startup. If any exist, Setup/Uninstall will display the message: "[Setup or Uninstall] has detected that [AppName] is currently running. Please close all instances of it now, then click OK to continue, or Cancel to exit." The value may include constants.

Ну и в код включить создание соответствуюещго мутекса. В справке к инно всё написано.

Здравствуйте, leonidus1981, Вы писали:

L>Подскажите пожалуйста как в IS сделать проверку перед началом деинсталяции на факт запуска программы и если программа запущена обязать пользователя выйти из программу перед деинсталяцией?

Скрипт:

[Setup]
AppMutex=MYMUTEXNAME
...

Программа:

int WINAPI _tWinMain( HINSTANCE, HINSTANCE, LPTSTR, int )
{
    ::CreateMutex( NULL, FALSE, "MYMUTEXNAME" );
...

InnoSetup попросит пользователя сначала закрыть приложение.

Здравствуйте.

Прошу прощения, что спрашиваю в вопросе про InnoSetup. А в NSIS подобный механизм имеется?

Здравствуйте, Аноним, Вы писали:

А>Прошу прощения, что спрашиваю в вопросе про InnoSetup. А в NSIS подобный механизм имеется?
поиск

L>Подскажите пожалуйста как в IS сделать проверку перед началом деинсталяции на факт запуска программы и если программа запущена обязать пользователя выйти из программу перед деинсталяцией?

у меня примерно так

function CheckOpenProg(): Boolean;
begin
if FindWindowByWindowName('Wtlauncher') <> 0 then
begin
MsgBox('Найдена не закрытая оболочка для запуска. Обновление не может быть произведено.' + #13#10#13#10 + 'Закройте оболочку и нажмите кнопку "Далее".', mbInformation, mb_Ok);
Result := false;
end
end

ну и при нажатии Next соответсвенно это все вызывается

Здравствуйте, <Аноним>, Вы писали:

А>Прошу прощения, что спрашиваю в вопросе про InnoSetup. А в NSIS подобный механизм имеется?
Там вообще что угодно можно сделать: см. System::Call и обёртки к нему.