如何能够结束一个应用程序

Question

比如我想在我的应用程序结束之前去结束另一个程序 比如这个应用程序的执行文件的名字我知道 最好写段代码

Answer 1

uses TLhelp32procedure TForm1.FormDestroy(Sender: TObject);
var
  FSnapshotHandle:THandle;
  FProcessEntry32:TProcessEntry32;
  ProcessID:integer;
  Ret:BOOL;
  strEXE:string;
begin
  FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
  Ret:=Process32First(FSnapshotHandle,FProcessEntry32);
  while Ret do
  begin
    s:=ExtractFileName(FProcessEntry32.szExeFile);
    if strEXE='QQ.exe' then//终止进程
    begin
      ProcessID:=FProcessEntry32.th32ProcessID;
      TerminateProcess(OpenProcess(PROCESS_TERMINATE,false,ProcessID),1);
      s:='';
    end;
    Ret:=Process32Next(FSnapshotHandle,FProcessEntry32);
  end;
end;