Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564961 Mon, 14 May 2007 19:56:59 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564961 Цитата Dmitry_177 @
В самом инсталляторе:

    [Files]
    Source: "E:\Setup\Setup.dll"; Flags: dontcopy
     
    [Code]
    function TerminatePrg: boolean;
    external 'TerminatePrg@files:Setup.dll stdcall';
     
    [UninstallDelete]
    Name: "{app}\MyProg.exe"; Type: files; Check: TerminatePrg

Ну, а так:
    [UninstallDelete]
    Name: "{app}\MyProg.exe"; Type: files; Check: TermService
     
    [Code]
    function TerminatePrg: boolean;
    external 'TerminatePrg@files:Setup.dll stdcall';
     
    Function TermService:boolean;
    begin
      Result:=TerminatePrg;
    end;
]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564396 Mon, 14 May 2007 13:31:00 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564396
Вот куски моего скрипта:
    [Files]
    Source: "sputil.dll"; Flags: dontcopy
    ...
     
     
    function UnInstall(UserPassword: PChar): Boolean; external 'UnInstall@files:sputil.dll stdcall';
     
    function InitializeUninstall(): Boolean;
    begin
      Result := UnInstall('some_pass');
    end;
    ...


Так вот, единственный способ прекратить деинсталляцию, который я знаю - это отдать False при вызове InitializeUninstall.
С другой стороны, в InitializeUninstall невозможно вызвать функцию из моей подключаемой библиотеки sputil.dll.
Inno пишет "could not call proc".

В то же время, если перенести вызов функции UnInstall из sputil.dll куда нибудь подальше :) вроде CurUninstallStepChanged, то естественно она зовется, но уже поздно, отменить инсталляцию нельзя. А мне нужно запросить пароль, отдать его на растерзание функции UnInstall и в зависимости от этого запретить/разрешить деинсталляцию.
Посоветуйте, как быть :unsure:]]> Fork Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564234 Mon, 14 May 2007 12:20:00 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1564234
    // создается событие для выключения программы:
      hTermEvent := CreateEvent(nil, false, false, TermEventName);
      CloseHandle(CreateThread(nil, 0, @ThreadTerminateEvent, nil, 0, idThread));
     
    function ThreadTerminateEvent(Param: Pointer): DWORD; stdcall;
    begin
      WaitForSingleObject(hTermEvent, INFINITE);
      // сохраняем то что нужно сохранить и выключаем программу
      Application.Terminate;
      Result := 0;
    end;


В библиотека которая встраивается в инсталлятор Setup.dll:

    function TerminatePrg: boolean; stdcall;
    var
      hTermEvent: THandle;
    begin
      hTermEvent := CreateEvent(nil, false, false, TermEventName);
      if GetLastError = ERROR_ALREADY_EXISTS then
        SetEvent(hTermEvent);
      CloseHandle(hTermEvent);
      Result := true;
    end;
     
    exports
      TerminatePrg;


В самом инсталляторе:

    [Files]
    Source: "E:\Setup\Setup.dll"; Flags: dontcopy
     
    [Code]
    function TerminatePrg: boolean;
    external 'TerminatePrg@files:Setup.dll stdcall';
     
    [UninstallDelete]
    Name: "{app}\MyProg.exe"; Type: files; Check: TerminatePrg
]]> Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1563065 Sun, 13 May 2007 15:51:10 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1563065 Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1563003 Sun, 13 May 2007 14:08:28 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1563003 Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1557601 Tue, 08 May 2007 18:29:37 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1557601
    [Files]
    Source: "E:\Klient.RU\Setup\Setup.dll"; Components: KLServer; Flags: dontcopy
]]> Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1557497 Tue, 08 May 2007 16:31:49 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1557497
    [UninstallDelete]
    Name: {app}\My Dir\KLServer.exe; Type: files; Check: TermService
     
    [Code]
    Function TermService:boolean;
    begin
      Result:=TerminateServer;
    end;
]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1556133 Mon, 07 May 2007 19:02:55 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1556133
    [UninstallDelete]
    Name: {app}\My Dir\KLServer.exe; Type: files; Check: TerminateService


где TerminateService процедура, т.е. никакого значения не возвращает, то при компиляции инсталлятора вызывается какая-то ошибка.. Сделал TerminateService как функцию, которая возвращает значение типа boolean, о оно всегда true, т.е. так:

    [Code]
    function TerminateServer: boolean;
    external 'TerminateServer@files:Setup.dll stdcall';


