Global Hook (CharToByte)

[Federal]

Вот полдня гугл шарю не могу найти библиотеку или материал по реализации для глобального хука чтоб вместо 'S F G H J K L' писались коды '54 55 56 57 58 59'...

[evg_m]

format('%x',[ord('S')])

inttohex(ord('F'))

[Пепел Феникса]

CharToByte=ord
я думаю вам нужны ScanCodes
это перехват сообщения WM_KEYDOWN/UP
(один из параметров нужный вам, но присмотритесь и ко второму может и там что нужное имеется)

[Federal]

Вот она глобал библиотека. И честно говоря я механизм её так и не разобрал(
Каким образом KEY присваивается значение нажатой клавиши?
Чё вообще там происходит???

Меня смущает эта строка GetKeyNameText(lParam,key,SizeOf(ke y));
ведь это она преобразовывает Key в символ

Messages,
Sysutils;

var
myHook: HHook = 0;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
var
f: text;
key: array [0..16] of Char;
begin
if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
begin
Assign(f,'D:\log.txt');
if FileExists('D:\log.txt') then
Append(f) else Rewrite(f);
GetKeyNameText(lParam,key,SizeOf(ke y));
Writeln(f,key);
CloseFile(f);
result:=CallNextHookEx(myHook,Code, wParam,lParam);
end;
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
if Hook then
begin
if myHook=0 then
myHook:=SetWindowsHookEx(WH_KEYBOAR D,@MsgProc,HInstance,0);
end
else
begin
if myHook<>0 then
UnHookWindowsHookEx(myHook);
myHook:=0;
end;
end;

exports setHook name 'SetHook';

begin
end.

[GunSmoker]

Чем она вас смущает?