1

Como executar um aplicativo com o ShellExecute e impedir que o Windows emita o "Aviso de Segurança"?

Há algum parâmetro que possa ser enviado para evitar o aviso?
Já tentei aplicar alguns em pesquisas que fiz na web porém nenhum se mostrou satisfatório.

1 Resposta 1

2

Sim. E você terá que usar a função ShellExecuteEx.

Você pode desativar temporariamente a variável de ambiente SEE_MASK_NOZONECHECKS:

Do not perform a zone check. This flag allows ShellExecuteEx to bypass zone checking put into place by IAttachmentExecute.

Para usá-la, faça assim:

Uses
  ShellApi;
//...

function executarArquivo(const arquivo: string): LongBool;
Var
  SE: TShellExecuteInfo;
begin
  SE.cbSize := SizeOf(SE);
  SE.fMask := SEE_MASK_NOZONECHECKS;
  SE.lpFile := pchar(arquivo);
  SE.nShow := SW_SHOWNORMAL;
  //SE.lpVerb := 'runas'; // Para executar o programa como admin

  Result := ShellExecuteEx(@SE);
end;
1
  • Perfeito amigo!! Muito obrigado.
    – Andrey
    Commented 8/08/2016 às 12:42

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .