教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

Option  Explicit  

Public  Declare  Function  GetWindowThreadProcessId  Lib  "user32"  (ByVal  hWnd  As  Long,  lpdwProcessId  As  Long)  As  Long  
Public  Declare  Function  CloseHandle  Lib  "Kernel32.dll"  (ByVal  Handle  As  Long)  As  Long  
Public  Declare  Function  OpenProcess  Lib  "Kernel32.dll"  (ByVal  dwDesiredAccessas  As  Long,  ByVal  bInheritHandle  As  Long,  ByVal  dwProcId  As  Long)  As  Long  
Public  Declare  Function  GetModuleFileNameExA  Lib  "psapi.dll"  (ByVal  hProcess  As  Long,  ByVal  hModule  As  Long,  ByVal  ModuleName  As  String,  ByVal  nSize  As  Long)  As  Long  
Public  Declare  Function  EnumProcessModules  Lib  "psapi.dll"  (ByVal  hProcess  As  Long,  ByRef  lphModule  As  Long,  ByVal  cb  As  Long,  ByRef  cbNeeded  As  Long)  As  Long  
  
Public  Const  PROCESS_QUERY_INFORMATION  =  1024  
Public  Const  PROCESS_VM_READ  =  16  
Public  Const  MAX_PATH  =  260  
  
Public  Function  GetPath(ByVal  hWnd  As  Long)  As  String  
       Dim  hProcess  As  Long  
       Dim  ProcID  As  Long  
       Dim  mModules(1  To  200)  As  Long  
       Dim  cbNeed  As  Long  
       Dim  ModuleName  As  String  
       Dim  nSize  As  Long  
       Dim  lRet  As  Long  

       GetWindowThreadProcessId  hWnd,  ProcID  
       hProcess  =  OpenProcess(PROCESS_QUERY_INFORMATION  Or  PROCESS_VM_READ,  0,  ProcID)  
       lRet  =  EnumProcessModules(hProcess,  mModules(1),  200,  cbNeed)  
       If  lRet  <>  0  Then  
               ModuleName  =  Space(MAX_PATH)  
               nSize  =  500  
               lRet  =  GetModuleFileNameExA(hProcess,  mModules(1),  ModuleName,  nSize)  
               GetPath  =  Left(ModuleName,  lRet)  
       End  If  
       lRet  =  CloseHandle(hProcess)  
End  Function