这段delphi代码应该怎样在X3中实现？？**

webcrow

根据进程的可执行文件名杀死进程
function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE   =   $0001;
var
  ContinueLoop:   BOOL;
  FSnapshotHandle:   THandle;
  FProcessEntry32:   TProcessEntry32;
begin
  Result   :=   0;
  FSnapshotHandle   :=   CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,   0);
  FProcessEntry32.dwSize   :=   SizeOf(FProcessEntry32);
  ContinueLoop   :=   Process32First(FSnapshotHandle,   FProcessEntry32);
  while   Integer(ContinueLoop)   <>   0   do
  begin
    if   ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile))   =
          UpperCase(ExeFileName))   or   (UpperCase(FProcessEntry32.szExeFile)   =
          UpperCase(ExeFileName)))   then
      Result   :=   Integer(TerminateProcess(
              OpenProcess(PROCESS_TERMINATE,
              BOOL(0),
              FProcessEntry32.th32ProcessID),
              0));
      ContinueLoop   :=   Process32Next(FSnapshotHandle,   FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

jiahaiminghr

楼主，你可以直接在studio中编译这段代码，遇到无法识别的关键字，可以查找studioHelp来引用相关命名空间。

webcrow

我已经这样干了
studiohelp－－bbs
找不到了才发问的啊

lixy

可以包装成第三方组件调用。

lixy

楼主请回馈

lixy

长时间无反馈结贴