|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Закрыть все окна Internet Explorer'a
Народ need help...
Надо закрыть все окна ie . Причем нужно не завершить задачу, а завершить процесс. Код:
===Просьба к админу и модеру=== Пожалуйста не закрывайте тему, это не вирь! Это прога для того чтобы автоматический нажимать на баннер. (не решайте мне хлеба) ===end;=== [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#2
|
||||
|
||||
Ну пожалуста ! откликнитесь ...
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#3
|
|||
|
|||
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; |
#4
|
||||
|
||||
Чел , эээ... а куда всё это вставить ? ... напиши пример плз
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#5
|
|||
|
|||
Ну держи пример.... думаю теперь будет понятнее...
////////////////////////////////////////////////////////////// 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. |
#6
|
||||
|
||||
Сорри, но ничего не закрылось . напиши какой небудь другой способ пожалуйста
[ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#7
|
|||
|
|||
а точно все так написал? надеюсь обработку кнопки не просто так скопировал да вставил проще сделай так: скопируи две процедуры себе в код, а на кнопку сам припиши вызов процедуры... и ещё посмотри как в процессах ie отображается...
|
#8
|
||||
|
||||
Вот , всё работает, просто надо было iexplore.exe маленькими буквами написать
СПАСИБО ТЕБЕ !!! [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#9
|
|||
|
|||
ещё вот что, на всякий случай сделай так чтобы учитывался регистр букв, вот у меня ослик в процессах большими буквами...
|