我想得到系统中运行的程序的信息，用了以下代码，但是出访问冲突的错误。

Question

你想列举进程,用process32first就可以了,比如:
procedure TfmMain.btnProc95Click(Sender: TObject);
var
  snapShot          : THandle;
  ProcStu          : TProcessEntry32;//修改
begin
  snapShot := 0;
  try
    snapShot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
    if snapShot <> 0 then
    begin
      Process32First(snapShot, ProcStu);//修改
    end;
  finally
    CloseHandle(snapShot);
  end;
end;

Answer 1

用
while not Process32Next(snapShot, ProcStu) do
begin
  。
end;能列举吗，好像是个死循环，怎么得下一个。