Dim sProcesses() As System.Diagnostics.Process
Dim sProcess As System.Diagnostics.Process
sProcesses = System.Diagnostics.Process.GetProcesses()
For Each sProcess In sProcesses
If sProcess.MainWindowTitle.ToString.Trim.Contains("1.JPG") Then
MsgBox(sProcess.Id & Space(5) & sProcess.ProcessName & Space(10) & sProcess.NonpagedSystemMemorySize64)
End If
Next
判断1.jpg被哪个进程使用
一点不成熟的想法