[Serega]

AnalogXP, в скрипте, у вас всё нормально, по крайней мере ошибок я не нашёл. Единственное, что в секции [Files], я бы записал так:

читать дальше »

Код:

.........
[Files]
Source: E:\Install\Programe\Programa\MyProgramName\Installer\*; DestDir: {app}; Flags: ignoreversion createallsubdirs recursesubdirs
........

т.е. все файлы в одной строке. Если в папке Installer или её подпапках есть файлы, которые не надо включать в инсталлятор, то нужно использовать Excludes:

Код:

.........
[Files]
Source: E:\Install\Programe\Programa\MyProgramName\Installer\*; Excludes: FileName1.exe, FileName2.exe; DestDir: {app}; Flags: ignoreversion createallsubdirs recursesubdirs
........

т.е. перечисляем файлы через запятую, так же можно использовать переменные - *.txt

Да и используйте в своих сообщениях тег [ more][/more]

Хотя попробуете добавить ещё раз DelTree, т.е.

читать дальше »

Код:

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  If CurUninstallStep = usDone then  // проверяем существование папки после удаления программы
  begin
	  if DirExists(ExpandConstant('{userappdata}\MyProgramName')) = True then
		DelTree(ExpandConstant('{userappdata}\MyProgramName'), True, True, True);
	  if DirExists('{app}') = True then begin
		  DelTree('{app}', True, True, True);
		  DelTree('{app}', True, True, True);
    end;
  end;
end;