Imports System.ComponentModel
Imports System.Configuration.Install
 
<RunInstaller(True)> Public Class Installer1
    Inherits System.Configuration.Install.Installer
 
#Region " Vom Component Designer generierter Code "
 
    Public Sub New()
        MyBase.New()
 
        ' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
        InitializeComponent()
 
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
 
    End Sub
 
    <Security.Permissions.SecurityPermission( _
      Security.Permissions.SecurityAction.Demand)> _
    Public Overrides Sub Commit(ByVal savedState As _
      System.Collections.IDictionary)
 
        MyBase.Commit(savedState)
        'System.Diagnostics.Process.Start("http://www.microsoft.com")
        Dim locInstallDate As Double
        locInstallDate = Date.Today.ToOADate
        Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey( _
          "Ordner", True).SetValue("Schluessel", locInstallDate)
    End Sub
 
    'Installer überschreibt den Löschvorgang zum Bereinigen der 
    ' Komponentenliste.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
 
    ' Für Komponenten-Designer erforderlich
    Private components As System.ComponentModel.IContainer
 
    'HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer 
    ' erforderlich
    'Sie kann mit dem Komponenten-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub
 
#End Region
 
End Class