Ну держи пример.... думаю теперь будет понятнее...
//////////////////////////////////////////////////////////////
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TlHelp32;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
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;
end.
|