如何停止一个word与ppt的进程，各位大哥代码提示一下

Question

如题

Answer 1

结束PowerPoint进程：uses TlHelp32;procedure TForm1.Button1Click(Sender: TObject);
var PE:TProcessEntry32;
    Found:boolean;
    h:THandle;
begin
  h:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  PE.dwSize:=SizeOf(TProcessEntry32);
  Found:=Process32First(h,PE);
  while Found do
  begin
    if PE.szExeFile='POWERPNT.EXE' then //要结束word进程的话，改成WINWORD.EXE
       begin
         TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,PE.th32ProcessID),$FFFFFFFF);
         ShowMessage('OK');
         exit;
       end;
    Found := Process32Next(h,PE);
  end;
  ShowMessage('Not Found');
end;