在Win2000下如何得到正在运行程序的路径？(50分)

大感激你了，我回去试试！

function FindApp(AppName: String): Integer;
function KillApp(ProcessId: Integer): Integer;
function IsRun(ProcessId: Integer): Boolean;
function IsBusy(ProcessId: Integer): Integer;
function RunApp(AppName, CmdLine: String; nCmdShow: Integer): Integer;

上面的函数是怎样得到进在运行的全部程序的路径的？

你看一下FindApp的实现代码就行了，
我当初是为了判断某一个可执行程序是否正在运行，
参数是一个文件的全路经，
函数中肯定要获得每个可执行程序的每个模块的文件名，
来进行对比，我只是给你提供一个思路，难道非要让我给你写出来吗？
你获得每个进程的模块，由于可执行程序时被第一个加载的，
一般情况下，你获得第一个扩展名为.exe的模块的全路经，
那就是程序的全路径了