Hook na klawiaturę

0
function Play(Code: integer; wParam, lParam: Longint): Longint; stdcall;
begin
case Code of
HC_ACTION: begin
MessageBuffer := PEventMsg(lParam)^;
if MessageBuffer.message = wm_KeyDown then
begin
Form1.Memo1.Text := Form1.Memo1.Text + chr(MessageBuffer.paraml);
Result := 0;
end;
end;

else begin
Result := CallNextHookEx(Hook, Code, wParam, lParam);
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Hook := SetWindowsHookEx(wh_journalrecord, play, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnHookWindowsHookEx(Hook);
end;

Witam
Jak zrobić żeby odróżniało małe litery od dużych?

pozdro

0

Jest w downloadzie 4p komponent do przechwytywania klaw. nazywa sie chyba KeySpyXP...

0

wiem ale nie mogę go do końca rozkminic. Byłbym wdzięczny jak by ktoś napisał kawałek kodu albo skopiował z jakiegoś źródła odpowiedzialny za odróżnianie małych i dużych liter.

pozdro

nikt nie jest w stanie pomóc?

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0