根据运行中的窗体，寻找源文件路径

[llfguest]

我想问，如果已经有一个程序在系统里运行那么我在 delphi 中想要根据已经运行的窗体或者进程，来找到这个已经在运行的程序的源文件路径该怎么写代码？（比如：已经有一个名称为 servermagic 窗体在运行，然后，我想在程序中，根据这个运行中的窗体 servermagic ，来找到这个窗体的源文件的路径 c:\pqmagic\servernt.exe ）

有些地方说是用 getmodulefilename 但我还是不知道怎么用，能不能给个最简单的例子

[panyee]

Process[] prs = Process.GetProcesses();
if(prs != null)
{
foreach(Process ps in prs)
{
if(ps.MainWindowTitle.IndexOf("servermagic") != -1)
{
MessageBox.Show(ps.MainModule.FileName);
}
}
}

[llfguest]

有没有高手，将它改成 VB.net 或 delphi 代码？

[dxq]

Dim prs() as Process=Process.GetProcesses()
If Not prs Is Nothing Then
Dim ps As Process
For Each ps In prs
If ps.MainWindowTitle.IndexOf("servermagic")<>-1 Then
MessageBox.Show(ps.MainModule.FileName)
End If
Next
End If