C'est un programme qui gère l'ajout ou suppression du Startup(programme démarrant lors du boot).
regarde dans le registre et dans le dossier Démmarrage(que pour XP) la liste des "Startups"
Source / Exemple :
Private cksu As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Private lksu As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SoftWare\Microsoft\Windows\CurrentVersion\Run", True)
Private startuppath As String = "C:\Documents and Settings\" & Environment.UserName & "\Menu Démarrer\Programmes\Démarrage"
Private Sub AjouterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AjouterToolStripMenuItem.Click
For Each item As ListViewItem In StartupsListView.SelectedItems
Select Case StartupsListView.Groups.IndexOf(item.Group)
Case 0 ' CurrentUser
If FileOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fi As New IO.FileInfo(FileOpenFileDialog.FileName)
cksu.SetValue(fi.Name, FileOpenFileDialog.FileName)
End If
Case 1 ' Local Machine
If FileOpenFileDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim fi As New IO.FileInfo(FileOpenFileDialog.FileName)
lksu.SetValue(fi.Name, FileOpenFileDialog.FileName)
End If
Case 2 ' Startup Path
MsgBox("L'ajout n'est pas actif les Startup du dossier Démarrage", MsgBoxStyle.Information)
' A implémenter
End Select
Next
RefreshList()
End Sub
Private Sub SupprimerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupprimerToolStripMenuItem.Click
For Each item As ListViewItem In StartupsListView.SelectedItems
Select Case StartupsListView.Groups.IndexOf(item.Group)
Case 0 ' CurrentUser
For Each valuename As String In cksu.GetValueNames
If valuename = item.Text Then
cksu.DeleteValue(valuename)
End If
Next
Case 1 ' Local Machine
For Each valuename As String In lksu.GetValueNames
If valuename = item.Text Then
lksu.DeleteValue(valuename)
End If
Next
Case 2 ' Startup Path
For Each filename As String In IO.Directory.GetFiles(startuppath)
Dim fi As New IO.FileInfo(filename)
item.Text = fi.Name
IO.File.Delete(filename)
fi = Nothing
Next
End Select
Next
RefreshList()
End Sub
Conclusion :
Je vais prochainement :
- Mettre une capture d'écran
- Implémenter l'édition d'un "startup"
- Implémenter la prise en charge du dossier Démarrage pour Vista
- Essayer de le rendre compatible pour Mac et Linux(Ubuntu)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.