类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
请高手帮忙！最好有源代码！
网友回答：
简单的方法是用FindWindow，再发送WM_CLOSE消息。但这对某些程序无效。
也可以列举系统的进程，根据进程找到文件名，符合则杀掉。
SendMessage(FindWindow(nil,Pchar(YourApplicationTitle), WM_CLose,0,0));
//需要uses TLhelp32;
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;
//使用
procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask(notepad.exe);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
KillTask(notepad.exe);
end;
如果应用应用程序的主窗体没出现的话，可能会失效