'Beispiel: VB .Net - .inf Datei anlegen - 2 'Hinweis : Angelegt wird eine .inf Datei die einen Link in das Startmenue unter ( Start ) ' integriert. ' Nach der Anlage der .inf Datei wird diese, sowie die ausgewaehlte Grafik in das ' Systemverzeichnis kopiert. (z.B. c:\windows\system32 ) 'Bug: Das Icon welches in dem Startmenü angezeigt wird darf nicht auf einem anderen Laufwerk vorliegen 'als dem Systemlaufwerk. Um den Eintrag aus dem Startmenü zu entfernen müssen die in Form_Load an das 'Array übergebenen Schlüssel der Registry entfernt werden. 'Das Ergebnis des Beispiels ist nur sichtbar wenn unter Taskleiste Eigenschaften/Register Startmenü der 'RadioButton auf Startmenü markiert wird und nicht auf Klassisches Menue. ' ' Option Strict On Option Explicit On Imports Microsoft.VisualBasic.ControlChars Imports System.Diagnostics Imports System.IO Public Class Form1 Private Sections As New List(Of String) Private Values As New List(Of String) Private Anzeigetext As String = "" Private Untertitel As String = "" Private Link As String = "" Private Icondatei As String = "" Private Sub ExplorerSelectFile(ByVal Filename As String) If (Not File.Exists(Filename)) Then Throw New Exception("File not found") Else Try Dim psi As ProcessStartInfo = New ProcessStartInfo With psi .FileName = "explorer.exe" .UseShellExecute = True .WindowStyle = ProcessWindowStyle.Normal Dim query As String = ", """ & Filename & """, /select" .Arguments = query End With Call Process.Start(psi) Catch ex As Exception MessageBox.Show(ex.Message, "Info") End Try End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Label1.Text = "Anzeigetext: " TextBox1.Text = "Visual Basic" Label2.Text = "Untertitel: " TextBox2.Text = "VB .Net" Label3.Text = "Link: " TextBox3.Text = "http://www.visual-basic5.de" Anzeigetext = TextBox1.Text Untertitel = TextBox2.Text Link = TextBox3.Text Dim MySections() As String = _ {"[Version]", _ "[DefaultInstall]", _ "[OEMLabel.AddReg]", _ "[OEMHTML.AddReg]", _ "[OEMIcon.AddReg]", _ "[OEMLink.AddReg]"} Sections.AddRange(MySections) ' Dim MyValues() As String = _ {"Signature=$CHICAGO$", _ "AddReg=OEMLabel.AddReg, OEMHTML.AddReg, OEMIcon.AddReg, OEMLink.AddReg", _ "HKCR," & Quote & "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}" & Quote _ & ",,0000000000," & Quote & Anzeigetext & Quote, _ "HKCR," & Quote & "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag" & _ Quote & "," & Quote & "Command" & Quote & "," & "0000000000," & Quote & _ Untertitel & Quote, _ "HKCR," & Quote & "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\Instance\InitPropertyBag" & _ Quote & "," & Quote & "Param1" & Quote & "," & "0x00020000," & Quote & Link & _ Quote, _ "HKCR," & Quote & "CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon" & _ Quote & ",,0x00020000," & Quote & "%SystemDrive%\", _ "HKLM," & Quote & "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer \StartMenu\StartPanel\ShowOEMLink" & _ Quote & "," & Quote & "NoOEMLinkInstalled" & Quote & ",0x00010001,0"} Values.AddRange(MyValues) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim ofd As OpenFileDialog = New OpenFileDialog() ofd.Title = "Waehlen Sie eine Icon-Datei aus" ofd.Filter = "Icon-Datei (*.ico)|*.ico" Dim MyPath As String = Application.StartupPath Dim Filename As String If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then Icondatei = ofd.FileName Else Icondatei = "" End If Anzeigetext = TextBox1.Text Untertitel = TextBox2.Text Link = TextBox3.Text If Anzeigetext = "" Or Untertitel = "" Or Link = "" Then MessageBox.Show("Erforderliche Eingaben fehlen.", "Info") Return End If If Not File.Exists(Icondatei) Then Return Else If MyPath.EndsWith("\") = False Then MyPath &= "\" Filename = MyPath & "CreateStartMenueLink.inf" '.inf Dim sw As IO.StreamWriter = New IO.StreamWriter(Filename) sw.Write(Sections.Item(0) & CrLf) sw.Write(Values.Item(0) & CrLf) sw.Write(CrLf) sw.Write(Sections.Item(1) & CrLf) sw.Write(Values.Item(1) & CrLf) sw.Write(CrLf) sw.Write(Sections.Item(2) & CrLf) sw.Write(Values.Item(2) & CrLf) sw.Write(CrLf) sw.Write(Sections.Item(3) & CrLf) sw.Write(Values.Item(3) & CrLf) sw.Write(Values.Item(4) & CrLf) sw.Write(CrLf) sw.Write(Sections.Item(4) & CrLf) sw.Write(Values.Item(5) & Path.GetFileName(Icondatei) & Quote & CrLf) sw.Write(CrLf) sw.Write(Sections.Item(5) & CrLf) sw.Write(Values.Item(6) & CrLf) sw.Write(CrLf) sw.Close() End If Try Dim EnvironmentVariables As String = "%systemRoot%\system32" Debug.WriteLine(System.Environment.ExpandEnvironmentVariables(EnvironmentVariables)) Dim SystemPath As String = System.Environment.ExpandEnvironmentVariables(EnvironmentVariables) If SystemPath.EndsWith("\") = False Then SystemPath &= "\" End If If File.Exists(Icondatei) Then If File.Exists(SystemPath & Path.GetFileName(Icondatei)) Then File.Delete(SystemPath & Path.GetFileName(Icondatei)) End If File.Copy(Icondatei, _ SystemPath & Path.GetFileName(Icondatei)) If File.Exists(SystemPath & Path.GetFileName(Filename)) Then File.Delete(SystemPath & Path.GetFileName(Filename)) End If If File.Exists(Filename) Then File.Copy(Filename, SystemPath & Path.GetFileName(Filename)) End If End If If File.Exists(SystemPath & Path.GetFileName(Filename)) Then Dim msg As String = "" & CrLf msg &= "Die Datei CreateStartMenueLink.inf wurde angelegt und in das" & CrLf msg &= "Systemverzeichnis kopiert. Zur Installation der Datei CreateStartMenueLink.inf" & CrLf msg &= "führen Sie einen Rechtsklick auf diese aus, und waehlen Sie im" & CrLf msg &= "Kontextmenue <Installieren>. Wollen Sie das das Systemverzeichnis" & CrLf msg &= "mit der markierten Datei jetzt aufgerufen wird?" If MessageBox.Show(msg, "Info", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then ExplorerSelectFile(SystemPath & Path.GetFileName(Filename)) Else MessageBox.Show("CreateStartMenueLink.inf muss noch installiert werden!", "Info") End If End If Catch ex As Exception MessageBox.Show(ex.Message.ToString(), "Info") End Try End Sub End Class