已知窗口句柄，能获得该程序的运行所在的目录吗？

2002-07-19 09:54:07 81 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ttyp 墨衍会员 · AI 创作全网分发关注 + 加入社区

PC端自动化工具pywinauto:如何查看窗口句柄？如何连接已打开的应用程序有哪些方法可以连接到windows上已经打开的应用程序？从哪里来看窗口句柄呢？阅读详情

如题

...全文

3-RRR并联机器人结构详解：从运动学到奇异点分析（附MATLAB仿真代码）本文详细解析了3-RRR并联机器人的结构设计、运动学建模及奇异点分析，并提供了MATLAB仿真代码。通过对称性设计和可分析性，3-RRR结构成为教学与研究的理想对象。文章从基础杆件参数设置到奇异位形的实时捕捉，深入探讨了机构运动的数学本质，并分享了仿真调试中的实用技巧，助力工业自动化和精密控制应用。阅读详情

ttyp

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

ttyp 2002-07-20

打赏
举报

也贴出来看看：）

Chice_wxg 2002-07-20

打赏
举报

如果是9X，那么以上代码可以得到完全的EXE名，就可以知道路径了

如果是2K，那就麻烦了。

1、你可以用钩子注入一个DLL，然后用DLL得到路径。
(VB做不到)

2、或者你试试 GetModuleFileName(GetModuleHandle("myexe.exe"))
(估计成功可能性不大）

ttyp 2002-07-20

打赏
举报

非常感谢楼上两位,但好像只能列举进程的程序名,无法知道程序的工作目录:(

junwhj 2002-07-20

打赏
举报

根据进程取得文件名的方法(需要一个ListView控件,三列):

Option Explicit

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSapshot As Long, lppe As PROCESSENTRY32) As Long

Private Type PROCESSENTRY32
dwSize As Long
cntUseage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
swFlags As Long
szExeFile As String * 1024
End Type

Private Const TH32CS_SNAPPROCESS = &H2

Private Sub Form_Load()
Call ShowProcessInfo
End Sub

Private Sub ShowProcessInfo()
Dim pe As PROCESSENTRY32
Dim r As Long, i As Long
Dim ListItemX As ListItem

ListView1.ListItems.Clear
r = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
If r <> 0 Then
pe.dwSize = 1060
Process32First r, pe
Set ListItemX = ListView1.ListItems.Add(, , GetFileName(pe.szExeFile))
ListItemX.SubItems(1) = Hex(pe.th32ProcessID)
ListItemX.SubItems(2) = pe.szExeFile
Do
i = Process32Next(r, pe)
If i > 0 Then
Set ListItemX = ListView1.ListItems.Add(, , GetFileName(pe.szExeFile))
ListItemX.SubItems(1) = Hex(pe.th32ProcessID)
ListItemX.SubItems(2) = pe.szExeFile
Else
Exit Do
End If
Loop
End If
End Sub

Private Function GetFileName(strFullPath As String) As String
Dim i As Integer
Dim strFileName As String

For i = Len(strFullPath) To 1 Step -1
If Mid(strFullPath, i, 1) = "\" Then
strFileName = Right(strFullPath, Len(strFullPath) - i)
strFileName = UCase(Left(strFileName, 1)) & LCase(Right(strFileName, Len(strFileName) - 1))
GetFileName = strFileName
Exit Function
End If
Next i
End Function

Private Sub Command1_Click()
Call ShowProcessInfo
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Chice_wxg 2002-07-20

打赏
举报

BOOL GetProcessName(DWORD dwProcessId,char *s)
{
HANDLE hProcessSnap = NULL;
BOOL bRet = FALSE;
PROCESSENTRY32 pe32 = {0};

hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hProcessSnap == (HANDLE)-1) return (FALSE);
pe32.dwSize = sizeof(PROCESSENTRY32);

if (Process32First(hProcessSnap, &pe32))
{
BOOL bGotModule = FALSE;
MODULEENTRY32 me32 = {0};
do
{
if(pe32.th32ProcessID == dwProcessId)
{
strcpy(s,pe32.szExeFile);
break;
}
}
while (Process32Next(hProcessSnap, &pe32));
bRet = TRUE;
}
else
bRet = FALSE;

CloseHandle (hProcessSnap);
return (bRet);
}

Chice_wxg 2002-07-19

打赏
举报

我只用C写够ToolHelp系列API的调用

没有VB代码 :(

Sorry

ttyp 2002-07-19

打赏
举报

怎么知道？详细些，用什么API？

Chice_wxg 2002-07-19

打赏
举报

先
GetWIndowThreadProcessId

然后

用ToolHelp系列列举所有进程，找到同名进程，然后就知道了。

已知窗口句柄，能获得该程序的运行所在的目录吗？

相关推荐