Como Não Mostrar as Mensagens do Windows?

Delphi

30/10/2004

Desenvolvi um pequeno sistema de backup automático que faz a checagem (através de tempo) dos tamanhos dos arquivos e caso sejam diferentes ele efetua a cópia para uma pasta de backup.
O programa roda a parte do sistema principal para não utilizar muito recurso, porém algumas funções como cópia ou mesmo conexão com a internet quando não funcionam fazem o windows mostrar uma janela de erro do ocorrido do tipo ´Não foi possível copiar arquivo ´XXX.AAA´´
Este tipo de janela é modal e isto faz o programa parar até alguem fechá-la.
Como poderia eu fazer o Windows não mostrar estes tipos de erros ?


Os1000r

Os1000r

Curtidas 0

Respostas

Tatuweb

Tatuweb

30/10/2004

Tente usar a função abaixo. Dependendo do tipo de erro pode ser que você não consiga impedir o Windows de exibir a mensagem.

var
  wError : Word;
begin
  wError := SetErrorMode (SEM_FAILCRITICALERRORS);
  try
    // Procedure a executar com possibilidade de erro 
  finally
    SetErrorMode (wError);
  end;
end;



GOSTEI 0
Os1000r

Os1000r

30/10/2004

Só mais um porém... Em qual lugar do programa eu preciso colocar essa função ?? Na inicialização, em cada procedure que estiver ocorrendo o erro ??


GOSTEI 0
Tatuweb

Tatuweb

30/10/2004

Em qualquer lugar que pode dar erro. Por exemplo: no OnClick de um botão vc tem o código para copiar um arquivo. Então vc coloca o código acima e entre o try e o finnaly todo o código que faz a cópia.

Também pode, se quiser, colocar em cima de uma rotina específica.


GOSTEI 0
POSTAR