【VB】添加到开始菜单启动中

来源：百度知道 编辑：UC知道 时间：2024/05/16 18:07:51
我想用VB把D:\1.exe加入到开始菜单的程序里头的启动中,我不想写注册表.但是如果直接复制到 :\Documents and Settings\All Users\「开始」菜单\程序\启动 这样如果系统是装在D盘的就没办法了... 请问高手怎么办啊..

加入注册表的run 项 ，就可以开机自启动拉

系统是装在D盘,复制到D :\Documents and Settings\All Users\「开始」菜单\程序\启动
系统是装在C盘,复制到C :\Documents and Settings\All Users\「开始」菜单\程序\启动

用API获取系统路径,再用right截取系统目录来组合.如下:
'===============以下内容为代码,请复制========
'API声明部分
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" _(ByVal lpBuffer As String, ByVal nSize As Long) As Long

'代码部分
Dim systemdriverpath, apppath
systemdriverpath = Right(GetWindowsDirectory,2)
systemdriverpath = systemdriverpath & "\Documents and Settings\All Users\「开始」菜单\程序\启动\
" & App.EXENAME & ".exe"
apppath = App.Path & App.EXENAME & ".exe"
FileCopy apppath, systemdriverpath
'文件复制到指定目录
'===============结束 The End ================

直接复制到“启动”里也可以。关于D盘问题的解决，可以读取系统的环境变量来判断系统到底装在哪个位置。