Witam. wiem że było już dużo tego typu tematów lecz nie znalazłem w tych które przeglądałem odpowiedzi na mój problem. Nie mogę sobie poradzić z zabiciem procesów Avastu. Próbowałem w delphi tym kodem:
i jak próbuję zabić jeden z procesów Avasta to wyskakuje mi messagebox "błąd".
Próbowałem również w cmd:
ale wtedy avast się pyta czy na pewno chcę wyłączyć wszystkie osłony. Potrzebuję sposobu wyłączenia avastu po kryjomu. Najlepiej żeby kod był w delphi. Z góry dziękuję i proszę o szybką odpowiedź.
josh4vi
Kod:
var
PHandle, FHandle : THandle;
Process : TProcessEntry32;
Done, Next : Boolean;
EXE : String;
begin
EXE := Edit1.Text;
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process.dwSize := Sizeof(Process);
Next := Process32First(FHandle,Process);
while Next do
begin
if AnsiLowerCase(Process.szExeFile) = AnsiLowerCase(EXE) then
begin
PHandle:=OpenProcess(PROCESS_TERMINATE, False,
Process.th32ProcessID);
Done := TerminateProcess(PHandle,0);
if not Done then
MessageBox(Handle, 'Błąd', 'Błąd', MB_OK);
end;
Next := Process32Next(FHandle,Process);
end;
CloseHandle(FHandle);
end;
Próbowałem również w cmd:
Kod:
net stop "avast! Antivirus"
josh4vi