Delphi FAQ >> Окна
Для того, чтобы завершить процесс по имени его исполняемого файла, можно воспользоваться следующей функцией на Delphi:
uses TLHelp32;
...
function CloseByExeName(ExeFilename: String): Integer;
var
continueloop: Boolean;
fsnapshothandle: THandle;
fprocessentry32: TProcessEntry32;
const
//константа для команды завершения процесса
process_terminate=$0001;
begin
Result := 0;
//переводим имя файла в верхний регистр для сравнения
ExeFilename = uppercase(ExeFilename);
//получаем снимок работабщих в системе процессов
fsnapshothandle := createtoolhelp32snapshot(th32cs_snapprocess,0);
fprocessentry32.dwsize := sizeof(fprocessentry32);
continueloop := process32first(fsnapshothandle,fprocessentry32);
//перебираем процессы
while integer(continueloop)<>0 do
begin
//если имя файла совпадает с искомым, то пробуем его завершить
if ( ( uppercase( extractfilename( fprocessentry32.szexefile ) ) = ExeFilename ) OR
( uppercase( fprocessentry32.szexefile ) = ExeFilename) ) then
Result := integer( terminateprocess( openprocess( process_terminate, bool(0), fprocessentry32.th32processid ), 0) );
//берем следующий процесс
continueloop := process32next(fsnapshothandle,fprocessentry32);
end;
closehandle(fsnapshothandle);
end;
Хороший хостинг может быть бесплатным! Попробуйте PHP хостинг для сайтов Бесплатно домен cv.ua и попробуйте найти отличия от платного.