[ZVSRus]

Как убрать это сообщение:

[BMODS]

Как в компоненты добавить установку шрифтов в папку Windows fonts.

[kotyarko@fb]

BMODS,

Код:

[Files]
Source: "Font.otf"; DestDir: "{fonts}"; FontInstall: "Font_Real_Name"; Flags: fontisnttruetype onlyifdoesntexist uninsneveruninstall
Source: "Font2.ttf"; DestDir: "{fonts}"; FontInstall: "Font2_Real_Name"; Flags: onlyifdoesntexist uninsneveruninstall

Всё это есть в справке.

[BMODS]

kotyarko@fb, а путь как указать ?

[BMODS]

Примеры тут были знаю может кто скинуть

[kotyarko@fb]

а путь как указать ? »

Путь чего?

[Dodakaedr]

Подскажите, как можно заменить несколько десятков значений на свое в ini файле?
Имеется ini файл на 1130 строк и в разных секциях в разных ключах есть определенное значение (%Programm Path%) вот и требуется его заменить. Через секцию [INI] не вариант.

Но только почему то, как и да этой процедуры выдает сообщение, что часть элементов осталась, вы можете остальное удалить вручную. Хотя ничего нет, все удалилось. »

Так пробовали?

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[UninstallDelete]
Type: FilesAndOrDirs; Name: {app};

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then // или usUninstall
    begin
    UnloadDLL(ExpandConstant('{app}\msimg32.dll'));
    DeleteFile(ExpandConstant('{app}\msimg32.dll'));
    end;
  //if CurUninstallStep = usDone then DelTree(ExpandConstant('{app}'), True, True, True);
end;

[ZVSRus]

Так пробовали?

Так помогло. Только выдает сообщение, картинка чуть выше.
Где-то в системе наверное остались папки, (или в реестре записи) не могу найти.
Это сообщение напрягает.

[Dodakaedr]

Только выдает сообщение, картинка чуть выше. »

Если хвостов действительно нет, то можно вот так сделать:

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

Код:

[Setup]
AppName=My Application
AppVersion=1.5
DefaultDirName={pf}\My Application

[Messages]
UninstalledMost=Программа My Application была полностью удалена с вашего компьютера.

[UninstallDelete]
Type: FilesAndOrDirs; Name: {app};

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  if CurUninstallStep = usPostUninstall then // или usUninstall
    begin
    UnloadDLL(ExpandConstant('{app}\msimg32.dll'));
    DeleteFile(ExpandConstant('{app}\msimg32.dll'));
    end;
  //if CurUninstallStep = usDone then DelTree(ExpandConstant('{app}'), True, True, True);
end;

[ZVSRus]

Если хвостов действительно нет

Скорее всего остались хвосты после этих записей.

Код:

 Name: "{userstartmenu}\Light Image Resizer 4"; Filename: "{app}\{#MyAppExeName}"; Check: PanelPuskCheck and UserIconCheck;
 Name: "{commonstartmenu}\Light Image Resizer 4"; Filename: "{app}\{#MyAppExeName}"; Check: PanelPuskCheck and AllUserIconCheck;

Как зайти в эти папки?
C:\ProgramData\Microsoft\Windows\Start Menu\Programs\ObviousIdea\Light Image Resizer 4\Light Image Resizer 4.lnk
C:\Users\ZVSRus\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\ObviousIdea\Light Image Resizer 4\Light Image Resizer 4.lnk
Если так:

Код:

Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
 if (CurUninstallStep = usPostUninstall)  then
  UnloadDLL(ExpandConstant('{app}\msimg32.dll'));
  DeleteFile(ExpandConstant('{app}\msimg32.dll'));
  DelTree(ExpandConstant('{app}'), True, True, True);
  RemoveDir(ExpandConstant('{pf}\ObviousIdea'));
  RemoveDir(ExpandConstant('{userstartmenu}\ObviousIdea'));
  RemoveDir(ExpandConstant('{commonstartmenu}\ObviousIdea'));
end;

Так папки удалятся или нет