请帮忙看一段代码？

Question

procedure RefreshList;  //刷新进程列表
var
  h:THandle;
  procEntry32:TProcessEntry32;
  isEnd:Bool;
  s:ShortString;
begin
  list1.clear;
  h:=createToolhelp32snapshot(TH32CS_SNAPPROCESS,0);
  procEntry32.dwSize:=sizeof(TProcessEntry32);
  isEnd:=Process32First(h,procEntry32);
  while isEnd do
  begin
    GetModuleFileName(openProcess(Process_All_Access,
true,procEntry32.th32ProcessID),@s,255);
    list1.Items.Add(s);
    isEnd:=Process32Next(h,procEntry32);
  end;
  CloseHandle(h);
end;
//为什么list1中什么也没有（list1是一个listbox)

Answer 1

GetModuleFileName(openProcess(Process_All_Access,
true,procEntry32.th32ProcessID),@s[1],255);

Answer 2

想查找进程?
Delphi自带了个例程啊.!

Answer 3

BCB也带了一个,我以前经常用他杀"美萍"的.很有用的

Answer 4

GetModuleFileName(openProcess(Process_All_Access,
true,procEntry32.th32ProcessID),pchar(s),255);

Answer 5

上面的方法都不行啊！我不仅仅想查找进程，主要是在Win2000下要能得到包含完整路径的进程列表。

Answer 6

GetModuleFileName第一个参数是“handle to module to find filename”，不是进程句柄。
你这样写当然取不到了。其实一个参数应该是GetModuleHandle的返回值，不过这个函数的参数又恰是你想得到了。
别用procEntry32.th32ModuleID，它应该一直是0，是该进程自己模块的handle，所以是0。
若你用0取会得到自己程序整个路径。
在9x下procEntry32.szExeFile是完整路径名称，不过2000下只是名称。
我想你可以用Module32First，Module32Next去遍历模块，只取第一个模块的szExePath就可以了。
不知道还有没有其他合适的办法，因为用ModuleXXX还得遍历Process。

Answer 7

GetModuleFileNameEx应该最合适，不过delphi中似乎没有声明，你自己声明一下吧。

Answer 8

function GetModuleFileNameExA(hProcess: HWND; hModule: HINST; lpFilename: PAnsiChar; nSize: DWORD): DWORD; stdcall; external 'PSAPI.DLL';GetModuleFileNameExA(openProcess(Process_All_Access,true,procEntry32.th32ProcessID),procEntry32.th32ModuleID,@s[1],255);结贴咯