[volk1234]

не advpack, а advpack.dll »

что в лоб что полбу

[Drinko]

Код:

%16422%\Netlook

в кавычки

ЗЫ возможно какой-то процесс сидит, и папку удалить из-за этого невозможно...

[volk1234]

в кавычки »

и в кавычки и обратный слэш

[jameszero]

volk1234
А файл netlook.inf в папку Windows\inf не забыли скопировать?

[volk1234]

еслибы. И копировал и переименовывал и так оставлял.
Вот что у меня получилось с вашей помощью,
файлы , ярлыки, записи в реестре, удаляются. Папки остаются.

и еще скрипт для генерации аддонов, почемуто в секции анинсталяции
предлагает вот такой путь "%-1%/Netlook/ вместо %1642%...

[vek]

Код:

...[Uninstall]
BeginPrompt		=BeginUnInsPrompt
ProfileItems		=PROG.DelShortcut
RunPostSetupCommands	=Dir.Delete
DelReg			=PROG.DelReg
EndPrompt		=EndUnInsPrompt
[BeginUnInsPrompt]
Prompt=Программа %PROGNAME%  удалить?
[EndUnInsPrompt]
Prompt=Программа %PROGNAME% удалена.
[Close.Prog]
TASKKILL /F /IM %EXENAME%
[Dir.Delete]
rundll32.exe advpack.dll,DelNodeRunDLL32 %16422%\%PROGDIR%
[PROG.DelReg]
HKLM,"%UNINSTALL%"
[PROG.AddReg]
HKLM,"%UNINSTALL%","DisplayIcon",0,"%16422%\%PROGDIR%\%EXENAME%"
HKLM,"%UNINSTALL%","DisplayName",,"%PROGNAME%"
HKLM,"%UNINSTALL%","DisplayVersion",,"v%VERSION%"
HKLM,"%UNINSTALL%","Publisher",,"%PABLISHER%"
HKLM,"%UNINSTALL%","URLInfoAbout",,"%URL%"
HKLM,"%UNINSTALL%","UninstallString",,"rundll32.exe advpack.dll,LaunchINFSection %NAMEINF%, UnInstall"
...
[Strings] 
PROGNAME	="Regshot v.1.7"
PROGPATH	=
UNINSTALL	="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\RegshotClassic"
PROGDIR	="Regshot v.1.7"
EXENAME	="regshot.exe"
VERSION	="1.7.2.2"
PABLISHER	="OSzone.net"
URL		="https://sourceforge.net/projects/regshot"
NAMEINF	="regshotcl.inf"
SHPATH		="Утилиты"
SHINFO		="Снимок реестра"
...

Кусочек кода, который отвечает за деинсталяцию вместе с папками.

[jameszero]

volk1234
Поскольку удаление папок осуществляется через advpack, то вместо инструкции Run нужно использовать RunPostSetupCommands
Run обрабатывается только через setupapi

[volk1234]

помогло предложение jameszero
и разглядывание инфа созданного скриптом

работает только такой вариант
с RunPostSetupCommands и удаление папок по одной:

Код:

 
[NL.Uninstall]
DelFiles=DelCopyMain, DelCopyConfig, DelCopyHelp, DelCopyHist, DelCopyLang, DelCopySkin, DelCopySound, DelCopyTools, DelCopyInf, DelRenToolsLang
DelReg=Dreg
ProfileItems	=	ShortcutD
RunPostSetupCommands=NL.AdinfCall

[NL.AdinfCall]
Commandline="""%11%\rundll32.exe"" advpack,LaunchINFSection ""%17%\netlook.inf"",NL.DD,4"

[NL.DD]
DelDirs=dirs

[dirs]
"%16422%\Netlook\Tools\Configurator\Languages"
"%16422%\Netlook\Tools\Configurator"
"%16422%\Netlook\Tools"
"%16422%\Netlook\Sound"
"%16422%\Netlook\Skin"
"%16422%\Netlook\Languages"
"%16422%\Netlook\Help"
"%16422%\Netlook\Config"
"%16422%\Netlook"

[Dreg]
HKLM,"%Key%"

[ShortcutD]
Name		=	"Netlook 2.3",0x00000002
SubDir		=	"Утилиты"

[strings]
Key="Software\Microsoft\Windows\CurrentVersion\Uninstall\Netlook"

[greg_b]

volk1234,

удаление папок по одной »

- ну вот и разобрался, я на аналогичные грабли наступал с аддоном qip infium - там море папок, удлял по одной в обратном порядке.

[vek]

volk1234&greg_b
Что-то я Вас не понял. Задача стоит удалить все папки либо по одной?

Код:

rundll32.exe advpack.dll,DelNodeRunDLL32 %16422%\%PROGDIR%

Такая строчка удалит полностью корневую папку со всеми вложенными.

Вот пример кода для QIP Infinum 9000b

Код:

[Uninstall]
BeginPrompt		=BeginUnInsPrompt
ProfileItems		=PROG.DelShortcut
RunPostSetupCommands	=Dir.Delete
DelReg			=PROG.DelReg
EndPrompt		=EndUnInsPrompt


[BeginUnInsPrompt]
Prompt=Программа %PROGNAME%  удалить?
[EndUnInsPrompt]
Prompt=Программа %PROGNAME% удалена.

[Close.Prog]
TASKKILL /F /IM %EXENAME%

[Dir.Delete]
rundll32.exe advpack.dll,DelNodeRunDLL32 %16422%\%PROGDIR%

[PROG.AddReg]
HKLM,"%UNINSTALL%","DisplayIcon",0,"%16422%\%PROGDIR%\%EXENAME%"
HKLM,"%UNINSTALL%","DisplayName",,"%PROGNAME%"
HKLM,"%UNINSTALL%","DisplayVersion",,"v%VERSION%"
HKLM,"%UNINSTALL%","Publisher",,"%PABLISHER%"
HKLM,"%UNINSTALL%","URLInfoAbout",,"%URL%"
HKLM,"%UNINSTALL%","UninstallString",,"rundll32.exe advpack.dll,LaunchINFSection %NAMEINF%, UnInstall"

[PROG.DelReg]
HKLM,"%UNINSTALL%"

[PROG.AddShortcut]
Name		=%PROGNAME%
CmdLine	=16422,%PROGDIR%,%EXENAME%
WorkingDir	=16422,%PROGDIR%
SubDir		=%SHPATH%
InfoTip		=%SHINFO%

[PROG.DelShortcut]
Name		=%PROGNAME%,0x00000002
SubDir		=%SHPATH%

[Strings] 
PROGNAME	="QIP Infium"
PROGPATH	=
UNINSTALL	="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\QIP Infium"
PROGDIR	="QIP Infium"
EXENAME	="infium.exe"
VERSION	="9000 b"
PABLISHER	="OSzone.net"
URL		="http:\\www.qip.ru"
NAMEINF	="qipinfium.inf"
SHPATH		="Интернет"
SHINFO		="ICQ-клиент"