求高手指点，运行中的程序，其中一个窗体隐藏了，再次运行EXE判断

縮到右下小圖標。要用再點出來。

版主给个实例吧！wx-flw@谢谢！新手在学习中！~~


看了个DDE的不怎么满意~~好像以后这个方法会不太方便
如下：



Const COMMANDLINE = "CommandLine="                     '     还是为了省事，定义一个常量
Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Static lngCount As Long
Dim Info As String
Info = Text1.Text               '             保留原有信息

Select Case CmdStr                       '         CmdStr   是DDE程序传送过来的参数
    Case "Max"
        Me.WindowState = 2
        Info = Info + vbNewLine + "窗体已被最大化 "
    Case "ShowTime"
        Info = Info + vbNewLine + "最后一次运行这个程序的时间是： " + Str(Now)
    Case "Count"
        lngCount = lngCount + 1
        Info = Info + vbNewLine + "你已经第 " + Str(lngCount) + "次重复调用这个程序。 " _
                        + vbNewLine + "但怕您不多给工资，所以只运行了一个   ^_^ "
End Select

If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then
    Info = Info + vbNewLine + "新程序曾以命令行形式运行 " + vbNewLine + "命令行为： " _
                  + vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE))
End If

Text1.Text = Info               '         把信息显示出来

Cancel = False
End Sub
Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long
Picture1.LinkMode = 0                                   '--
Picture1.LinkTopic = "工程1|form1"           '     |______连接DDE程序并发送数据/参数
Picture1.LinkMode = 2                                   '     |             “|”为管道符，是“退格键”旁边的竖线，
Picture1.LinkExecute Msg                           '--                 不是字母或数字！

t = Picture1.LinkTimeout               '--
Picture1.LinkTimeout = 1               '     |______终止DDE通道。当然，也可以用别的方法
Picture1.LinkMode = 0                     '     |             这里用的是超时强制终止的方法
Picture1.LinkTimeout = t               '--
End Sub

Private Sub Form_Load()
If App.PrevInstance Then               '   程序是否已经运行

    Me.LinkTopic = ""                         '   这两行用于清除新运行的程序的DDE服务器属性，
    Me.LinkMode = 0                             '   否则在连接DDE程序时会出乱子的

    LinkAndSendMessage "Max"                       '--
    LinkAndSendMessage "Count"                   '     |-----连接DDE接受程序并传送数据/参数
    LinkAndSendMessage "ShowTime"             '--

    If Command <> "" Then                                   '   如果有命令行参数，就传递过去
          LinkAndSendMessage COMMANDLINE + Command
    End If
    End                                                               '     结束新程序的运行
End If
End Sub



[ 本帖最后由 wxflw 于 2012-4-18 20:50 编辑 ]