Ich finde nicht die Zeit alles zu erklären, geht:
Du benötigst JWAWinUser
ladbar unter
http://sourceforge.net/projects/jedi-apilib/files/
ein Fetzen Code aus einer unserer Anwendungen...
hoffe Du kommst klar
Delphi-Quellcode:
procedure TMyForm.RawInputMessage(var Message: TMessage);
var
dwSize : UINT;
raw : RAWINPUT;
buffer: array[0..255] of char;
buffersize:dword;
result:dword;
begin
dwSize := sizeof(RAWINPUT);
GetRawInputData(Message.lParam, RID_INPUT, @raw, dwSize, sizeof(RAWINPUTHEADER));
if (raw.header.dwType = RIM_TYPEKEYBOARD) then begin
buffersize := 256;
result := GetRawInputDeviceInfo(raw.header.hDevice, RIDI_DEVICENAME, @buffer, buffersize);
if (result > 0) and (FScannerKey = buffer) then
CaptureAmountForArticle(Chr(raw.keyboard.VKey));
end;
end;