[habib2302]

AlekseyPopovv,

Код:

[Code]
procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssInstall then
begin
  RemoveDir(ExpandConstant('{app}'));
 end;
end;

Доброе время суток. Возможно ли организовать MsgBox с отрицательным и положительным ответом на перезагрузку ПК после окончания установки?

[nik1967]

habib2302,

справка

[Setup]: AlwaysRestart

Возможные значения: yes или no
Значение по умолчанию: no

Описание:
При значении yes инсталлятор будет всегда предлагать перезагрузить компьютер после успешной установки, даже если этого не нужно (в секции [Files] могут быть параметры с флагом restartreplace).

[habib2302]

nik1967, у меня последняя страница отключена

[Dodakaedr]

habib2302, вот так пробуй

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

Код:

[Setup]
AppName=App
AppverName=App v1.0
DefaultDirName={pf}\App
OutputDir=.
DisableFinishedPage=yes

[Code]
Procedure Reboot();
var
i: integer;
begin
  Exec('shutdown.exe', '/r /t 0 /d u:4:2', '', SW_HIDE, ewNoWait, i);
end;

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssDone then
  begin
    if MsgBox('Для завершения установки требуется перезагрузка системы.'+#13#10+'Перезагрузить сейчас?', mbInformation, MB_YESNO) = 6 then Reboot();
  end;
end;

[habib2302]

Помогите решить еще одну проблему. не запускается екзешник, который посредством команды /(un)install /silent должен запустить или удалять службу
https://yadi.sk/d/IpYZ28CBx6ozB

Код:

[Run]
Filename: {app}\USBSRService.exe; Parameters: "/install /silent"; Flags: waituntilterminated

[UninstallRun]
Filename: "{app}\USBSRService.exe"; Parameters: "/uninstall /silent";

[Code]
 procedure CurStepChanged(CurStep: TSetupStep);
var
 RC: integer;
begin
  if CurStep = ssInstall then
  Exec(ExpandConstant('{app}\USBSRService.exe'), '/uninstall /silent', '', SW_HIDE, ewWaitUntilTerminated, RC);
end;

[Dodakaedr]

habib2302,

Код:

Exec(ExpandConstant('{app}\USBSRService.exe'), ' /uninstall /silent', '', SW_HIDE, ewWaitUntilTerminated, RC);

[habib2302]

Dodakaedr, а с секций run?

[Dodakaedr]

habib2302, там все правильно

[semiono]

Нужно добваить пару строк в {sys}\drivers\etc\hosts

Код:

127.0.0.1       www.addr1.com
127.0.0.1       www.addr2.com

Во-первых, хотелось бы добавить строки только при их отсутствии, то есть без повторения строк.
Во-вторых, хотелось бы учесть случай отсутствия \n в конце последней записи существующего файла.
Однако, добавлять NEWLINE в пустой файл вначале, тоже не хотелось бы, для этого я думаю можно использовать
проверку размера файла == 0 и тогда делать записи с первой строки.

Желательно не выводить окна, если Non Admin mode, чтобы всё тихо было.
Лучше бы установить права доступа на файл в любом режиме, но я думаю это лишнее, возможно даже совсем не нужно.

[El Sanchez]

Нужно добваить пару строк в {sys}\drivers\etc\hosts »

semiono,

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

Код:

//////////////////////////////////////////////////
function StripWhitespace(const S: string): string;
var
  C: Char;
  i: Integer;
begin
  for i := 1 to Length(S) do
  begin
    C := S[i];
    if (C = ' ') or ((C >= #$0009) and (C <= #$000D)) or (C = #$00A0) or (C = #$0085) then Continue;
    Result := Result + C;
  end;
end;

/////////////////////////////////////////////////////////
function AddEntryToHosts(const Ip, Url: string): Boolean;
var
  i: Integer;
begin
  Result := False;
  with TStringList.Create do
  try
    LoadFromFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    for i := 0 to Count - 1 do
      if CompareText(StripWhitespace(Strings[i]), Trim(Ip) + Trim(Url)) = 0 then Exit;
    Add(Ip + #9 + Url);
    SaveToFile(ExpandConstant('{sys}\drivers\etc\hosts'));
    Result := True;
  finally
    Free;
  end;
end;

///////////////////////////
procedure InitializeWizard;
begin
  if AddEntryToHosts('127.0.0.1', 'google.ru') then
    MsgBox('Done', mbInformation, MB_OK);
end;

Желательно не выводить окна, если Non Admin mode, чтобы всё тихо было. »

nonadmin-программам в системных директориях делать нечего.