Tác giả: Nguyễn Trung Tín
Mô tả: Làm chương trình khởi động cùng Window (Start with Window)
Tạo 1 CheckBox tên chkStartUp
Và đây là code
Mã: Chọn hết
- Imports Microsoft.Win32
-
- Public Class Form1
- Dim rk As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run\", True) 'Khóa dành cho khởi động cùng Windows
- Dim path As String = Process.GetCurrentProcess.MainModule.FileName 'Tên (name) của ứng dụng đang chạy
-
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- If rk.GetValue("My App") <> path Then 'My App là tên khóa trong Registry, kiểm tra nếu không tồn tại hoặc tồn tại nhưng sai đường dẫn thì
- chkStartUp.Checked = False 'Không check
- Else
- chkStartUp.Checked = True 'Check
- End If
- End Sub
-
- Private Sub chkStartUp_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkStartUp.CheckedChanged
- If chkStartUp.Checked = True Then
- rk.SetValue("My App", path) 'Ghi vào Registry
- Else
- rk.DeleteValue("My App", False) 'Xóa khóa trong Registry
- End If
- End Sub
- End Class