Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.17;
Скачать: CL | DM;

Вниз

Убить процесс в 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 вся ветка

Текущий архив: 2002.06.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
7-55337
Alex Dobrushin
2002-03-18 19:55
2002.06.17
Печать через WordApplication


8-55226
Ruslan_
2002-02-05 13:58
2002.06.17
BMP


14-55282
Из Санкт-Петербурга
2002-05-15 08:20
2002.06.17
Кто знает, сколько у нас в городе стоит Nokia 3410, и где купить?


6-55239
Beginer
2002-04-07 15:33
2002.06.17
Убить все коннекты


1-55067
vlv
2002-06-05 18:12
2002.06.17
Com - объекты