送分，能解决文件打开关联的立即送100分。网上等！

[guest]

自己写了一个编辑文本的执行文件，与要编辑的文件能关联打开。现在的问题是双击打开一个关联文件后，再双击另一个文件就会再次打开该执行文件另一个实例，而不是在第一个执行文件里打开。

请问高手如何在打开一个关联文件后，再双击另一个关联文件，让其显示在已经打开的编辑程序里？

[northwolves]

程序中设置只能打开唯一的进程，如：
if app.PrevInstance then End

[ChenChen88]

或者不关闭新实例,关闭旧实例

或者象二楼一样,直接关闭新实例,但是在关闭之前,通知旧实例打开新文件,通知的方法有很多,不属于这里讨论

[Sandrer]

首先利用1楼的代码，判断程序是否已打开
如果已打开，则使用FindWindow或FindWindowEx来查找该窗口
然后………………

[Sandrer]

最好是在程序里自定义一个消息
例如：
Const OPEN_NEW_FILE = 1 '这个就是自己定义的消息

Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case Msg
Case OPEN_NEW_FILE
…………
…………
…………
End Select

WndProc = CallWindowProc(xx, hWnd, Msg, wParam, lParam)
End Function


这样的话，你打开一个新实例的时候，可以先判断是否已在运行，如果在运行，则给它发送OPEN_NEW_FILE消息(SendMessage(窗口句柄, OPEN_NEW_FILE, 0, ByVal 0&))，至于wParam和lParam两个参数嘛，你可以自行设置，消息处理函数那里处理掉它们就可以了。

注意，SendMessag的最后一个参数lParam的类型为Any（你可以另行设置），如果给它传递一个自定义类型数据的话，一定要使用ByVal传递，消息处理函数里面，接收它的话，可以使用CopyMemory函数来把它转换为你自己的类型：
CopyMemory 自定义类型, ByVal lParam, Len(自定义类型)

[嗷嗷叫的老马]

程序工作流程:

一,检测唯一标识(见后面)

二,如果:

唯一标识存在,查找主窗口,发送当前命令行参数,退出;

唯一标识不存在,创建一个,继续启动

三,完成你自己的功能

关于唯一标识,可以使用互斥体,注册表,磁盘文件等形式,很多很多....

关于发送当前命令行参数,可以使用共享内存,消息等方式

[meiZiNick]

lz要干嘛？

[UltraBejing]

不明LZ在说什么