Убить процесс в W98

← →
Adolph (2002-04-11 22:42) [0]

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

← →
EveryonE (2002-04-12 05:08) [1]

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

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

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

← →
Adolph (2002-04-12 22:19) [3]

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

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;

Убить процесс в W98 Найти похожие ветки