怎样结束一个未响应的程序(100分)

我在进行数据通讯时，由于干扰，造成数据传输错误，使应用程序死掉，我想使用另外一个程序将未响应的程序关掉。请赐教.......

殺進程啊. 自己寫一個,或者用windows的結束進程

对，强制结束进程

function KillExe(ExeFileName: string): integer;

const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
s, s1: string;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
s := UpperCase(ExtractFileName(trim(StrPas(FProcessEntry32.szExeFile))));
s1 := UpperCase(trim(StrPas(FProcessEntry32.szExeFile)));
if (s = UpperCase(ExeFileName)) or (s1 = UpperCase(ExeFileName)) or (s =
UpperCase(ExtractFileName(ExeFileName))) then
begin

Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
end;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;

楼上的办法可以，值得一试！最简单的办法就是CTRL+ALT+DEL.

我已经解决了。还是得谢谢大家。