Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: CL | DM;

Вниз

как закрыть процесс   Найти похожие ветки 

 
Azbul   (2003-03-27 09:46) [0]

например IExplore.exe очень надо


 
QUE ©   (2003-03-27 09:54) [1]

Пошли ему сообщение Что-нибудь типа WM_DESTROY или WM_CLOSE


 
default ©   (2003-03-29 02:29) [2]

unit Temp;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellApi, ExtCtrls, TLHelp32, CheckLst, Buttons;

type
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure FormActivate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
mid: Array of Cardinal;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
sh: LongInt;
ps: PROCESSENTRY32;
i: Byte;
begin

i := 0;
SetLength(mid, 0);
CheckListBox1.Clear;
sh := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
ps.dwSize := SizeOf(ps);
if (sh <> -1) and Process32First(sh, ps) then begin
repeat
SetLength(mid, i + 1);
mid[i] := ps.th32ProcessID;
CheckListBox1.Items.Add(ps.szExeFile);
Inc(i);
until not Process32Next(sh, ps);
CloseHandle(sh);
end;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: Byte;
begin

for i := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.Checked[i] then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, False, mid[i]), 0);
Sleep(50);
FormActivate(nil)

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin

FormActivate(nil)

end;

end.

скомпиль
там и IE закроет


 
jack128 ©   (2003-03-29 13:38) [3]

нужно ещё закрыть хендл процесса

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
i: Byte;
PH : Thandle;
begin

for i := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.Checked[i] then begin
ph := OpenProcess(PROCESS_TERMINATE, False, mid[i]);
TerminateProcess(ph,0);
CloseHandle(ph);
end;
Sleep(50);
FormActivate(nil)
end;


 
___ALex___ ©   (2003-03-29 19:19) [4]

to jack128 закрываем хендл процесса которого скорее всего нет?
скорее всего потому что после возвращения управления TerminateProcess процесс может быть ещё не завершён
после "смерти" процесса все "следы" оставленные им во время своего существования "заметаются"
то есть строка CloseHandle(ph) не нужна


 
Morfein ©   (2003-03-29 21:33) [5]

Зачем такие сложности?
Окно эксплоера всегда содержит в заголовке текст "Microsoft Internet Explorer"... используете FindWindow, а результат передаёте в KillWindow();


procedure KillWindow(hWnd : dword);
var
dwProcessId : dword;
begin
dwProcessId:=0;
GetWindowThreadProcessId(hWnd, @dwProcessId);
if dwProcessId > 0 then
TerminateProcess(OpenProcess(PROCESS_ALL_ACCESS, false, dwProcessId), 0);
end;


Причём работать будет и под NT...


 
___ALex___ ©   (2003-03-30 04:05) [6]

да это понятно
ему для общего случая дали


 
jack128 ©   (2003-03-30 14:43) [7]

___ALex___ © (30.03.03 04:05)
Не мешало бы точки и запятые расставить -).


> после "смерти" процесса все "следы" оставленные им во время
> своего существования "заметаются"


Никто ничего не заметает. Пока ты не закроешь хендл процесса, объект ядра "процесс" не будет уничтожен.
Я ж те давал ссылку на Рихтера - там все это описано -)


 
azra3L ©   (2003-03-30 19:18) [8]

а что если использовать ExitProcess для "чистого" завершения...


 
jack128 ©   (2003-03-30 21:56) [9]

ExitProcess завершает текущий, то есть твой собственный процесс...



Страницы: 1 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.017 c
4-95175
Manix
2003-04-01 20:21
2003.05.29
Как послать сообщение программе о нажатии мыши


3-94756
Dimaz-z
2003-05-11 21:31
2003.05.29
Почему при удалении записей, размер базы не уменьшается?


1-94957
Adil
2003-05-18 12:09
2003.05.29
HTML colors


8-94973
Fast
2003-02-13 12:58
2003.05.29
TChart Axis Flip


6-94988
k123
2003-03-31 17:45
2003.05.29
ip addr -> hexademical