Ĺadny brzuch
var
Hook:Integer;
MessageBuffer:TEventMsg;
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;
ta funkcja wylapuje wcisniete klawisze, probowalem ja przerobic i pisalem cos takiego
if MessageBuffer.message=vk_a then begin Form1.Memo1.Text:=Form1.Memo1.Text+'a'; Result:=0;
ale wyslakuje mi blad vk_a zamienialemna $41 tym razem sie kompiluje ale program nie lapie klawisza
1. Nie widze przedrostka w temacie! Przeczytaj regulamin
2. http://rtfm.killfile.pl/
3. Przeanalizowałeś w ogóle ten kod? Bo widze że nie bardzo skoro zmieniłeś wm_KeyDown na vk_a...
Użytkownik Ali240 edytował ten post 10 lipiec 2007, 13:21
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
ta funkcja wylapuje wcisniete klawisze, probowalem ja przerobic i pisalem cos takiego
if MessageBuffer.message=vk_a then begin Form1.Memo1.Text:=Form1.Memo1.Text+'a'; Result:=0;
ale wyslakuje mi blad vk_a zamienialemna $41 tym razem sie kompiluje ale program nie lapie klawisza
1. Nie widze przedrostka w temacie! Przeczytaj regulamin
2. http://rtfm.killfile.pl/
3. Przeanalizowałeś w ogóle ten kod? Bo widze że nie bardzo skoro zmieniłeś wm_KeyDown na vk_a...
Użytkownik Ali240 edytował ten post 10 lipiec 2007, 13:21