Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.01.02;
Скачать: [xml.tar.bz2];

Вниз

убиение процесса по имени ехе   Найти похожие ветки 

 
ga3   (2002-12-21 06:08) [0]

мастаки, я давно еще видел на форуме такую функцию, но щас ее нигде найти не могу почемуто:-((
подскажите плиз, замучился нафиг


 
mukha   (2002-12-21 06:29) [1]

function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
H: THandle;
FP32: TProcessEntry32;
begin
result := 0;

H := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FP32.dwSize := Sizeof(FP32);
ContinueLoop := Process32First(H,FP32);

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

CloseHandle(H);
end;

Использование KillTask("Winword.exe")


 
mukha   (2002-12-21 07:01) [2]

Извиняюсь, исправлено

function 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;



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

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

Наверх





Память: 0.55 MB
Время: 0.018 c
14-1890
NaPoleOn_IV
2002-12-13 21:49
2003.01.02
Все говорят, но я не могу найти


1-1774
Checist [root]
2002-12-20 11:05
2003.01.02
Вопрос к Kabro (плиз ответь)


1-1803
AVR
2002-12-19 12:05
2003.01.02
QReport: Access violation... при отчёте > 1страница.


14-1908
SONY
2002-12-15 11:36
2003.01.02
Русская справка


1-1814
gagarkin
2002-12-20 11:21
2003.01.02
По поводу TypeLib Editor а





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский