Question

问一个Delphi的问题,如何杀进程.

如题.....

Answer 1

Function KillProcess(TheProcName:String):boolean;
var
isOK:Boolean;
ProcessHandle:Thandle;
ProcessStruct:TProcessEntry32;
Function KillProcessID(ProcessID:Cardinal):boolean;
var
H:THandle;
begin
H:=OpenProcess(Process_All_Access, true,ProcessID);
Result:=TerminateProcess(H,0);
end;
begin
ProcessHandle:=createtoolhelp32snapshot(Th32cs_snapprocess,0);
processStruct.dwSize:=sizeof(ProcessStruct);
isOK:=process32first(ProcessHandle,ProcessStruct);
while isOK do
begin
if TheProcName=ProcessStruct.szExeFile then
begin
Result:=KillProcessID(ProcessStruct.th32ProcessID);
CloseHandle(ProcessHandle);
exit;
end;
isOK:=process32next(ProcessHandle,ProcessStruct);
end;
CloseHandle(ProcessHandle);
Result:=True;
end;
应该是你要的吧?