Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

Как определить?   Найти похожие ветки 

← →
ggrisha   (2002-01-23 17:14) [3]

Держи пример.

Uses TlHelp32;
procedure KillProcess(const FileName:string);
var h,hpr:THandle;
pe:PROCESSENTRY32;
begin
h:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=SizeOf(pe);
Process32First(h,pe);
repeat
if pe.szExeFile=FileName then begin
hpr:=OpenProcess(PROCESS_TERMINATE,true,pe.th32ProcessID);
TerminateProcess(hpr,0);
MessageBox(0,"Процесс уничтожен","",0);
CloseHandle(h);
exit;
end;
until not Process32Next(h,pe);
MessageBox(0,"Процесс не найден","",0);
CloseHandle(h);
end;

---

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

Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c