Клавиатура

ASCII код для PrintScreen

2017-10-02T04:16:27+07:00

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

procedure AppIdle(Sender: TObject; var Done: Boolean);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);

begin

if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then

Form1.Caption := 'PrintScreen ia?aoa !';

Done := True;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnIdle := AppIdle;

end;

end.

Подробнее...

Включение и выключение клавиатуры

2017-10-02T04:21:53+07:00

Code:

// используемые переменные

var

Dummy: integer = 0;

OldKbHook: HHook = 0;

implementation

function KbHook(code: Integer; wparam: Word; lparam: LongInt): LongInt; stdcall;

begin

if code < 0 then

Result := CallNextHookEx(oldKbHook, code, wparam, lparam)

else

Result := 1;

end;

// включение клавы

procedure TForm1.KeyBoardOn(Sender: TObject);

begin

if OldKbHook <> 0 then

begin

UnHookWindowshookEx(OldKbHook);

OldKbHook := 0;

end;

SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, 0, 0);

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

end;

// выключение клавы

procedure TForm1.KeyBoardOff(Sender: TObject);

begin

SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @Dummy, 0);

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @Dummy, 0);

OldKbHook := SetWindowsHookEx(WH_KEYBOARD, @KbHook, HInstance, 0);

end;

Подробнее...

Выставляем горячие клавиши для Delphi приложения

2017-10-02T04:08:36+07:00

Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9 ?

Подробнее...

Если нажато более 2х клавиш одновременно...

2017-10-02T04:12:44+07:00

Я хотел бы обнаружить более 2 клавиш, нажимая в форме. Например, я хотел бы знать, если пользователь нажал время. В onkeydown должны, кажется, только чек на одну или две клавиши максимум, но верном вы можете определить, какие клавиши нажаты.

Подробнее...

Заставить мерцать индикаторы клавиш CapsLock, NumLock и ScrollLock

2017-10-01T22:59:29+07:00

Представьте себе такую ситуацию: глупый пользователь включает тачку, а тут... светомузыка, индикаторы состояния клавиш то включатся, то погаснут... а если ещё каждую секунду проходит 500 тактов!!! Шутка, конечно злостная, но воспроизводится весьма легко.

Всё основывается на следующем коде:

Подробнее...

Имитация Tab

2017-10-01T22:45:54+07:00

Code:

SelectNext(screen.ActiveControl, True, True);

Разместите приведенный код в обработчике одного из собитий. SelectNext - защищенный метод TWinControl со следующим прототипом:

Подробнее...

Как выполнять другую команду по нажатию на кнопку, если зажата клавиша Shift

2017-10-02T20:47:51+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

if GetKeyState(VK_SHIFT) < 0 then

ShowMessage('Кнопка Shift нажата')

else

ShowMessage('Обычное нажатие кнопки');

end;

Как глобально перехватить нажатие кнопки PrintScreen?

2017-10-01T23:07:19+07:00

В примере для глобального перехвата нажатия клавиши print screen регистрируется горячая клавиша (hot key).

Подробнее...

Как запретить Ctrl-Alt-Del?

2017-10-02T03:50:48+07:00

Code:

var

i : integer;

begin

i := 0;

{запрещаем Ctrl-Alt-Del}

SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @i, 0);

end.

// необходим unit WinProcs

// для Alt-Tab: SPI_SETFASTTASKSWITCH

Как заставить дополнительную клавиатуру всегда работать в режиме цифр?

2017-10-02T03:59:29+07:00

Для этого необходимо написать процедуру-обработчик для Application.OnMessage:

Подробнее...

Как заставить кнопку Enter работать наподобие Tab?

2017-10-01T22:49:18+07:00

Как-то бухгалтер, который пользовался моей программой, заявил, что ему не удобно перескакивать пустые поля в форме кнопкой Tab, и что намного удобнее это делать обычным Enter-ом. Предлагаю посмотреть, как я решил эту проблемму.

Совместимость: Все версии Delphi. Автор: Khaled Shagrouni

Пример обработчика события:

Подробнее...

Как конвертировать виртуальную клавишу в ASCII код?

2017-10-01T23:11:55+07:00

Получаем символ, соответствующий виртуальной клавише:

Code:

function GetCharFromVKey(vkey: Word): string;

var

keystate: TKeyboardState;

retcode: Integer;

begin

Win32Check(GetKeyboardState(keystate));

SetLength(Result, 2);

retcode := ToAscii(vkey,

MapVirtualKey(vkey, 0),

keystate, @Result[1],

0);

case retcode of

0: Result := '';

1: SetLength(Result, 1);

