例子:删除空文件夹

优质
小牛编辑
139浏览
2023-12-01
引用 删除空文件夹.nsi 的内容:

SetCompressor /SOLID lzma
SetCompress force
!include "FileFunc.nsh"
!insertmacro Locate
XPStyle on
OutFile "删除空文件夹.exe"
Name ""
Var INI
Page Custom ShowCustom LeaveCustom
Function .onInit
BringToFront
InitPluginsDir
GetTempFileName $INI $PLUGINSDIR
File /oname=$INI "删除空文件夹.ini"
FunctionEnd
Function ShowCustom
InstallOptions::initDialog /NOUNLOAD "$INI"
InstallOptions::show
FunctionEnd
Function LeaveCustom
ReadINIStr $R8 $INI "Field 1" "State"
FunctionEnd
Page instfiles
Section
StrCpy $R2 0
StrCpy $R3 0

loop:
StrCpy $R1 0
${Locate} "$R8" "/L=DE" "Example4"
IntOp $R3 $R3 + 1
IntOp $R2 $R2 + $R1
StrCmp $R0 StopLocate +2
StrCmp $R1 0 0 loop

IfErrors 0 +2
MessageBox MB_OK 'error' IDOK +2
MessageBox MB_OK '$R2 directories were removed$\n$R3 loops'
SectionEnd

Function Example4
SetOverwrite try
RMDir $R9
IfErrors +3
IntOp $R1 $R1 + 1
goto end
StrCpy $R0 StopLocate
end:
Push $R0
FunctionEnd

引用 删除空文件夹.ini 的内容:

; Ini file generated by the HM NIS Edit IO designer.
[Settings]
NumFields=2

[Field 1]
Type=DirRequest
Left=5
Right=-5
Top=24
Bottom=36

[Field 2]
Type=Label
Text=Դ:
Left=2
Right=89
Top=4
Bottom=14