怎样终止外部程序

Question

怎样终止外部程序。
快

Answer 1

假设要终止的程序的文件名为：project2.exe，那么例程如下：
var
lppe:tprocessentry32;
sshandle:thandle;
hh:hwnd;
found:boolean;
begin
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
while found do
begin
  //进行你的处理其中lppe.szExefile就是程序名。
  if uppercase(extractfilename(lppe.szExeFile))='PROJECT2.EXE' then
  begin
    hh:=OpenProcess(PROCESS_ALL_ACCESS,true,lppe.th32ProcessID);
    TerminateProcess(hh,0);
  end;
  found:=process32next(sshandle,lppe);
end;
end;
********************
HANDLE hProcess
Windows NT/2000: The handle must have PROCESS_TERMINATE access. 
For more information, see Process Security and Access Rights. 所以要先使用 
DWORD SetSecurityInfo(
  HANDLE handle,                     // handle to object
  SE_OBJECT_TYPE ObjectType,         // object type
  SECURITY_INFORMATION SecurityInfo, // buffer
  PSID psidOwner,                    // new owner SID
  PSID psidGroup,                    // new primary group SID
  PACL pDacl,                        // new DACL
  PACL pSacl                         // new SACL
);

Answer 2

//为了控制外部报表打印程序
  MyHandle: THandle;
  MyStartupInfo: TStartupInfo;
  MyProcessInfo: TProcessInformation;
  //hyadd end; 
//以下是打开外部应用程序
procedure ExecuteApp(MyPath: String);
begin
  FillChar(MyStartupInfo, SizeOf(MyStartupInfo), 0);
  //清除MyStartupInfo中的数据  MyStartupInfo.cb:=SizeOf(MyStartupInfo);  CreateProcess(PChar(MyPath), nil, nil, nil, False,
  DETACHED_PROCESS, nil, nil, MyStartupInfo,MyProcessInfo);  MyHandle:=MyProcessInfo.hProcess;
  //把执行的程序的句柄赋值给MyHandle，它会在终止程序时用到
end;//以下程序是关闭外部应用程序
procedure CloseApp(MyHandle: THandle);
begin
TerminateProcess(MyHandle, 0);
end;

Answer 3

再给你一个：
atty:要终止的程序
procedure TForm1.Button36Click(Sender: TObject);
const
  PROCESS_TERMINATE=$0001;
var
  ExeFileName: String;
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  ExeFileName := 'atty.exe';
  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
      TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
                        FProcessEntry32.th32ProcessID), 0);
    ContinueLoop := Process32Next(FSnapshotHandle,FProcessEntry32);
    end;
end;