双击文件调用程序

Question

怎样做到双击文件，调用关联程序，当双击第二个文件时，程序会显示第二个文件内容，第一个文件内容退出。
如：Picasa看图一样，在资源管理器中，双击第一个图片显示后，再双击第二个图片，只显示第二个图片，但程序只有一个运行。

Answer 1

从Sub Main启动。
先检查是否有实例运行，如果没有，自己继续运行；
如果已有，把参数传递给前一个实例，让它来打开，自己退出。

Answer 2

在Main中写
If App.PreInstance = True
    h = FindWindow(程序标题, VbNullString)
    PostMessage(h, WM_EXIT, 0, 0)
End If
fileName = Command
'加载文件以上代码请自己完善API声明等。

Answer 3

WM_EXIT 应是退出的意思吧，值是多少？与END 有区别吗？

Answer 4

在开始菜单-VB-工具中有一个API文本浏览器，自己查询下。

Answer 5

先注册一个自己的消息API:RegisterWindowMessage,然后用BroadcastSystemMessage发送一样广播消息出去。

Answer 6

OK了
从Sub Main启动。
先检查是否有实例运行，如果没有，自己继续运行；
如果已有，关闭之前程序，再运行。