[MussoN]

[quote=PaHaNjkee]если ты мой код копировал то не надо!
Вот эту функция пропиши после слова implementation

Код:

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;

) твой и есть