防止并处理程序的多重启动
什么叫防止与处理多重启动？假设asp文件与EditPlus关联，你双击一个asp文件，Windows系统自动使用EditPlus打开asp文件，然后再双击一个asp文件，这个时候，你发现并没有再启动一个EditPlus，而是已经启动的那个EditPlus截获了第二个副本启动的参数（它打开了你第二次双击的文件），具体说，是接收了其副本发送过来的信息（Message），这就使程序能防止自身多重启动，这样有利于节省资源。这是一项很令人兴奋的功能，在VB中如何实现呢？
大多数朋友可能想到了API，当然，使用API肯定可以做到！不过，我这次实现这个功能，完全没有使用API，只是使用了VB中的两个普通函数SaveSetting与GetSetting。并且非常简单，比API更高效！不信？看下去！
因为要在程序尽可能少占内存时作出判断，所以，建议把启动事件设为Main（），因为，此时还未加载任何窗体与控件。
首先，启动一个工程，添加一个模块，一个计时器timer1，interval设为100。然后，选择菜单“工程→工程属性→启动对象”，单击下拉框选择“Sub Main”，你会看到，在模块中已经添加了这个过程，在模块中输入以下代码：
＇自定义函数，用以处理参数
Public Function getprom（prom）
If prom = "" Then Exit Function
getprom = prom
If Asc （prom） = 34 Then
＇判断是否为双引号，如果是则去掉参数两边的双引号
getprom =Mid（prom，2，Len（prom）- 2）
End If
End Function
Sub Main（）
Dim commandstring As String
commandstring = VBA.Command
＇获取参数
If App.PrevInstance = True Then
＇判断自身是否已经在运行
commandstring = Form1.getprom（commandstring）
SaveSetting App.EXEName，"参数信息"，"command"，commandstring ＇保存尾部参数（文件路径）到注册表中
End ＇然后退出
Else
commandstring = Form1.getprom（commandstring）
Form1.Picture = LoadPicture（commandstring）
Form1.Visible = True
End If
End Sub
为了判断注册表中的参数（文件路径）是否正确，可使用文件系统对象（FileSystemObjcet）的FileExists来判断文件是否存在，首先，必须先引用它！单击“工程→引用”，在列表框中找到“Microsoft scripting runtime”并复选它，单击确定，然后，在窗体Form1声明部分添加代码：
＇引用新控件实例
Dim Fso AS New FileSystemObject
现在，到了关键部分，我们要不停地判断注册表中是否有信息，双击timer1，输入如下代码：
Sub Timer1_timer（）
Dim com As String
com = GetSetting（App.EXEName，"参数信息"，"command"，Default）
＇获取注册表中的值
If Fso.FileExists（com） = True Then
＇如果键值所指文件存在
Me.Picture = LoadPicture（com）
＇添加处理代码，假如是一幅图片
SaveSetting App.EXEName，"参数信息"， "command"，""
＇获取后立刻给键值赋空以防止死循环
End If
End Sub
大功告成，试一试，特爽！还是那句话，只要稍加修改，它便能处理声音、文本。
以上代码在Windows 98、Visual Basic 6.0下调试通过。