Скрипты Inno Setup. Помощь и советы [часть 9]

Nordek · Конфигурация компьютера

Beavimo, Смотрите прикреплённый файл.

Beavimo · Отправлено: **22:49, 31-01-2020** | #**502**

Nordek,

Nordek · Конфигурация компьютера

Beavimo, В справке аналогично написано, что собственно nik1967: Вам предложил сделать.

Можно иначе - Проявить смекалку и подсмотреть путь:

Код:

[Code]
var
  Edit1: TNewEdit;

procedure InitializeWizard();
begin
  Edit1 := TNewEdit.Create(WizardForm);
  with Edit1 do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(8), ScaleY(328), ScaleX(280), ScaleY(21));
    Text := ExpandConstant('{localappdata}');
  end;
end;

ZVSRus · Конфигурация компьютера

Beavimo,

Код:

[InstallDelete]
Type: files; Name: "{userappdata}\Roaming\TEST\run.pid"

А так

Код:

[InstallDelete]
Type: files; Name: "{userappdata}\TEST\run.pid"

Beavimo · Отправлено: **11:20, 01-02-2020** | #**505**

Вопрос Знатокам

! Дошел до деинсталлятора, я так понимаю переименовать (unins000.exe) не получится, и есть ли возможность не создавать (unins000.dat)? Также интересует, можно ли в файле (unins000.exe) поменять описание файла, и его версию?

nik1967 · Конфигурация компьютера

Цитата Beavimo:

есть ли возможность не создавать »

Опять же справка.

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

[Setup]: Uninstallable
Возможные значения:
yes или no, или логические выражения
Значение по умолчанию:
yes

Описание:
Inno Setup определяет, создавать ли автоматический деинсталлятор. При значении yes или логического выражения True он создается. Иначе автоматическое удаление будет невозможно, так что пользователь должен будет вручную удалять программу.

Например:
[Setup]
Uninstallable=not IsTaskSelected('portablemode')

[Tasks]
Name: portablemode; Описание: "Portable Mode"

Beavimo · Отправлено: **16:24, 01-02-2020** | #**507**

nik1967, это совсем не то. у файла (unins000.exe) есть описание файла, в моем случае (Setup/Unistall), и версия (51.1052.0.0), возможно ли подставить свои значения.

ZVSRus · Конфигурация компьютера

Beavimo · Отправлено: **19:28, 01-02-2020** | #**509**

ZVSRus,

спасибо разсмешыл, вот я спаршую возможно сделать так как у вас на картинке из под Инно, я только учусь, есть люди которые знают намного больше, и просто ответят нет низя потому что знают это, и мне день сохранят на изучение, потому как поиск не дает положытельного результата по этой теме.

Beavimo · Отправлено: **19:43, 01-02-2020** | #**510**

мож подскажыте как довести этот код до ума

CODE

Код:

procedure CurStepChanged(CurStep: TSetupStep); var
  RC: Integer;
   SIn, SOut: String;
    begin
     if CurStep=ssInstall then
     begin 
    Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="TEST"','', SW_HIDE, ewWaitUntilTerminated, RC)
   SIn:='advfirewall firewall add rule name="TEST" dir=in action=block program='+ExpandConstant('"{app}\TEST.exe"')+' enable=yes'; Exec('netsh',  SIn,'', SW_HIDE, ewWaitUntilTerminated, RC)
  SOut:='advfirewall firewall add rule name="TEST" dir=out action=block program='+ExpandConstant('"{app}\TEST.exe"')+' enable=yes'; Exec('netsh', SOut,'', SW_HIDE, ewWaitUntilTerminated, RC)
end
end;

он удаляет правило при повторной установке, думаю не надо объяснять для чего я так сделал... а как зделать так чтобы при повторной установке он искал правило по имени, и в случае если оно уже есть то if........then Result:=True, в противном случае else устанавливал правило в брандмауэр? а так он постоянно удаляет и ставит по новой из за чего инсталятор подтупливает