Rubrik: Verschiedenes / Sonstiges | VB-Versionen: VB2005, VB2008, VB2010 | 15.06.11 |
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