Главная страница
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.015 c
3-55040
kserg@ukr.net
2002-05-22 13:32
2002.06.17
MSSQL(ADOQuery) - как отловить


1-55079
Kordel
2002-06-05 21:42
2002.06.17
FreeInstance


14-55308
ATLANTIDO
2002-05-16 17:14
2002.06.17
сервера приложений


1-55203
igorfed
2002-06-03 11:17
2002.06.17
F1Book - шрифты


6-55256
esprit_bel
2002-04-08 05:32
2002.06.17
IP