Processo preso Warsaw

[fabiofranzini]

Ola, bom dia. 

 

Alguém ai com problemas ao finalizar aplicações quando o pc possui o GAS ou Warsaw ? 

Tenho relatos de vários casos, e os meus não fecham o processo nunca. 

Alguém tem alguma dica, Assinar o executável já é feito. Parece ter algo a ver com as ultimas atualizações do Warsaw, enviar meu Executavel para a Diebold ou qualquer outra empresa esta fora de questão. Ja pensou termos que mandar sempre para MS um executavel para poder depois rodos no PC. Absurdo. 

Esta solução do banco parece aquela ideia de arrancar os dedos para curar uma unha encravada.

 

[Juliomar Marchetti]

Qual windows? tem o windows defender ligado, desabilite pois isso parece um virus.

[Daniel Simoes]

Se você conseguir provar para o seu cliente, que o problema é o GAS ou o Warsaw... deixe ele que reclame com o suporte dos bancos...

Temos que fazer pressão nos bancos, pois esses programas são verdadeiros spyware 

[fabiofranzini]

Pois é @Daniel Simoes penso assim, inclusive se tive-se influencia($$$$) em um banco, também pensaria em até mudar de banco, pelo que parece alguns bancos estão resolvendo pelo uso de um aplicativo, no desktop.

Enquanto isto, nós como fornecedores de solução(Não apenas de software) temos que passar por estes aborrecimentos. 

Tive casos que, após um longo período, software instalado e sem nenhuma alteração a mais de um ano, vir a apresentar este tipo de problemas. Sabemos que Banco e Fornecedor do Plugin não vão dar a minima.

O cliente já esta ciente da causa, pois mostramos na pratica a ele, desinstalando o plugin e executando o software sem problemas. 

@Juliomar Marchetti alteramos de tudo no PC, a unica opção que traz efeito é a desinstalação do plugin em questão. 

 

OBS- Ainda não testei em todos os cenários, mas para um cliente em especifico consegui bons resultados inserindo a função abaixo, substituindo o Application.Terminate pela chamada mesma, indicando como parâmetro o nome do .exe.

function KillTask(ExeFileName: string): Integer;
const
 PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
         UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
         UpperCase(ExeFileName))) then
         Result := Integer(TerminateProcess(
                            OpenProcess(PROCESS_TERMINATE,
                                        BOOL(0),
                                        FProcessEntry32.th32ProcessID),
                                        0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;