双击文件调用程序

[ljr_aa]

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

[舉杯邀明月]

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

[ljr_aa]

把参数传递给前一个实例 这里具体怎样传？

[threenewbee]

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

[ljr_aa]

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

[threenewbee]

引用 4 楼 ljr_aa 的回复:

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

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

[WM_JAWIN]

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

[ljr_aa]

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