Различить вид регистра

[Anton931]

Есть программа консольная, так сказать записывает нажатия клавиш. Проблема в том что все символы не зависимо от того как были введены, заглавные или нет пишутся как заглавные (верхнего региста). Как отличить и сделать чтобы выводились так как они вводятся.

 procedure LoggingKey; 
 var 
 X:integer; 
 begin 
 for X:=65 to 90 do 
      begin 
      if GetAsyncKeyState(X)=-32767 then 
        Write(Chr(X)); 
      end; 
 end; 

 var 
 mesg:tmsg; 
 begin 
 SetTimer(0, 0, 1, @LoggingKey); 
 While GetMessage(Mesg,0,0,0) do 
     begin 
      TranslateMessage(Mesg); 
      DispatchMessage(Mesg); 
     end; 
 end.

P.S. Или если возможно предложить другие вариант, отловить нажатия. Отлавливаю лишь буквы англ. и цифры. Заморочки с раскладкой других языков не интересует. Главное чтобы регистр был правильный и без dll.

[min@y™]

А может дело не в бобине?

[Sibedir]

Это потому что код клавиши не зависит от регистра

Сообщение от unit Winapi.Windows

{ Virtual Keys, Standard Set }
{$EXTERNALSYM VK_LBUTTON}
VK_LBUTTON = vkLButton; {1}
...
{$EXTERNALSYM VK_SNAPSHOT}
VK_SNAPSHOT = vkSnapShot; {44}
{$EXTERNALSYM VK_INSERT}
VK_INSERT = vkInsert; {45}
{$EXTERNALSYM VK_DELETE}
VK_DELETE = vkDelete; {46}
{$EXTERNALSYM VK_HELP}
VK_HELP = vkHelp; {47}
{ VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
{ VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
{$EXTERNALSYM VK_LWIN}
VK_LWIN = vkLWin; {91}
{$EXTERNALSYM VK_RWIN}
VK_RWIN = vkRWin; {92}
...

Нужно самому проверять нажатие [Shift] и состояние [CapsLock].

[Stilet]

if GetAsyncKeyState(X)=-32767 then

А может лучше хук поставить клавиатурный? Оно то конечно и так логировать можно, но не оч. надежно...

[Anton931]

Откопал такой код, методом хука. но проблема осталась та же.

type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;
  _KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: PDWORD;
  end;
  TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;

const
  RPT_WPARAM_DATA = 'Keyboard message = %s ';
  RPT_LPARAM_DATA = 'scan code = %s [%d]';

var
  StrResult: String;


var
  Form1: TForm1;
  hHook: THandle;

implementation

{$R *.dfm}



function LowLevelKeyboardProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;
begin
  StrResult := '';
  if nCode = HC_ACTION then
    Result := CallNextHookEx(hHook, nCode, WParam, LParam);
  case WParam of
    WM_KEYDOWN: StrResult := Format(RPT_WPARAM_DATA, ['WM_KEYDOWN']);
    WM_KEYUP: StrResult := Format(RPT_WPARAM_DATA, ['WM_KEYUP']);
    WM_SYSKEYDOWN: StrResult := Format(RPT_WPARAM_DATA, ['WM_SYSKEYDOWN']);
    WM_SYSKEYUP: StrResult := Format(RPT_WPARAM_DATA, ['WM_SYSKEYUP']);
  end;
  StrResult := StrResult + Format(RPT_LPARAM_DATA, [Chr(PKbdDllHookStrukt(LParam)^.vkCode), PKbdDllHookStrukt(LParam)^.vkCode]);
  Form1.Memo1.Lines.Add(StrResult);
end;


procedure TForm1.FormCreate(Sender: TObject);
const
  WH_KEYBOARD_LL = 13;
begin
  hHook := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
  if hHook = 0 then RaiseLastOSError;
end;

end.

[Stilet]

Думаю твою проблему решит MapVirtualKeyEx
http://www.programmersforum.ru/showthread.php?t=24821
http://programmersforum.ru/showthrea...apVirtualKeyEx