[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-клиент"