2: ;

else

Result := '';

end;

{

Использование:

procedure TForm1.Edit1KeyDown

(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

ShowMessage(GetCharFromVKey(Key));

end;

}

Как определить нажаты ли клавиши Shift, Alt или Ctrl

2017-10-02T20:49:24+07:00

В приведенном примере показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример также содержит функции проверки состояния клавиш Alt, Ctrl.

Подробнее...

Как определить, нажал ли пользователь клавишу PrintScreen?

2017-10-01T23:06:00+07:00

В событиях, обрабатывающих нажатия клавишь в TForm, клавиша PrintScreen не обрабатывается. Однако проблему можно решить при помощи 'GetAsyncKeyState'. Функция GetAsyncKeyState определяет, когда клавиша была нажата или отпущена каждый раз, когда функция вызвана, а так же, когда клавиша была нажата после предыдущего вызова GetAsyncKeyState.

Событие OnIdle в TApplication как раз подходит для вызова этой API функции:

Подробнее...

Как определить, нажата ли в данный момент клавиша Shift, Ctrl или Alt?

2017-10-01T23:00:42+07:00

Следующий пример демонстрирует проверку состояния клавиши Shift (нажата она или нет), в то время когда выделен пункт меню. А так же в примере содержатся функции, позволяющие определить состояние клавишь Alt, Ctrl, и shift:

Подробнее...

Как отключить комбинацию Alt+Tab

2017-10-01T22:43:43+07:00

Если вы хотите зло подшутить над глупым пользователем, а он оказывается не такой уж и глупый, и усиленно пытается переключиться на другую программу, вы можете круто его обломать:

Подробнее...

Как отличить нажат правый или левый CTRL?

2017-10-01T22:40:41+07:00

Для того, чтобы отличить нажат левый или правый Ctrl, нужно перехватить событие WM_KEYDOWN. В зависимости от состояния 24-ого бита параметра LParam нажата правая или левая клавиша.

Подробнее...

Как отличить нажат правый или левый SHIFT?

2017-10-01T05:34:54+07:00

Code:

if ((Word(GetKeyState(VK_LSHIFT)) and $8000) <> 0) then

begin

end;

if ((Word(GetKeyState(VK_RSHIFT)) and $8000) <> 0) then

begin

end;

Подробнее...

Как отловить изменение раскладки клавиатуры?

2017-10-02T04:00:31+07:00

Нужно ловить сообщение WM_INPUTLANGCHANGEREQUEST

Как отловить нажатия клавиш для всех процессов в системе

2017-10-02T04:15:11+07:00

Setup.bat

Code:

@echo off

copy HookAgnt.dll %windir%\system

copy kbdhook.exe %windir%\system

start HookAgnt.reg

Подробнее...

Как отловить правый Enter (NumPad)?

2017-10-02T03:58:41+07:00

Для этого можно воспользоваться функцией GetHeapStatus:

Подробнее...

Как очистить буфер клавиатуры?

2017-10-02T04:07:07+07:00

Code:

procedure EmptyKeyQueue;

var

msg: TMsg;

begin

while PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD) do

;

end;

begin

EmptyKeyQueue;

end.

Как перехватить нажатие TAB?

2017-10-01T22:42:25+07:00

Code:

private

{©Drkb v.3, ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

Procedure CMDialogKey(Var Msg: TWMKey); message CM_DIALOGKEY;

.....

procedure TForm1.CMDialogKey(var Msg: TWMKey);

begin

//здесь Ваш код

Msg.Result := 0

end;

Подробнее...

Как перехватить нажатия функциональных клавиш и стрелок?

2017-10-02T04:05:08+07:00

Проверяйте значение переменной key на равенство VK_RIGHT, VK_LEFT, VK_F1 и т.д. на событии KeyDown формы

Автор: Arx

Подробнее...

Как послать нажатие клавиши в какое-нибудь окно?

2017-10-01T22:52:49+07:00

Эта процедура посылает сообщение о нажатии клавиши.

Подробнее...

Как програмно имитировать нажатие Ctrl-Esc?

2017-10-01T22:53:45+07:00

Code:

SendMessage(Handle,WM_SYSCOMMAND,SC_TASKLIST,0);

Автор ответа: TwoK

Как програмно переключить раскладку клавиатуры?

2017-10-01T23:30:12+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);//На русский

var

Layout: array[0.. KL_NAMELENGTH] of char;

begin

LoadKeyboardLayout( StrCopy(Layout,'00000419'),KLF_ACTIVATE);

end;

procedure TForm1.Button2Click(Sender: TObject);//На английский

var

