編寫隨Windows啟動自動執行的程式 (轉)

worldblog發表於2007-08-16
Windows
編寫隨Windows啟動自動執行的程式 (轉)[@more@]編寫隨啟動自動執行的 .sz.luohuedu/">【孟憲會之精彩世界】 

透過設定和讀取登錄檔，可以實現我們的應用程式隨Windows的啟動即可的功能。下面就是實現的程式碼：

Form1.vb

Imports ..Registry Public Class Form1 Inherits System.Windows.Forms.Form #Region &quot; Windows 窗體設計器生成的程式碼 &quot; Public Sub New() MyBase.New() '該是 Windows 窗體設計器所必需的。 InitializeComponent() '在 InitializeComponent() 呼叫之後新增任何初始化 End Sub '窗體重寫處置以清理列表。 Protected Overloads Overrs 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 'Windows 窗體設計器所必需的 Private components As System.ComponentModel.IContainer '注意：以下過程是 Windows 窗體設計器所必需的 '可以使用 Windows 窗體設計器修改此過程。 '不要使用程式碼編輯器修改它。 Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox Friend WithEvents btnSave As System.Windows.Forms.Button <system href="http://blog.itpub.net/10752043/viewspace-962488/tag-268-1.html">buggerStepThrough()&gt; Private Sub InitializeComponent() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.btnSave = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'CheckBox1 ' Me.CheckBox1.BackColor = System.Drawing.SystemColors.Control Me.CheckBox1.Checked = True Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBox1.ForeColor = System.Drawing.SystemColors.ControlText Me.CheckBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.CheckBox1.Name = &quot;CheckBox1&quot; Me.CheckBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.CheckBox1.Size = New System.Drawing.Size(142, 15) Me.CheckBox1.TabIndex = 21 Me.CheckBox1.Text = &quot;Windows開機即執行&quot; Me.CheckBox1.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'btnSave ' Me.btnSave.BackColor = System.Drawing.SystemColors.Control Me.btnSave.Font = New System.Drawing.Font(&quot;宋體&quot;, 10.0!) Me.btnSave.ForeColor = System.Drawing.SystemColors.ControlText Me.btnSave.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.btnSave.Location = New System.Drawing.Point(0, 16) Me.btnSave.Name = &quot;btnSave&quot; Me.btnSave.Size = New System.Drawing.Size(144, 24) Me.btnSave.TabIndex = 32 Me.btnSave.Text = &quot;儲存設定&quot; ' 'Form1 ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(144, 40) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnSave, Me.CheckBox1}) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow Me.Name = &quot;Form1&quot; Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = &quot;Windows開機即執行&quot; Me.ResumeLayout(False) End Sub #End Region Dim Reg As Microsoft.Win32.RegistryKey Private Sub InitVar() If btnSave.Visible = True Then End If Reg = CurrentUser.OpenSubKey(&quot;SoftwareMicrosoftWindowsCurrentVersionRun&quot;, True) If Reg.GetValue(&quot;MengXianHui&quot;) &quot;&quot; Then CheckBox1.Checked = True Else CheckBox1.Checked = False End If End Sub Private Sub SaveSettings() If CheckBox1.Checked = True Then Reg = CurrentUser.OpenSubKey(&quot;SoftwareMicrosoftWindowsCurrentVersionRun&quot;, True) Reg.SetValue(&quot;MengXianHui&quot;, Application.ExecutablePath) Else Reg = CurrentUser.OpenSubKey(&quot;SoftwareMicrosoftWindowsCurrentVersionRun&quot;, True) Reg.SetValue(&quot;MengXianHui&quot;, &quot;&quot;) End If InitVar() MessageBox.Show(&quot;您已經設定了，請重新啟動看效果。&quot;, &quot;提示&quot;, _ MessageBoxButtons.OK, MessageBoxIcon.Information) If CheckBox1.Checked = True Then Me.Dispose(True) End If End Sub Private Sub btnSave_Click(ByVal sender As System., ByVal e As System.EventArgs) _ Handles btnSave.Click SaveSettings() End Sub End Class </system>

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/10752043/viewspace-962488/，如需轉載，請註明出處，否則將追究法律責任。

相關文章