Write your own Task Manager
Often an error message occurs:
“The process cannot access the file because it is being used by another process.”
Typically it occurs when you try to copy or rebuild the file.
How do you determine which process is using it? One way to release the file may be to reboot. What a pain!
Here’s an easier way to find which process is using it. The .NET framework has some very simple classes that can enumerate the processes running on your machine. We can access these from VFP by COM interop.
Here’s some fox code to determine which processes have, for example, “kernel32.dll” loaded.
x=NEWOBJECT("loadedmodule.loadedmodule")
arr=x.LoadedModule("kernel32.dll")
FOR EACH oProc IN arr
IF !ISNULL(oproc)
?oProc.id,oProc.ProcessName
ENDIF
ENDFOR
To create the .NET project:
Start Visual Studio 2003
Choose File->New->Project
Choose Visual Basic Projects, ClassLibrary project, Call it “LoadedModule”
It creates a project with a Class1.vb file. Delete that file from the Solution explorer.
Choose Project->Add User Control->COM Class. Name it LoadedModule.vb
Add this line at the top:
imports System.Diagnostics.Debug
Paste this code just before the “End Class”
public function LoadedModule(ModuleName as String) as LMproc()
Dim oProc As Diagnostics.Process
dim aResult(0) as LMproc
dim nCnt as Integer=0
For Each oProc In Process.GetProcesses() ' Each running process
Try
For Each omod As Diagnostics.ProcessModule In oProc.Modules() ' Each DLL/EXE loaded in the process
If omod.ModuleName.ToString().ToLower() = ModuleName.ToLower Then
dim oLMProc as LMproc= new LMproc ' create a new instance
oLMproc.ID =oProc.Id
oLMproc.ProcessName=oProc.ProcessName
oLMproc.WorkingSet = oProc.WorkingSet
redim preserve aResult(nCnt)
aResult(nCnt) = oLMProc ' add it to the array
nCnt=nCnt+1
End If
Next
Catch ex As Exception
' Idle, System processes throw exception "Unable to enumerate the process modules."
debug.WriteLine("Exception " + ex.Message+" "+oProc.ProcessName)
End Try
Next
return aResult
End Function
public class LMproc
public ProcessName as String
public ID as Integer
public WorkingSet as Integer
End Class
Then choose Build->Build Solution and run the VFP code above.
The GetProcesses() static method of the Process class.returns an array of all the currently running processes on the machine. The Modules property returns the modules loaded for that particular process. If the module.ModuleName matches the passed in parameter, then a new array element is created for that Process class The LoadedModule method returns that array.
The Process class has lots of useful members. You can add things like memory usage values and processor time to the LoadedModuleObject class as properties and to the array elements and then access them from VFP. You can close a process or even kill it.
You can add a method to return information about a particular process using the GetProcessById method There are lots of other goodies available from the Process class: check it out!
I’ve added WorkingSet (physical memory currently used by process) for this example to see which process is using the most memory
x=NEWOBJECT("loadedmodule.loadedmodule")
arr=x.LoadedModule("kernel32.dll")
CREATE CURSOR results (id i, WorkingSet i,Name c(20))
FOR EACH oproc IN arr
IF !ISNULL(oproc)
?oProc.id,oProc.WorkingSet,oProc.ProcessName
INSERT INTO results VALUES (oProc.id,oProc.WorkingSet,oProc.ProcessName)
ENDIF
ENDFOR
SELECT * FROM results ORDER BY WorkingSet descending,name
Please let me know how you expand on this example.
64528