Einzelne Dateien per Batch mit 7z packen

Hallo zusammen!

Ich möchte eine Batch erstellen, welche im "Senden an"-Menü verknüpft ist. Alle an diese Batch gesendeten Dateien sollen dann je einzeln in ein 7z-Archiv gepackt werden.
Bisher habe ich folgende Zeile erstellt:
Leider gibt es hier ein Problem: Wenn ich mehrere Dateien markiere und auf die Datei ziehe, werden immer alle Dateien aus dem Ursprungsordner in ein Archiv gepackt.

Beispiel: Ich habe zum Test folgenden Ordner erstellt:

Wenn ich nun die drei PDF-Dateien markiere und auf die Batch ziehe läuft folgendes ab:

Das Ergebnis sieht danach wie folgt aus:

Wie muss ich das Script anpassen, damit jede Datei einzeln in ein Archiv gepackt wird?

Gruß
tegwert

@FOR %%i IN (%*) DO call :Ablauf "%%i"  
pause
goto :eof

:Ablauf
"C:\Program Files\7-Zip\7z.exe" a -m0=lzma2 "%~1.7z"  
goto :eof 

:loop
if "%~1"=="" goto :eof  
"C:\Program Files\7-Zip\7z.exe" a -m0=lzma2 "%~1.7z"  
shift
goto :loop

@FOR %%i IN (%*) DO "C:\Program Files\7-Zip\7z.exe" a -m0=lzma2 "%%~i.7z" "%%~i"  
pause

"%userprofile%\SendTo"