uses ..., TlHelp32;
....
Procedure KillProcIE(ID: Cardinal);
var
hProcess : Cardinal;
begin
hProcess:= OpenProcess(PROCESS_ALL_ACCESS, false, ID);
if hProcess <> INVALID_HANDLE_VALUE then
begin
TerminateProcess(hProcess, 0);
CloseHandle(hProcess);
Sleep(500);
end;
end;
procedure ListProcIE;
var
hSnapShot: THandle;
lppe: TProcessEntry32;
hIcon: THandle;
Count: Integer;
procedure _FillList;
begin
if lppe.szExeFile = 'IEXPLORE.EXE' then begin
KillProcIE(lppe.th32ProcessID);
Inc(Count);
end;
end;
begin
hSnapShot:= CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if hSnapShot <> INVALID_HANDLE_VALUE then
begin
lppe.dwSize:= SizeOf(lppe);
Count:= 0;
if Process32First(hSnapShot, lppe) then _FillList;
while Process32Next(hSnapShot, lppe) do _FillList;
CloseHandle(hSnapShot);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListProcIE;
end;
|