Criar executável com botão para abrir gaveta

[João Bruno Nardon]

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

[Solivan]

favor me adicionar, [email protected], Skype: Solivan Noleto Milhomem

[FRANCISCO908]

olá amigo eu já fiz um EXECUTAVEL para abrir gavetas do Sistema "TagPlus" se precisar me adicione ai SKYP: FRANCISCOANDRADE908   ou E-mail: [email protected]

[João Bruno Nardon]

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 .

[jr bebidas distrbuidora]

a elgin tem um executavel que se comunica com a ecf e no meu caso funcionou. uso uma daruma  dr700 e gaveta elgin.https://mega.nz/#!A4J3yL5I!2bJVUFoAtjxVrRwp-C0qzW_Kj-pvKLJpfeLP_5VWXDg