Wurde das Programm zum ERSTEN mal gestartet? Mit diesen Tipp können Sie feststellen, ob das Programm zum ersten Mal auf dem Rechner gestartet worden ist.
Autor:   Grek Koch	Bewertung:     [ Jetzt bewerten ]	Views:  11.574
www.vb-future.net	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 10 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Durch einen Eintrag in die Windows Registrierdatenbank kann man feststellen, ob das Programm zum ersten Mal gestartet wurde.

Public Class Form1
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    ' Registry-Eintrag // Programm zum ERSTEN mal gestartet?
    Dim KeyPath As String = "HKEY_CURRENT_USER\Software\PROGRAMM\"
    If My.Computer.Registry.GetValue(KeyPath, "FirstRun", 0) = 0 Then
      My.Computer.Registry.SetValue(KeyPath, "FirstRun", 1)
      MsgBox("Erster Start!")
    End If
 
  End Sub
 
End Class