| 本月文章推荐 |
自动开始上次关机时关闭的应用发表日期：2006-2-27
|
|
两点关键：
1检测是Windows关闭引起的QueryUnload事件。 2改写Software\Microsoft\Windows\CurrentVersion\RunOnce 声明： DeclareFunctionRegCloseKeyLib"advapi32.dll"Alias"RegCloseKey"(ByValhKeyAsLong)AsLong DeclareFunctionRegCreateKeyLib"advapi32.dll"Alias"RegCreateKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong DeclareFunctionRegSetValueExLib"advapi32.dll"Alias"RegSetValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByValReservedAsLong,ByValdwTypeAsLong,lpDataAsAny,ByValcbDataAsLong)AsLong'NotethatifyoudeclarethelpDataparameterasString,youmustpassitByValue. 在主Form中增加： PublicConstREG_SZ=1 PublicConstHKEY_CURRENT_USER=&H80000001 PrivateSubForm_QueryUnload(CancelasInteger,UnloadModeasInteger) DimhKeyAsLong DimstrRunCmdAsString IfUnloadMode=vbAppWindowsThen strRunCmd=App.Path&"\"&App.EXEName&".EXE" CallRegCreateKey(HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\RunOnce",hKey) CallRegSetValueEx(hKey,"MyApp",0&,REG_SZ,ByValstrRunCmd,Len(strRunCmd) 1) CallRegCloseKey(hKey) Endif EndSub-> |
| 上一篇：用VB开发应用程序如何使用INI文件
人气:3262 下一篇：VB千里行－让程序在后台运行 人气:4584 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
