| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Убить процесс в W98 [D6, Win95/98]

Adolph ©   (2002-04-11 22:42:00) 

Нужно убить приложение так чтобы оно не задавало вопросов.
Все перепробовал в 98"ом не работает (только в 2000).
Очень надо!!!

---

Adolph   (2002-04-12 22:19:00) [1]

Спасибо всем кто ответил, сделал вот так и пошло:

var
h, hProc : THandle;
Entry : PROCESSENTRY32;
cbNeeded : DWORD;
ExeNam : PChar;
begin
hProc := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
Entry.dwSize := SizeOf(Entry);
Process32First(hProc, Entry);
cbNeeded := 300; // --- ??????
while Process32Next(hProc, Entry) do begin
Entry.dwSize := sizeof(Entry);
h := OpenProcess(PROCESS_ALL_ACCESS,FALSE,
Entry.th32ProcessID);
if h <> 0 then begin
ExeNam := PChar(ExtractFileName(Entry.szExeFile));
if (StrIComp(ExeNam, "1cv7.exe") = 0)
or (StrIComp(ExeNam, "1cv7l.exe") = 0) then
TerminateProcess(h, DWORD(-1));
end;
end;
end;

---

EveryonE   (2002-04-12 05:09:00) [2]

Есои знаешь его Handle то PostMessage(Handle, WM_QUIT, 0, 0);
или через API: TerminateProcess.

---

EveryonE   (2002-04-12 05:08:00) [3]

Есои знаешь его Handle то SendMessage(Handle, WM_QUIT, 0, 0);
или через API: TerminateProcess.

---

Наверх