用一个Timer定时的检查系统开启的进程。不要说不会哦。然后用如下代码将进程杀死就可以了。 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); end;
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);
end;