要让以下的代码在delphi下执行，应uses哪个dcu文件？谢谢指教！！！

Question

主要是TProcessEntry32无法识别！！procedure AppForceExit(const AppName: string);
var
  lppe: TProcessEntry32;
  ssHandle: THandle;
  AppFound: Boolean;
  Wnd: HWND;
begin
  ssHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
  AppFound := Process32First(sshandle, lppe);
  while AppFound do
  begin
   //其中lppe.szExefile就是程序名**********************************************
    if UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase('test.exe') then
    begin
      Wnd := OpenProcess(PROCESS_ALL_ACCESS, true, lppe.th32ProcessID);
      TerminateProcess(Wnd, 0);
    end;
    AppFound := Process32Next(ssHandle, lppe);
  end;
end;

Answer 1

都是正确的
不过JEDI的Win32库比较强大