[AnalogXP]

Serega_, спасибо, то что нужно.
Вот только собственную папку так и не сумел удалить. Чего-то я не понял:

Код:

[_Code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  If CurUninstallStep = usDone then  
  begin
	...
	if DirExists(ExpandConstant('{app}') = True then
		DelTree(ExpandConstant('{app}', True, True, True);
  end;
end;