reg:=TRegistry.Create; reg.RootKey:=HKEY_CURRENT_USER;reg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU');SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL); //刷新删除运行记录后刷新不起作用...不知道是不是我电脑的原因
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NiL, NiL); 这句只是通知系统有文件类型关联已进行了更改. 另外,楼主可以尝试下面这个SendMessage方法.32位WIN7环境,执行上面代码再次WIN+R运行,已经没有了历史记录.另外,楼主的with TRegistry.Create dotryRootKey := HKEY_CURRENT_USER;DeleteKey('Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU');SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);finallyFree;end; 最后,如果可以的话,可以强制结束并重启Explorer.exe进程来重新加载注册表值.不过这种方法可能会导致本次会话的部分程序的托盘图标丢失.
ADODB.Field
错误 '800a0bcd'BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/View.asp,行 759