启动一个进程并获得其主窗口句柄

通过以下两个函数可以实现启动一个进程并获得其主窗口句柄。

BOOL CALLBACK CDSUpdate::EnumDSUMWindowsProc(HWND hwnd, LPARAM lParam)

{

    DWORD dwID;

    EnumParam* pEP = (EnumParam*)lParam;

    GetWindowThreadProcessId(hwnd, &dwID);

    if (dwID == pEP->m_dwProcessID)

    {

        pEP->m_hMainWnd = hwnd;

        return false;

    }

    return true;

}

HWND CDSUpdate::RunDSUM(CString sDSUMFile)

{

    EnumParam ep;

    STARTUPINFO si;

    PROCESS_INFORMATION pi;

    CString sFolder;

    ZeroMemory(&si, sizeof(STARTUPINFO));

    si.cb = sizeof(STARTUPINFO);

    si.wShowWindow = SW_SHOW;

    ZeroMemory(&pi, sizeof(PROCESS_INFORMATION));

    UpdateLog(::Message, L"(RunDSUM): Start DSUM.");

    if (!CreateProcess(NULL, (LPTSTR)(LPCTSTR)sDSUMFile, NULL, NULL, FALSE, 0, NULL, sDSUMFile.Left(sDSUMFile.ReverseFind('//')), &si, &pi))

    {

        UpdateLog(::Error, L"(RunDSUM): Start DSUM fail (%d).", GetLastError());

        return NULL;

    }

    // Close process and thread handles.

    CloseHandle(pi.hProcess);

    CloseHandle(pi.hThread);

 

    ep.m_dwProcessID = pi.dwProcessId;

    ep.m_hMainWnd = NULL;

    for (int i = 0; i < 50; i++)     // Retry about 10s.

    {

        Sleep(200);

        EnumWindows(EnumDSUMWindowsProc, (LPARAM)&ep);

        if (ep.m_hMainWnd)

            break;

    }

    if (!ep.m_hMainWnd)

    {

        UpdateLog(::Error, L"(RunDSUM): Couldn't find the hwnd of DSUM.");

        return NULL;

    }

    return ep.m_hMainWnd;

}

 

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
### 回答1: 我可以回答这个问题。您可以使用以下代码来打开第一个进程中的SolidWorks: Dim swApp As SldWorks.SldWorks Set swApp = GetObject(, "SldWorks.Application") 如果没有打开SolidWorks,则会自动打开它。如果已经打开了SolidWorks,则会将其作为swApp对象返回。 ### 回答2: 在VB.NET中打开第一个进程中的SolidWorks可以使用System.Diagnostics命名空间中的Process类。首先,需要在项目中引用System.Diagnostics命名空间。 下面是实现的步骤: 1. 引入命名空间 ``` Imports System.Diagnostics ``` 2. 创建SolidWorks应用程序的Process对象 ``` Dim swProcess As Process ``` 3. 搜索并启动SolidWorks进程 ``` swProcess = Process.Start("SolidWorks.exe") ``` 4. 等待SolidWorks启动 ``` swProcess.WaitForInputIdle() ``` 5. 获取SolidWorks的主窗口句柄 ``` Dim handle As IntPtr = swProcess.MainWindowHandle ``` 6. 将SolidWorks的主窗口激活 ``` Process.GetProcessById(swProcess.Id).MainWindowHandle = handle ``` 完整的代码示例: ``` Imports System.Diagnostics Public Class Form1 Dim swProcess As Process Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click swProcess = Process.Start("SolidWorks.exe") swProcess.WaitForInputIdle() Dim handle As IntPtr = swProcess.MainWindowHandle Process.GetProcessById(swProcess.Id).MainWindowHandle = handle End Sub End Class ``` 以上就是用VB.NET打开第一个进程中SolidWorks的过程。通过创建SolidWorks应用程序的Process对象,启动SolidWorks进程,并将其主窗口激活,就可以在VB.NET中打开第一个进程中的SolidWorks了。 ### 回答3: 在VB.NET中打开第一个进程中的SolidWorks,可以使用以下代码来实现: 首先,确保您已经在项目中引用了SolidWorks.Interop.sldworks和SolidWorks.Interop.swpublished命名空间。 接下来,您需要创建一个SolidWorks应用程序对象,并将其赋值给一个变量,以便以后使用。您可以使用以下代码来实现: Dim swApp As SldWorks.SldWorks swApp = CreateObject("SldWorks.Application") 接下来,您可以使用swApp对象打开SolidWorks应用程序的实例。您可以使用以下代码来实现: swApp.Visible = True 这将使SolidWorks应用程序的窗口可见。 接下来,您可以使用swApp对象的OpenDoc6方法打开SolidWorks文件。您需要传递文件路径和打开选项来打开文件。例如,如果要打开名为example.sldprt的零件文件,您可以使用以下代码: Dim swModel As SldWorks.ModelDoc2 swModel = swApp.OpenDoc6("文件路径\example.sldprt", SldWorks.swDocumentTypes_e.swDocPART, SldWorks.swOpenDocOptions_e.swOpenDocOptions_Silent, "", 0, 0) 最后,您可以使用swModel对象执行其他操作,如修改、保存或关闭打开的文件。 希望以上代码能够帮助您在VB.NET中打开第一个进程中的SolidWorks应用程序!

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值