Hi,
Ich habe mir einen Multi-Editor gemacht, um damit Richtige Programme erstellen zu können. Jedoch wird das Standart-Icon angezeigt. Nun möchte ich dies ändern. Ich verwende System.CodeDom.Compiler, Microsoft.CSharp und System.Reflection. Mein
zurzeitiger Code, womit ich die Programme erstelle:
'txtApplicationName = Pfad & "\Projekt.exe"
'txtMainClass = "Main"
If Me.txtApplicationName.TextLength = 0 Then
MessageBox.Show("Der Anwendungsname darf nicht leer sein!", _
Application.ProductName, _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Return
ElseIf Me.txtMainClassName.TextLength = 0 Then
MessageBox.Show("Der Name der Hauptklasse darf nicht leer sein!", _
Application.ProductName, _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Return
End If
' Je nach Einstellung für VB .NET oder C# kompilieren.
Dim cdp As CodeDomProvider
If txtSprache.Text = "vb" Then
cdp = New VBCodeProvider()
ElseIf txtSprache.Text = "c#" Then
cdp = New CSharpCodeProvider()
End If
' Konfigurieren des Compilers.
Dim compiler As ICodeCompiler = cdp.CreateCompiler()
Dim cpParameters As CompilerParameters = New CompilerParameters()
With cpParameters
.GenerateExecutable = True
.OutputAssembly = Me.txtApplicationName.Text
.MainClass = Me.txtMainClassName.Text
.IncludeDebugInformation = CheckBox1.Checked
' Verfügbare Assemblies hinzufügen. Für unsere einfache
' Anwendung sollte dies ausreichend sein.
Dim asm As [Assembly]
For Each asm In AppDomain.CurrentDomain.GetAssemblies()
.ReferencedAssemblies.Add(asm.Location)
Next asm
End With
RichTextBox2.Text = TextBox3.Text & vbCrLf & TextBox4.Text & vbCrLf & TextBox5.Text & vbCrLf
' Kompilieren der Assembly.
Dim strCode As String = Me.RichTextBox2.Text & Me.CodeEditorControl1.Document.Text
Dim cr As CompilerResults = _
compiler.CompileAssemblyFromSource(cpParameters, strCode)
If cr.Errors.Count > 0 Then
Dim strErrors As String = _
"Kompilierung ist fehlgeschlagen" & ControlChars.NewLine
Dim cerr As CompilerError
For Each cerr In cr.Errors
strErrors &= ControlChars.NewLine & cerr.ToString()
Next cerr
MessageBox.Show(strErrors, _
Application.ProductName, _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Return
End If
' Kompilierung war erfolgreich, versuche die erstellte Anwendung
' auszuführen.
Try
If Not System.IO.File.Exists(Me.txtApplicationName.Text) Then
MessageBox.Show( _
String.Format("Die Datei ""{0}"" kann nicht gefunden " & _
"und daher auch nicht ausgeführt werden!", _
Me.txtApplicationName.Text), _
Application.ProductName, _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
Return
End If
Dim psi As ProcessStartInfo = _
New ProcessStartInfo(Me.txtApplicationName.Text)
Process.Start(psi)
Catch ex As Exception
MessageBox.Show( _
String.Format("Fehler beim Ausführen von ""{0}""!", _
Me.txtApplicationName.Text), _
Application.ProductName, _
MessageBoxButtons.OK, _
MessageBoxIcon.Exclamation)
End Try
Wo muss ich nun was einbauen, damit meine .exe ein Symbol und ein "Image"(wenn das fenster dann offen ist) hat? man hat mir in anderen Foren gesagt, das ich API studieren sollte, jedoch verstehe ich mich damit überhaupt nicht...
Gruss
gfcwfzkm
Hoi
