Witam

Mam taki problem z odczytaniem podstawowych klawiszy klawiatury sobie poradziłam jednak jak przechwycic wciśniętą polska litere np ż robia mi sie tylko kreski. Mam takie cos

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;

dzieki :-)