[saurn]

хм.. у меня 64-х разрядная среда, и процесс закрывается »

То у моей системы глюки были.

обнаружил проблему, когда нажимаю "Нет", то установка продолжается, и процесс не закрывается. »

Да нет, работает, но, на всякий, альтернативный вариант:

Скрытый текст

Код:

function IsRunTask(): Boolean;
begin
    Result := ( not RunTask( 'calc.exe', False ) );
    if ( not Result ) then
      if ( mrYes = MsgBox( 'Программа установки обнаружила, что программа Калькулятор запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbError, mb_YesNo ) ) then
        Result := ( KillTask( 'calc.exe' ) <> 0 );
end;


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

[Dodakaedr]

обнаружил проблему, когда нажимаю "Нет", то установка продолжается, и процесс не закрывается. »

Какие еще задания выполняются у вас в InitializeSetup?

[Irenis]

Здравствуйте Может кто подскажет, как создать ярлык в формате exe, чтобы этот ярлык просто открывал страницу в браузере? Нужен ярлык именно в формате exe, чтобы его можно было при создании скрипта назначить главным исполняемым файлом exe.

Ну или наоборот. Если я создам обычный ярлык со ссылкой, как тогда отредактировать скрипт, чтобы установщик автоматически выводил этот ярлык на рабочий стол (т.е. приложение установилось и на рабочем столе появился мой ярлык со ссылкой)? Спасибо

[saurn]

Если я создам обычный ярлык со ссылкой, как тогда отредактировать скрипт, чтобы установщик автоматически выводил этот ярлык на рабочий стол (т.е. приложение установилось и на рабочем столе появился мой ярлык со ссылкой)? »

Скрытый текст

Код:

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp


[INI]
Filename: {userdesktop}\Перейти на сайт.url; Section: InternetShortcut; Key: URL; String: http://forum.oszone.net;


[UninstallDelete]
Name: {userdesktop}\Перейти на сайт.url; Type: files;

[icetanker]

Добрый день,а кто нибудь знает как написать так,чтобы файл активх скачивался с сервера,а то постоянно новый вкладывать в инсталлятор неудобно????

[saurn]

icetanker,
#443, #1618
Пример из шапки Загрузка файла из Интернет
InnoTools Downloader

[Kashtan007]

Какие еще задания выполняются у вас в InitializeSetup? »

Использование скина и автоопределение установки в реестре.

[icetanker]

icetanker, #443, #1618 Пример из шапки Загрузка файла из Интернет InnoTools Downloader »

а можно как нибудь сделать без прогресс бара,он скачал в определенную папку и после этого зарегистрировал ActiveX,просто не совсем понятно как там исправить,чтобы он скачал,а потом зарегистривовал????

[Dodakaedr]

Использование скина и автоопределение установки в реестре. »

Если проблема не решилась, то попробуйте таким способом:

Скрытый текст

Код:

function InitializeSetup1(): Boolean;
begin
  If RunTask('calc.exe', false) then begin
    if MsgBox('Программа установки обнаружила, что программа Калькулятор запущена в данный момент.'#13#13'Закрыть программу и продолжить установку?', mbError, mb_YesNo) = idYes then begin
      KillTask('calc.exe');
      Result := True;
    end else
      Exit;
    end;
    Result := True;
end;

function InitializeSetup2(): Boolean;
begin
  ExtractTemporaryFile('{#SKinDll}');
  ExtractTemporaryFile('{#SKin}');
  LoadSkin(ExpandConstant('{tmp}\{#SKin}'), '{#SKinIni}');
  Result:=True;
end;

function InitializeSetup3(): Boolean;
begin
 Result:= True;
 if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNamePro') then
 begin
  if not RegKeyExists(HKLM, 'SOFTWARE\Company\ProgramNameLight') then
  begin
   MsgBox('Программа не найдена!', mberror, mb_ok);
   Result:=False;
   exit;
  end
 end
end;

function InitializeSetup(): Boolean;
begin
  Result := InitializeSetup1();  if not Result then exit;
  Result := InitializeSetup2();  if not Result then exit;
  Result := InitializeSetup3();  if not Result then exit;
end;

[Kashtan007]

Dodakaedr, ругается на строку WizardForm.Free;

Код:

procedure DeinitializeSetup();
begin
    RemoveFontResource(ExpandConstant('{tmp}\{#Font}'), FR_PRIVATE, 0);
    WizardForm.Free;
  UnloadSkin;
end;

Это при нажатии "Нет".
P.S. Вот ошибка