怎样在VB里面,实现你做的程序开机就可以运行,和让你的程序运行时优先权比较高???
解决方案 »
- 根据不同的命令按钮被单击执行不同的存储过程
- 急,在线等!!!请高手帮忙 WritePrinter 打印
- 在文本框中显示txt文档,当行数超过几千时特别慢,程序卡死,帮忙优化一下
- 一个大家都感兴趣的问题
- 高分求解:由于您和其他用户试图同时改变同一数据,导致 Microsoft Jet 数据库引擎停止进程 ?
- 一个关于调用的问题 !! 急,在线等待
- 请问如何将数据库中的有树状关系的记录显示到treeview中?
- VB 在用户控件中调用子类处理窗口事件出错
- 怎么取得窗体上按钮的坐标
- 代码转换问题
- VB与Oracle连接问题
- 请问大哥怎样通过webbrowser控件浏览php网页时对它的按钮直接提交,急。。。
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
优先权比较高?很麻烦!
Const REG_SZ As Long = 1
Const HKEY_LOCAL_MACHINE = &H80000002Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Sub Form_Load()
Text1.Text = App.Path & "\你的程序的名字.exe"
End Sub
Private Sub Command1_Click()
Dim hKey As Long
Dim myexe As String
Dim myint As Integer
myint = Len(Text1.Text) - InStrRev(Text1.Text, "\")
myexe = Right(Text1.Text, myint)
If Text1.Text <> "" Then
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Text1.Text, 13
RegCloseKey hKey
End If
End Sub
Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"KAVRun"="C:\\KAV2003\\KAVRun.EXE"
"VirtualDrive"="\"C:\\Program Files\\FarStone\\VirtualDrive\\VDTask.exe\" /AutoRestore"
注:在注册表中表示为"C:\Program Files\FarStone\VirtualDrive\VDTask.exe" /AutoRestore2------
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows]
"load"="C:\\WINNT\\system32\\scriers.exe"
"run"="C:\\WINNT\\msfilts.exe"3------
Windows Registry Editor Version 5.00[HKEY_USERS\S-1-5-21-1214440339-492894223-1343024091-1003\Software\Microsoft\Windows NT\CurrentVersion\Windows]
"load"="C:\\WINNT\\system32\\scriers.exe"
"run"="C:\\WINNT\\msfilts.exe"