$ws = New-Object -ComObject WScript.Shell
$desktop = [Environment]::GetFolderPath('Desktop')
$lnk = Join-Path $desktop "Surovy's Music Recorder.lnk"
$sc = $ws.CreateShortcut($lnk)
$sc.TargetPath = Join-Path $PSScriptRoot "Surovy Music Recorder.bat"
$sc.WorkingDirectory = $PSScriptRoot
$sc.IconLocation = Join-Path $PSScriptRoot "app.ico"
$sc.WindowStyle = 7
$sc.Save()
Write-Host "Desktop-Verknuepfung erstellt: $lnk"