[X-rem]

Народ need help...
Надо закрыть все окна ie . Причем нужно не завершить задачу, а завершить процесс.

Код:

 
===Просьба к админу и модеру===
Пожалуйста не закрывайте тему, это не вирь!  Это прога для того чтобы автоматический нажимать на баннер. (не решайте мне хлеба)
===end;===

[X-rem]

Ну пожалуста ! откликнитесь ...

[BlackCash]

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;

[X-rem]

Чел , эээ... а куда всё это вставить ? ... напиши пример плз

[BlackCash]

Ну держи пример.... думаю теперь будет понятнее...
//////////////////////////////////////////////////////////////
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.

[X-rem]

Сорри, но ничего не закрылось . напиши какой небудь другой способ пожалуйста

[BlackCash]

а точно все так написал? надеюсь обработку кнопки не просто так скопировал да вставил проще сделай так: скопируи две процедуры себе в код, а на кнопку сам припиши вызов процедуры... и ещё посмотри как в процессах ie отображается...

[X-rem]

Вот , всё работает, просто надо было iexplore.exe маленькими буквами написать

СПАСИБО ТЕБЕ !!!

[BlackCash]

ещё вот что, на всякий случай сделай так чтобы учитывался регистр букв, вот у меня ослик в процессах большими буквами...