Tutorial - Como Burla EAC.

Atendendo um Pedido de um emo Chamado Mutano.

• 1º Passo

Criar uma Nova Aplicação:

Inserindo os Componentes a serem Usados

• Insira um MainMenu

Deverá ficar da mesma forma que a imagem exibida.

• Insira um Coolbar >> Contido na Paleta Win32 do delphi.

Troque a Propriedade:

Height

46

O Nosso Form ficará dessa Forma:

• Agora vamos Inserir um Panel dentro do Coolbar recém criado.

Troque as Seguintes Propriedades do Panel e tire o Caption do mesmo.

BevelOuter	bvNone
Height	40

• Insira dois Botões dentro do Panel e os configure, como nos mostra a figura baixo:

• Insira o Componente OpenDialog, que é uma caixa de diálogo para abrir arquivos.

• Insira o Componente XPManifest que se encontra na paleta Win32
  Atenção: Componente Visual, serve para que sua aplicação fique com efeitos visuais dos botões do Windows XP se a mesma estiver rodando nele. (Componente Opcional).

Inserindo o Componente TWebBrowser

• Esse é o principal componente de nossa aplicação, apartir dele abriremos os documentos do Word e usaremos algumas funções para que Possamos configurar a página e imprimirmos o documento do Word aberto, apartir de nossa aplicação.

• Não iremos aprofundar bastante nossos conhecimentos neste artigo sobre o componente EAC, ele que é um componente muito poderoso e fácil de trabalhar, para quem não sabe este componente é muito usado para se criar Browser's (Navegadores de Internet) entre outras muitas Utilidades.

• Para inseri-lo teremos que fazer o seguinte:

Selecionar o componente como nos mostra a figura e inseri-lo no Form.

• Troque a seguinte propriedade do EAC:

Align

alClient

Configurando o Componente OpenDialog1

• Selecione o componente OpenDialog1 vá até a propriedade Filter do
  mesmo e abra a seguinte caixa de diálogo:

Faça como nos mostra a figura acima, ou seja aplicamos um filtro ao OpenDialog1 para que ele só filtre arquivos do Word.

Botão Abrir

• Vamos até o evento OnClick do menu Abrir ... criado
  no início do curso, e iremos inserir a seguinte linha de código:

Insira as Seguintes Funções

WBPausesystemPrint= Pausa o sistema de SS's do EAC.
WBIpRelease= É o IP da onde vai dar PauseBreak.

Evento NavigateComplete2 do WebBrowser

•  linha de Código:

Configuracao do Programa.

• Neste evento chamaremos a função WBConfigurarPagina, para que seja aberto a caixa de Diálogo Configurar Página, então vá até o evento Onclick, e digite o seguinte código:

Evento Onclick do Botão "Imprimir"

• Neste evento chamaremos a função WBImprimir, para que seja aberto a caixa de Diálogo para Impressão do documento, então vá até o evento Onclick, e digiteo seguinte código:

Agora para por o IP para poder da um PauseBreak.

• Nossa Aplicação ficará dessa forma depois de pronta:

Nisso adicione WBPausesystemPrint ("/PauseBreak")

WBIpRelease "(IPAQUI;)"

abort;

end;

end;

So isso seu emo.