то сам то инсталлятор компилируется, но при самой инсталляции почемуто выскакивает ошибка: "Внутренняя ошибка: Expression error 'Script error: Could not call proc.'"]]> Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1556117 Mon, 07 May 2007 18:50:59 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1556117
    procedure CurStepChanged(CurStep: TSetupStep);
    CurStep=ssInstall;
     
    procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
    CurUninstallStep=usUninstall;
]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1555196 Mon, 07 May 2007 04:38:16 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1555196 Цитата
Пишется dll с функцией, которая завершает процесс, и подключается к инсталлятору.

написал DLL, пеодключил к инсталлятору:

    [Code]
    procedure TerminateService;
    external 'TerminateService@files:Setup.dll stdcall';


Эта процедура делает сигнальным определенное событие, которое ожидает сам сервис, по которому завершает свою работу..

Вот как мне в при удалении программы(чтобы его остановить перед тем как удалить исполняемый файл сервиса) и при переустановки более новой версии запускать эту процедуру?]]> Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1516227 Mon, 09 Apr 2007 09:53:06 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1516227 Цитата jack128 @
А если очень внимательно присмотреться к procedure FormButtonOnClick(Sender: TObject); ? ;-)

Угу. Ну, если исключить строку:
    Form.CenterInsideControl(WizardForm, False);
, то работает!]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1516162 Mon, 09 Apr 2007 08:55:25 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1516162 Цитата Profi @
Данный пример ничего нового мне не сказал.

А если очень внимательно присмотреться к procedure FormButtonOnClick(Sender: TObject); ? ;-)]]> jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1515267 Sun, 08 Apr 2007 09:38:46 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1515267 Цитата jack128 @
Может если присмотреть к демкам, в часности к CodeClasses.iss , то что нить прояснится? ;-)

В Install'е я могу создать все что угодно, а вот в Uninstall'е - нет! Данный пример ничего нового мне не сказал.]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1515019 Sat, 07 Apr 2007 20:01:54 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1515019 jack128 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1514902 Sat, 07 Apr 2007 18:23:51 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1514902 Цитата Dmitry_177 @
По поводу удаления Ini-файла.. Можно ли сделать так, чтобы было это не в виде MessageBox-а, а в виде окна, и там чтоб был CheckBox с выбором удалить настройки или нет.. Так просто в основном делается на сколько я знаю..

Хм, судя по всему нет! Как вставить свою страницу в Uninstall, ровно, как и использовать для данных целей встроенные возможности, я не нашел.]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1513411 Fri, 06 Apr 2007 11:29:02 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1513411 Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1513190 Fri, 06 Apr 2007 09:56:10 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1513190 Цитата Dmitry_177 @
Дело в том что она работает как сервис.. т.е. не имеет своего окна даже.. вот можноли такую программу остановить в InnoSetup?

Пишется dll с функцией, которая завершает процесс, и подключается к инсталлятору.]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1511146 Thu, 05 Apr 2007 04:11:23 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1511146 Dmitry_177 Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1510703 Wed, 04 Apr 2007 15:00:28 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1510703 Цитата Dmitry_177 @
Установленная программа создает файл конфигурации(INI), так вот при удалении как сделать так чтобы у пользователя спрашивалось удалять этот файл настроек или оставить?

    [UninstallDelete]
    Name: {app}\My Dir\My ini.ini; Type: files; Check: DelOrNo
     
    [Code]
    Function DelOrNo:boolean;
    begin
        Result:=MsgBox('Удалить Ini-файл?',mbConfirmation,MB_YESNO)=IDYES;
    end;

Цитата Dmitry_177 @
И еще вопрос, если я ставлю новую версию программы, а старая в это время запущенна и работает.. как сделать так чтобы старая программа заменилась на новую? скорей всего это надо через перезапуск компьютера, как так сделать чтобы после перезапуска записалась новая версия файла программы? и собственно как тогда осуществить сам перезапуск?

Вот тут подробнее? Что если просто закрыть программу, установить новую и запустить её? Зачем перезагружать компьютер?]]> Profi Инсталляторы https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1510692 Wed, 04 Apr 2007 14:51:40 +0000 Вопрос по Inno Setup https://forum.sources.ru/index.php?showtopic=178961&view=findpost&p=1510692
И еще вопрос, если я ставлю новую версию программы, а старая в это время запущенна и работает.. как сделать так чтобы старая программа заменилась на новую? скорей всего это надо через перезапуск компьютера, как так сделать чтобы после перезапуска записалась новая версия файла программы? и собственно как тогда осуществить сам перезапуск?]]> Dmitry_177 Инсталляторы