Как убить процесс в зная только его название?

← →
mm0 (2003-07-15 17:05) [0]

Как убить процесс в зная только его название?В моем случае
он называеться "RunTBB.exe".

Люди помогите!Кусок кода,если можно.

← →
ZZ (2003-07-15 17:58) [1]

Нельзя. Найди сам!!!! Есть же yandex, google.. факи и мсдн"ы разные... неужели так тяжело?

← →
Klev (2003-07-15 17:59) [2]

Вот пожалуйста кусок кода:

procedure Terminate;
var
hprocess:dword;
hSnapshoot: THandle;
pe32: TProcessEntry32;
begin

hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe32.dwSize := SizeOf(TProcessEntry32);
Process32First(hSnapshoot, pe32);
repeat

( PROCESS_CREATE_THREAD or PROCESS_VM_WRITE or process_terminate or
PROCESS_VM_OPERATION, FALSE, pe32.th32ProcessID) Вот пожалуйста кусок кода:

procedure Terminate;
var
hprocess:dword;
hSnapshoot: THandle;
pe32: TProcessEntry32;
begin

hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe32.dwSize := SizeOf(TProcessEntry32);
Process32First(hSnapshoot, pe32);
repeat

if pe32.szExeFile = "RUNTBB.EXE" then begin
hProcess:=OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_WRITE or process_terminate or
PROCESS_VM_OPERATION, FALSE, pe32.th32ProcessID);

terminateprocess(hprocess,0);
closehandle(hprocess);
end;
until not Process32Next(hSnapshoot,pe32);
end;

На работоспособность не проверялся.
Но вроде написал все правильно.

← →
Klev (2003-07-15 18:09) [3]

>ZZ
Ну вот про MSDN не надо. Там про некоторые вещи написано так, что даже человек хорошо знающий английский ничего не поймет.
Как говорится сделано по принципу "Чтобы было"

← →
ZZ (2003-07-15 18:16) [4]

Привел код - молодец.. завтра-послезавтра появится еще один и попросит то-же самое - зачем самому искать - лучше я спрошу и пойду спокойно отдыхать, а вечером(утром, завтра..) прийду - уже готовый код написали :)

Ну про некоторые вещи - мжет быть, хотя я таких не встречал. Может покажешь? А про процессы там есть.. и с примерами.. и в 2х вариантах.

← →
Klev (2003-07-15 18:52) [5]

>ZZ
Да, разобраться с MSDN конечно можно, но это занимает много времени.
К тому же все примеры сделаны для C++, очень часто с использованием MFC.

← →
mm0 (2003-07-16 10:13) [6]

Klev если ты такой умный то посоветовал что-нибудь.А если
нечего тебе советовать то нелазей по форуму!!!

ZZ Не работает//Он вообще нечего не находит
procedure KillProcessByName(Name:string);
var
hprocess:dword;
hSnapshoot: THandle;
pe32:TPROCESSENTRY32W;
f:text;
begin
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe32.dwSize := SizeOf(TProcessEntry32);
Process32FirstW(hSnapshoot, pe32);
AssignFile(F,"C:\11.txt");ReWrite(F);
repeat
Writeln(F,pe32.szExeFile);
if pe32.szExeFile = Name then
begin
hProcess:=OpenProcess(PROCESS_CREATE_THREAD or PROCESS_VM_WRITE or process_terminate or
PROCESS_VM_OPERATION, FALSE, pe32.th32ProcessID);
Terminateprocess(hprocess,0);
Closehandle(hprocess);
end;
until not Process32NextW(hSnapshoot,pe32);
CloseFile(F);
end;

← →
mm0 (2003-07-16 10:15) [7]

БЛИН в предудущем сообщение то что вдрисовано ZZ адресовано
KLEV а то что KLEV ZZ

← →
Clipper Chip (2003-07-16 13:45) [8]

у меня на сайте лежит программка с подобной реализованной процедурой. Ее немного изменить и все. Там проверяется если
имя моей проги равно имени процесса то он убивается.
Подставляешь свое имя и все (в моем случае было paramstr(0)).
www.clippersoft.narod.ru раздел delphi программа N2(шуточная программка jokeCC) процедура terminator. для 9х и nt.

← →
ZZ (2003-07-16 16:24) [9]

mm0
Я тебе уже посоветовал где искать.. Или ты считаешь, что это великая тайна и найти ответ невозможно? Так поищи - получение списка процессов и завершение процесса - может найдешь чего.

А по поводу "не работает" - убери из назывний функций и типов последнюю букву W - должно заработать :)

← →
Klev (2003-07-16 19:20) [10]

Вместо pe32.szExeFile = "RUNTBB.EXE" надо написать примерно следующее:
uppercase(extractfilename(pe32.szExeFile)) = "RUNTBB.EXE"

← →
mm0 (2003-07-17 08:04) [11]

www.clippersoft.narod.ru я там нашел что мне нужно

Как убить процесс в зная только его название? Найти похожие ветки