在注册表里:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
建立如:
"setp"="c:\\setp\\setp.exe"
解决方案 »
- 请教用VB实现自动生成文件的功能
- 为什么编译后执行效果不同-关于bmp2jpg
- 我想用Microsoft Office Chart画图,但是如果没有安装office的话,是用不了,有什么方法解决吗?
- Crystal Report 4.6 多行文本问题
- 如何让按钮按下后连续显示数字,弹起后停止?
- 文本框控件只能保存64K大小的数据吗?怎样才能保存多点数据?或者用其他哪个控件可以保存多点?
- vb 调用access数据库 做wmp的超链接地址 问题
- adodc的一点小问题,分数不多,请大家帮忙!谢谢了!
- 怎么把一个文本框设成只读的
- 50分!!!!!!怎样用ado连sql server7.0,加急!急!
- 新来,练习给分!!!关于vb和数据库的问题
- 在ActiveReport2.0设计器中如何设计出象Excel中那样可以合并连续相同的项(再次求救)!!!
Const REG_SZ = 1 ' Unicode nul terminated string
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 ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Sub Form_Load()
Dim ret
Dim strPath As String
Dim strValue As String
Dim b() As BytestrPath = "software\microsoft\windows\currentversion\run"
strValue = "1980GAOBO"
strdata = "f:\1980gaobo.exe" & vbNullChar
b = StrConv(strdata, vbFromUnicode)
RegCreateKey HKEY_LOCAL_MACHINE, strPath, ret
length = UBound(b) + 1
RegSetValueEx ret, strValue, 0, REG_SZ, b(0), length
RegCloseKey ret
End Sub