Старожил
Сообщения: 400
Благодарности: 52
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
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-клиент"
|
-------
Addon: RegShot
Отправлено: 22:11, 11-03-2008
| #380
|