Lanzar un JAR al iniciar windows

[davidem123]

Gracias por el comentario Xerelo, encontré un codigo en otro lenguaje que al parecer si lanza la aplicación al iniciar windows......

código:
///////////////////////////////////////////////////////////////////
Private Sub Form_Load()
On Error Resume Next

Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")

Resultado = El_Objeto.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mic rosoft\Windows\CurrentVersion\Run\nombrejecutable" ) 'nombrejecutable deve ser el nombre que recivira el ejecutable

If Resultado = "" Then
If MsgBox("La Aplicacion no se inicia automaticamente al arrancar Windows. Desea que de ahora en adelante se inicie automaticamente ?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows \Cur rentVersion\Run\nombrejecutable", App.Path & "\" & App.EXEName & ".exe" 'lo mismo con nombrejecutable
MsgBox "Listo. De ahora en adelante la Aplicacion inicia automaticamente al arrancar Windows", vbOKOnly + vbInformation, Me.Caption
End If
End If
Set El_Objeto = Nothing
End Sub


Recordar poner en los dos lugares donde dice nombrejecutable el nombre que tendra el ejecutable
Atencion acepen el mensage solo cuando ya es un .exe y no cuando lo estan diseñando de lo contrario no funcionara

//////////////////////////////////////////////////////////////