回 帖 发 新 帖 刷新版面

主题:[原创]请教高手,程序运行的问题

Private Sub Command1_Click()
lujing = Text1
RegCreateKey  _    HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentVersion\run", Ret2
RegSetValue Ret2, vbNullString, REG_SZ, lujing, 4
RegCloseKey Ret2
End Sub
(api函数及变量set2在前面已声明)
程序运行后,在文本框中输入""D:\Program Files\Kingsoft\Powerword 2007\xdict.exe"则开机后自动运行xdict.exe.

请高手指点,怎样编程去掉xdict.exe.的自动运行呢?我水平低,用api函数试了很多次都不行,网上api函数的实例太少了请教高手

回复列表 (共5个回复)

沙发

删除注册表内容的API函数有三种:删除键、删除值、删除数据。
你这里用删除值的

板凳

是regdeletevalue吧,我试了,可能是我不会用,没有成功.

哪位高手写几行代码指教一下

RegDeleteValue 
  VB声明 
  Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long 
  说明 
  删除指定项下方的一个值 
  返回值 
  Long,零(ERROR_SUCCESS)表示成功。其他任何值都代表一个错误代码 
  参数表 
  参数 类型及说明 
  hKey Long,一个已打开项的句柄,或标准项名之一 
  lpValueName String,要删除的值名。可设为vbNullString或一个空串,表示删除那个项的默认值 

3 楼

Call RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey)
Call RegDeleteValue(hKey, "我不知道你那个程序的注册表键值名");
Call RegCloseKey(hKey)

4 楼

作者:tanchuhan
Call RegDeleteValue(hKey, "我不知道你那个程序的注册表键值名");

我把HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run下面的图片贴到上面来了.按照你的代码我试了几遍,还是不行,不知道哪里有问题

5 楼

"我不知道你那个程序的注册表键值名"
哈哈哈哈哈,他一定是直接这样用了!

我来回复

您尚未登录,请登录后再回复。点此登录或注册