Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Заставить лампочки моргать на клаве ?

Автор: Trotter 18.12.2006, 00:13

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Procedure SetState(key: Integer; Value: Boolean);
var
 KeyState:TKeyboardState;
 begin
GetKeyboardState(KeyState);
KeyState[key] := Integer(Value);
SetKeyboardState(KeyState) ;
end;
begin
Timer1.Tag := (Timer1.Tag + 1) mod 4;
SetState(VK_NUMLOCK, Timer1.Tag = 1);
SetState(VK_SCROLL, Timer1.Tag = 2);
SetState(VK_CAPITAL, Timer1.Tag = 3);
end;



end.

может я кудато неправельно чёто пешу ? smile

Автор: jaAlex 18.12.2006, 00:55

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event (VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_SCROLL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event (VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

  keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event (VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

Могу предложить так. Если не подходит - экспериментируй. Можно сделать, чтобы мигало последовательно, т.е. Num->Caps->Scroll. Я дал тебе пример, остальное пробуй сделать сам.

Автор: SlaUr 18.12.2006, 13:25

Код


procedure Scrool(up:boolean);begin if up then KS[145] :=  1 else KS[145] := 0;SetKeyboardState(KS);end;
procedure num(up:boolean);begin if up then KS[144] :=  1 else KS[144] := 0;SetKeyboardState(KS);end;
procedure caps(up:boolean);begin if up then KS[020] :=  1 else KS[020] := 0;SetKeyboardState(KS);end;

Добавленно 19.12.2006

Sorry ,забыл, это уже не работает в XP

Автор: Snowy 18.12.2006, 13:30

FAQ: http://vingrad.ru/DELPHI-DLP-000569