非淡泊无以明志,非宁静无以致远 -心静如止水,动于静

远程激活程序

Dim ProcInfo As New ProcessStartInfo
            Dim arguments As String = "dfshim.dll,ShOpenVerbApplication " + {{share path to the .application file (//share/drive/dir/app.application)}}
            ProcInfo.FileName = "rundll32.exe"
            ProcInfo.Arguments = arguments

            ProcInfo.FileName = filename
            ProcInfo.CreateNoWindow = True
            ProcInfo.WindowStyle = ProcessWindowStyle.Hidden
            ProcInfo.RedirectStandardError = False
            ProcInfo.RedirectStandardOutput = False
            ProcInfo.UseShellExecute = True

            Dim proc As New Process
            proc.StartInfo = ProcInfo

            proc.Start()

posted @ 2010-12-28 22:24  烟雨客  阅读(239)  评论(0编辑  收藏  举报