-
Total de ítens
2 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que João Bruno Nardon postou
-
Boa Tarde, Agradeço a todos que me ajudaram, más consegui criar o botão pesquisando na internet antes de vocês responderem. Agora tenho um outra dúvida, já tentei vários códigos más não consigo uma forma de fazer uma Hotkey que quando eu aperte faça apertar o botão mesmo o executável estando minimizado ou fora de foco . Segue meu código: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Button2: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; iretorno:Integer; iestado:integer; // Funções de Autenticação e Gaveta de Dinheiro function Bematech_FI_Autenticacao:Integer; StdCall; External 'BEMAFI32.DLL' Name 'Bematech_FI_Autenticacao'; function Bematech_FI_ProgramaCaracterAutenticacao( Parametros: String ): Integer; StdCall; External 'BEMAFI32.DLL'; function Bematech_FI_AcionaGaveta:Integer; StdCall; External 'BEMAFI32.DLL' Name 'Bematech_FI_AcionaGaveta'; function Bematech_FI_VerificaEstadoGaveta( Var EstadoGaveta: Integer ): Integer; StdCall; External 'BEMAFI32.DLL'; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin //VERIFICA CONDIÇÃO DA GAVETA iRetorno := Bematech_FI_VerificaEstadoGaveta( iEstado ); case iRetorno of 0:label3.caption :='Erro de comunicação.Entre em contato: [email protected]'; 1:label3.caption :='Gaveta Aberta.Entre em contato: [email protected]'; 2:label3.caption :='Gaveta Fechada.Entre em contato: [email protected]'; -1:label3.caption :='Erro de execução da função.Entre em contato: [email protected]'; -4:label3.caption :='O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.Entre em contato: [email protected]'; -5:label3.caption :='Erro ao abrir a porta de comunicação.Entre em contato: [email protected]'; -8:label3.caption :='Erro ao criar ou gravar no arquivo STATUS.TXT ou RETORNO.TXT.Entre em contato: [email protected]'; -27:label3.caption :='Status da impressora diferente de 6,0,0 (ACK, ST1 e ST2).Entre em contato: [email protected]'; end; end; procedure TForm1.Button1Click(Sender: TObject); begin // Abre a gaveta iRetorno := Bematech_FI_AcionaGaveta(); end; end. No caso queria que acionasse o botão .
-
Criar executável com botão para abrir gaveta
um tópico no fórum postou João Bruno Nardon Object Pascal - Delphi & Lazarus
Boa Noite, Sou leigo em programação, e queria saber se alguém me ajuda a criar um executável simples com o um botão abrir gaveta. Atualmente temos uma Bematech mp 2100 fiscal e uma gaveta gd-46 da Bematech. Tenho o Delphi aqui instalado, ja tentei seguir muitos códigos ai na internet mais sempre tenho erro