Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=3318024 Thu, 30 May 2013 11:11:44 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=3318024 ISTask.zip (, : 425) ]]> mitrich Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=3317104 Mon, 27 May 2013 21:10:21 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=3317104 sergey_sv Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830261 Tue, 15 Feb 2011 11:47:01 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830261 Kray74 Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830258 Tue, 15 Feb 2011 11:45:56 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830258 Цитата mitrich @
Цитата Craft @
Я смотрел пример в CodeDll.iss

...и не заметил, что там показано как раз то, что тебе и нужно.
    [Files]
    Source: ISTask.dll; DestDir: "{app}"
     
    [Code]
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@files:ISTask.dll stdcall setuponly';
          
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@files:ISTask.dll stdcall setuponly';
          
          
    function KillTaskU(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall uninstallonly';
          
    function RunTaskU(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@{app}\ISTask.dll stdcall uninstallonly';

Так дублирования не будет т.к. ф-ции для деинсталляции импортируются в скрипт под другим названием (с суффиксом U например).

Кстати так вчера и сделал ;) .]]> Craft Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830187 Tue, 15 Feb 2011 10:44:14 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2830187 Цитата Craft @
Я смотрел пример в CodeDll.iss

...и не заметил, что там показано как раз то, что тебе и нужно.
    [Files]
    Source: ISTask.dll; DestDir: "{app}"
     
    [Code]
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@files:ISTask.dll stdcall setuponly';
          
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@files:ISTask.dll stdcall setuponly';
          
          
    function KillTaskU(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall uninstallonly';
          
    function RunTaskU(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@{app}\ISTask.dll stdcall uninstallonly';

Так дублирования не будет т.к. ф-ции для деинсталляции импортируются в скрипт под другим названием (с суффиксом U например).]]> mitrich Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829686 Mon, 14 Feb 2011 15:36:10 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829686 Цитата Kray74 @
А если так?
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@files:ISTask.dll stdcall setuponly';
     
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@files:ISTask.dll stdcall setuponly';
     
     
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall uninstallonly';
     
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@{app}\ISTask.dll stdcall uninstallonly';


PS: В директории Inno Setup\Examples есть пример CodeDll.iss, посмотри его.

Пишет дублирование функций. Я смотрел пример в CodeDll.iss. Я не могу придумать как сделать чтоб работало для удаления и перед установкой.
    Source: ISTask.dll; DestDir: "{app}"
     
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@ISTask.dll stdcall setuponly';
Код не работает
    Source: ISTask.dll; DestDir: "{app}"
     
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall setuponly';
Тоже не работает. Почему то только работает первый вариант.
    Source: ISTask.dll; DestDir: "{app}"
     
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@files:ISTask.dll stdcall delayload';
Может будут какие то идеи по этому поводу.]]> Craft Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829674 Mon, 14 Feb 2011 15:09:38 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829674
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@files:ISTask.dll stdcall setuponly';
     
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@files:ISTask.dll stdcall setuponly';
     
     
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall uninstallonly';
     
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@{app}\ISTask.dll stdcall uninstallonly';


PS: В директории Inno Setup\Examples есть пример CodeDll.iss, посмотри его.]]> Kray74 Инсталляторы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829631 Mon, 14 Feb 2011 14:21:04 +0000 Убить процесс перед удалением программы https://forum.sources.ru/index.php?showtopic=325763&view=findpost&p=2829631
    function InitializeSetup(): Boolean;
    begin
      If RunTask('Test.exe', false) then  
        begin                              
          if MsgBox('File Test.exe are using. Close this file and continue installing?', mbInformation, mb_YesNo) = idYes then
             begin                        
               KillTask('Test.exe');      
               Result:= True;
             end else                    
              Exit;                      
        end;
    Result:=True;
    end;

Функция KillTask и RunTask взяты с библиотеки isxdl.dll. Но почему то такой же код только для удаления не работает
    function InitializeUninstall(): Boolean;
    begin
       If RunTask('Test.exe', false) then  
        begin                              
          if MsgBox('File Test.exe are using. Close this file and continue uninstalling?', mbInformation, mb_YesNo) = idYes then
             begin                        
               KillTask('Test.exe');      
               Result:= True;
             end else                    
              Exit;                      
        end;
    Result:=True;
    end;
Подскажите как можно убыть процесс перед удалением, и если пользователь выбрал "Нет" , отменить удаление.

Ошибка была при загрузке загрузке длл.
    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';
Но проблема так и не решилась. когда вместо files: я написал
    function KillTask(ExeFileName: string): Integer;
    external 'KillTask@{app}\ISTask.dll stdcall delayload';
     
    function RunTask(FileName: string; bFullpath: Boolean): Boolean;
    external 'RunTask@{app}\ISTask.dll stdcall delayload';
P.S. Библиотеку загрузил у каталог где установлена программа.
    Source: ISTask.dll; DestDir: "{app}"
Как решить эту проблему. Буду раз за любую помощь.

Ошибка после изменений "An attempt was made to expand the "app" constant before it was inicialized"]]> Craft Инсталляторы