如何给运行的程序传递参数

[tntxhy]

一个类似与编辑器的程序
通过资源管理器的右键打开一个文件，先判断是否程序已经在运行，1.如果是则在已运行的编辑器程序中打开文件 2.如果没有则正常启动编辑器程序并打开文件。
如何做才能实现呢？关键是1如何实现。

[benyfeifei]

关注

[tntxhy]

up

[BlueBeer]

'【DDE用法的简单例子】新建工程，设窗体LinkMode为1
'窗体上放一个Text1，MultiLine和Locked设为真，添加代码：
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
If Len(CmdStr) Then MngDDEMsg (CmdStr)
Cancel = 0: Me.SetFocus
End Sub

Sub SendDDEMsg(ByVal Msg As String)
With Text1
.LinkTopic = App.Title & "|" & Form1.LinkTopic
.LinkMode = 2
.LinkExecute Msg
End With
End Sub

Private Sub Form_Load()
If App.PrevInstance Then
Call SendDDEMsg(Command)
Unload Me: End
Else
If Len(Command) Then MngDDEMsg (Command)
End If
End Sub

Sub MngDDEMsg(ByVal Msg As String)
'这里替换成对命令参数的处理代码
Text1.SelStart = 0
Text1.SelText = Msg & vbCrLf & vbCrLf
End Sub

[iiboy]

学习中....

[tntxhy]

感谢，问题解决