Layout: array[0.. KL_NAMELENGTH] of char;

begin

LoadKeyboardLayout(StrCopy(Layout,'00000409'),KLF_ACTIVATE);

end;

Как програмно переключить состояние клавиш Num Lock, Caps Lock, Scroll Lock?

2017-10-01T22:57:27+07:00

Code:

VAR

KS: TKeyboardState;

begin

GetKeyboardState(KS);

KS[020] := KS[020] XOR 1; //Caps Lock

KS[144] := KS[144] XOR 1; //Num Lock

KS[145] := KS[145] XOR 1; //Scroll Lock

SetKeyboardState(KS);

end;

Подробнее...

Как сделать клавишу-акселератор (keyboard shortcut) компонету, у которого нет заголовка

2017-10-02T20:50:55+07:00

Возможный вариант - присвоить ссылку на этот компонент свойству FocusControl TLabel'а. В примере используется невидимый Label для создания "быстрой" клавиши (Alt+M) компонента Memo. Чтобы использовать пример, разместите на форме компонент TMemo, Label и несколько других компонентов, которые могут принимать фокус ввода. Запустите программу, переведите фокус ввода куда-нибудь вне Memo и нажмите Alt+M - фокус ввода вернется в Memo.

Подробнее...

Как скрыть программу от Alt - Tab

2017-10-01T22:44:52+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowWindow(Handle, SW_HIDE);

ShowWindow(Application.Handle, SW_HIDE);

end;

Подробнее...

Как узнать о нажатии NON-MENU клавиши в момент когда меню показано

2017-10-02T20:51:40+07:00

Создайте обработчик сообщения WM_MENUCHAR.

Подробнее...

Как узнать состояние клавиши CAPS LOCK?

2017-10-01T22:58:39+07:00

Code:

function IsCapsLockOn : Boolean;

begin

Result := 0 <> (GetKeyState(VK_CAPITAL) and $01);

end;

Подробнее...

Какая клавиша нажата при загрузке приложения

2017-10-02T20:45:50+07:00

Code:

program Project1;

uses

Windows,

Forms,

Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin

if GetKeyState(vk_F8) < 1 then

MessageBox(0, 'F8 was pressed during startup', 'MyApp', mb_ok);

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Коды виртуальных клавиш

2017-10-02T20:52:23+07:00

Code:

vk_LButton = $01;

vk_RButton = $02;

vk_Cancel = $03;

vk_MButton = $04; { генерятся только системой вместе с L & RBUTTON }

vk_Back = $08;

vk_Tab = $09;

vk_Clear = $0C;

vk_Return = $0D;

vk_Shift = $10;

vk_Control = $11;

vk_Menu = $12;

vk_Pause = $13;

vk_Capital = $14;

vk_Escape = $1B;

vk_Space = $20;

vk_Prior = $21;

vk_Next = $22;

vk_End = $23;

vk_Home = $24;

vk_Left = $25;

vk_Up = $26;

vk_Right = $27;

vk_Down = $28;

vk_Select = $29;

vk_Print = $2A;

vk_Execute = $2B;

vk_SnapShot = $2C;

{ vk_Copy = $2C не используется клавиатурой }

vk_Insert = $2D;

vk_Delete = $2E;

vk_Help = $2F;

{ vk_A - vk_Z такие же, как и их ASCII-эквиваленты: 'A' - 'Z' }

{ vk_0 - vk_9 такие же, как и их ASCII-эквиваленты: '0' - '9' }

vk_NumPad0 = $60;

vk_NumPad1 = $61;

vk_NumPad2 = $62;

vk_NumPad3 = $63;

vk_NumPad4 = $64;

vk_NumPad5 = $65;

vk_NumPad6 = $66;

vk_NumPad7 = $67;

vk_NumPad8 = $68;

vk_NumPad9 = $69;

vk_Multiply = $6A;

vk_Add = $6B;

vk_Separator = $6C;

vk_Subtract = $6D;

vk_Decimal = $6E;

vk_Divide = $6F;

vk_F1 = $70;

vk_F2 = $71;

vk_F3 = $72;

vk_F4 = $73;

vk_F5 = $74;

vk_F6 = $75;

vk_F7 = $76;

vk_F8 = $77;

vk_F9 = $78;

vk_F10 = $79;

vk_F11 = $7A;

vk_F12 = $7B;

vk_F13 = $7C;

vk_F14 = $7D;

vk_F15 = $7E;

vk_F16 = $7F;

vk_F17 = $80;

vk_F18 = $81;

vk_F19 = $82;

vk_F20 = $83;

vk_F21 = $84;

vk_F22 = $85;

