可以用EnumWindows来检查每一个顶层窗口,用
GetClassName( hWnd, lpClassName, nSize )
来检查其类名,用
GetWindowText( hWnd, lpString, nSize )
来检查其标题然后对每一个符合的窗口句柄用
GetWindowThreadProcessID( hWnd, ProcessHandle );
来得到进程ID,用
ProcessHandle := OpenProcess( dwDesiredAccess, bInheritHandle, dwProcessId );
来得到进程句柄

解决方案 »

  1.   

    to agui:
       大师,你好!我刚刚接触DELPHI,关于LPCLASSNAME和lpWindowName类型我总不会转换,如FINDDOW该怎么用
       HWND FindWindow(
        LPCTSTR lpClassName, // pointer to class name
        LPCTSTR lpWindowName  // pointer to window name
       );
    MY EMAIL:[email protected]
      先谢!
      

  2.   

    to nclgh:var
      iRtn: HWND;
    begin
      ...
      iRtn:= FindWindow('TfrmMain', 'frmMain');
      if iRtn = 0 then //未找到
      begin
        ...
      end
      else //找到 iRtn 为窗口句柄
      begin
        ...
      end;
      ...
    end;