Hallo
Ich habe ein Problem mit dem einbeziehen von Programmdateien einer .exe die aus den Ressourcen gestartet wird.
Ich kann durch einen Code den ich hier im Forum gefunden habe, eine .exe direkt aus den Ressourcen starten ohne sie zu entpacken etc. Nun habe ich aber ein Problem bei .exe'n die noch zusätzliche Programmdateien benötigen damit sie starten ...
Fehlermeldung:
"Could not load file or assembly '13620200 bytes loaded from [VB-ProjektName], Version=1.0.0.0, Culture=neutral, PublicKeyToken=null' or one of its dependencies. An attempt was made to load a program with an incorrect format."
Wie kann ich beim starten der .exe die Dateien aus dem Ordner (Mein Programm liegt direkt im Ordner des anderen Programmes woraus die .exe ist) mit einbeziehen, so das die .exe starten kann mit alle ihren benötigten Dateien?
Code:
Button_Click: (Hier versucht mit TS3_Client)
Ich hoffe auf eure Hilfe
Ich habe ein Problem mit dem einbeziehen von Programmdateien einer .exe die aus den Ressourcen gestartet wird.
Ich kann durch einen Code den ich hier im Forum gefunden habe, eine .exe direkt aus den Ressourcen starten ohne sie zu entpacken etc. Nun habe ich aber ein Problem bei .exe'n die noch zusätzliche Programmdateien benötigen damit sie starten ...
Fehlermeldung:
"Could not load file or assembly '13620200 bytes loaded from [VB-ProjektName], Version=1.0.0.0, Culture=neutral, PublicKeyToken=null' or one of its dependencies. An attempt was made to load a program with an incorrect format."
Wie kann ich beim starten der .exe die Dateien aus dem Ordner (Mein Programm liegt direkt im Ordner des anderen Programmes woraus die .exe ist) mit einbeziehen, so das die .exe starten kann mit alle ihren benötigten Dateien?
Code:
VB.NET-Quellcode
- '.exe aus Ressourcen starten . . .
- Public Shared Sub StartApplication(ByVal assembly As Reflection.Assembly)
- Dim thd As New Threading.Thread(AddressOf InvokeApplication)
- thd.Start(assembly)
- End Sub
- Private Shared Sub InvokeApplication(ByVal args As Object)
- Dim application As Reflection.Assembly = DirectCast(args, Reflection.Assembly)
- Dim ep As Reflection.MethodInfo = application.EntryPoint
- Dim parameterTypes() As Type = Array.ConvertAll(Of Reflection.ParameterInfo, Type)(ep.GetParameters, Function(param As Reflection.ParameterInfo) param.ParameterType)
- If parameterTypes.Length = 0 Then
- 'static void Main()
- ep.Invoke(Nothing, New Object() {})
- ElseIf parameterTypes.Length = 1 Then
- If parameterTypes(0) Is GetType(String()) Then
- 'static void Main(String[] args)
- ep.Invoke(Nothing, New Object() {New String() {}})
- Else
- Throw New NotSupportedException
- End If
- Else
- Throw New NotSupportedException
- End If
- End Sub
Button_Click: (Hier versucht mit TS3_Client)
Ich hoffe auf eure Hilfe
"Denken ist die schwerste Arbeit, die es gibt. Das ist wahrscheinlich auch der Grund, warum sich so wenig Leute damit beschäftigen." - Henry Ford