Fórum Programa para Joystick #178294

unit UPrincipal;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, QCJoystick, StdCtrls, ExtCtrls, MMSystem; 
// O QCJoystick é um componente de terceiros.

type
 TForm1 = class(TForm)
   Joy: TQCJoystick;
   Timer1: TTimer;
   Label1: TLabel;
   Label2: TLabel;
   Label3: TLabel;
   txtjoy: TStaticText;
   txtbotao: TStaticText;
   txteixo: TStaticText;
   CheckBox1: TCheckBox;
   CheckBox2: TCheckBox;
   CheckBox3: TCheckBox;
   CheckBox4: TCheckBox;
   CheckBox5: TCheckBox;
   CheckBox6: TCheckBox;
   CheckBox7: TCheckBox;
   CheckBox8: TCheckBox;
   procedure FormCreate(Sender: TObject);
   Procedure LerJoy (var B1, B2, B3, B4, B5, B6, B7, B8: Boolean);
   procedure AtualizaJoy;
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AtualizaJoy;
var
 B1, B2, B3, B4, B5, B6, B7, B8 : Boolean;
begin
 B1 := True; B2 := True; B3 := True; B4 := True;
 B5 := True; B6 := True; B7 := True; B8 := True;
 LerJoy(B1,B2,B3,B4,B5,B6,B7,B8);
//Atualiza os checkbox conforme os botões forem precionados
 Checkbox1.Checked := B1;
 Checkbox2.Checked := B2;
 Checkbox3.Checked := B3;
 Checkbox4.Checked := B4;
 Checkbox5.Checked := B5;
 Checkbox6.Checked := B6;
 Checkbox7.Checked := B7;
 Checkbox8.Checked := B8;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 txtjoy.Caption := joy.JoystickName; // Recebe o nome do Joystick conectado no pc
 txtbotao.Caption := inttostr(joy.Buttons); // Quantidade de Botões do joy
 txteixo.Caption := inttostr(joy.Axes); // Quantidade de Eixos do Joy
end;

procedure TForm1.LerJoy(var B1, B2, B3, B4, B5, B6, B7, B8: Boolean);
var
 myjoy: TJoyInfoEx;
begin
//Verifica os botões que estão sendo precionados.
 B1 := (myjoy.wButtons and 1) > 0; 
 B2 := (myjoy.wButtons and 2) > 0;
 B3 := (myjoy.wButtons and 3) > 0;
 B4 := (myjoy.wButtons and 4) > 0;
 B5 := (myjoy.wButtons and 5) > 0;
 B6 := (myjoy.wButtons and 6) > 0;
 B7 := (myjoy.wButtons and 7) > 0;
 B8 := (myjoy.wButtons and 8) > 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 atualizajoy;
end;

end.