Форум: "Потрепаться";
Текущий архив: 2003.06.16;
Скачать: [xml.tar.bz2];

Вниз

Прошу прощения за обращения. Требуется помощь.   Найти похожие ветки 

← →
Yanis   (2003-05-29 11:25) [0]

Люди добрые помогите пожалуйста неопытному, начинающему програмисту. Подскажите как получить список всех всех процессов, выбрать из этого списка процесс, а потом безжалостно его прикончить.
Спасибо за внимание!!!

---

← →
McSimm2   (2003-05-29 11:30) [1]

CreateToolhelp32Snapshot
Process32First
Process32Next
Thread32First
Thread32Next...

---

← →
Yanis   (2003-05-29 11:43) [2]

(Если бы я знал как этим пользоваться).
А где про это написано? Может если почитаю тогда научусь.

---

← →
-=GaLaN=-   (2003-05-29 11:49) [3]

Почитай тут:
http://www.sources.ru/delphi_system.shtml#14
Там есть и про процессы, и про кучу всего другого.

---

← →
Yanis   (2003-05-29 13:12) [4]

Спасибо большое всем кто хотя бы пытался мне помочь!!!!!!!!!!!!!
Я нашел решение проблемы убить процесс зная только его имя(которое можно посмотреть в Диспечере задач), если кому интересно вот код:

unit UProcessKiller;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Tlhelp32,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
function KillTask(ExeFileName: string): integer;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

function TForm1.KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;

FSnapshotHandle := CreateToolhelp32Snapshot
(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);

while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;

CloseHandle(FSnapshotHandle);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.KillTask("NOTEPAD.EXE");
end;

end.


---

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

Форум: "Потрепаться";
Текущий архив: 2003.06.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.008 c