vk_F23 = $86;

vk_F24 = $87;

vk_NumLock = $90;

vk_Scroll = $91;

Определение нажатия клавиши во время загрузки приложения?

2017-10-02T04:17:56+07:00

Используйту WinAPI функцию GetKeyState() для определения нажатия клавиши в тексте проекта. Для того чтобы увидеть текст файла проекта в главном меню Delphi 3 выберите "View">>"ProjectSource" в Delphi 4 "Project">>"View Source".

Подробнее...

Переключение раскладки клавиатуры для приложения

2017-10-02T04:20:01+07:00

Пример использования:

Code:

ChangeLayout(LANG_RUSSIAN);

ChangeLayout(LANG_ENGLISH);

Подробнее...

Перехватить нажатие клавиши на клавиатуре

2017-10-02T20:53:00+07:00

Для того, чтобы перехватить нажатие какой-то клавиши на клавиатуре можно использовать зарегистрированную "горячую клавишу" (HotKey). Эта программа пикает при нажатии "1".

Подробнее...

Получение типа клавиатуры

2017-10-02T04:06:23+07:00

Code:

function GettingKeybType: string;

var

Flag: integer;

begin

Flag:=0;

Case GetKeyboardType(Flag) of

1: Result:='IBM PC/XT or compatible (83-key) keyboard';

2: Result:='Olivetti "ICO" (102-key) keyboard';

3: Result:='IBM PC/AT (84-key) or similar keyboard';

4: Result:='IBM enhanced (101- or 102-key) keyboard';

5: Result:='Nokia 1050 and similar keyboards';

6: Result:='Nokia 9140 and similar keyboards';

7: Result:='Japanese keyboard';

end;

Подробнее...

Программно нажимаем Print Screen

2017-10-01T23:09:50+07:00

Приведённая здесь функция делает копию изображения экрана и сохраняет её в буфере обмена (Clipboard). Так же необходимо включить в Ваш проект файл ClipBrd.pas.

Подробнее...

Програмная эмуляция нажатия клавиш

2017-10-02T04:33:15+07:00

Использование клавиш для управления компонентами

Автор: Robert Wittig

Так, если у меня есть своего рода кнопка (check, radio, speed и т.п.), то почему я не могу с помощью клавиш курсора управлять ею?

Подробнее...

Работа с цифровой клавиатурой при выключенном NumLock

2017-10-02T20:28:47+07:00

Code:

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);

var

ccode: Word;

begin

case Msg.Message of

WM_KEYDOWN, WM_KEYUP:

begin

if (GetKeyState(VK_NUMLOCK) >= 0) {NumLock not active} and

((Msg.lParam and $1000000) = 0) {not a gray key} then

begin

ccode := 0;

case Msg.wParam of

VK_HOME: ccode := VK_NUMPAD7;

VK_UP: ccode := VK_NUMPAD8;

VK_PRIOR: ccode := VK_NUMPAD9;

VK_LEFT: ccode := VK_NUMPAD4;

VK_CLEAR: ccode := VK_NUMPAD5;

VK_RIGHT: ccode := VK_NUMPAD6;

VK_END: ccode := VK_NUMPAD1;

VK_DOWN: ccode := VK_NUMPAD2;

VK_NEXT: ccode := VK_NUMPAD3;

VK_INSERT: ccode := VK_NUMPAD0;

VK_DELETE: ccode := VK_DECIMAL;

end; {Case}

if ccode <> 0 then

Msg.wParam := ccode;

end; {If}

end; {Case Msg.Message}

end; {Case}

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnMessage := AppOnMessage;

end;

Регистрируем горячие клавиши

2017-10-01T23:03:48+07:00

Пример демонстрирует установку горячей клавиши CTRL-F7:

Подробнее...

Симфония на клавиатуре(статья)

2017-10-01T23:20:25+07:00

Перевод одноимённой статьи с сайта delphi.about.com )

Начиная с самого рассвета компьютерной промышленности, клавиатура была первичным устройством ввода информации, и вероятнее всего сохранит свою позицию ещё долгое время.

События клавиатуры, наряду с событиями мыши, являются основными элементами взаимодействия пользователя с программой. В данной статье пойдёт речь о трёх событиях, которые позволяют отлавливать нажатия клавиш в приложении Delphi: OnKeyDown, OnKeyUp и OnKeyPress.

Подробнее...

Состояние кнопки insert

2017-10-02T04:07:48+07:00

Code:

function InsertOn: Boolean;

begin

{©Drkb v.3}

Result:=LowOrderBitSet(GetKeyState(VK_INSERT));

end;