Форум: "WinAPI";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
ВнизУбить процесс в 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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.06.17;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c