[gora]

проверил чтобы не было дублирования? »

Код:

Set InstPath=%SystemDrive%\Program Files\7-Zip
Set sw="HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
For /F "tokens=2*" %%j In ('Reg Query %sw% /v Path ^| Find /I "Path"') Do Set type=%%j& Set curpath=%%k
Echo "%curpath%" | Find /I "%InstPath%" >Nul && Exit
Reg Add %sw% /v Path /t %type% /d "%curpath%;%InstPath%" /f