AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Prob mit Tastatur Hook

Ein Thema von wayne312 · begonnen am 18. Okt 2009 · letzter Beitrag vom 19. Okt 2009
Antwort Antwort
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#1

Prob mit Tastatur Hook

  Alt 18. Okt 2009, 17:51
Hey leute,

ich versuche mich momentan an den Windows API Hooks. Das hab ich auch alles soweit verstanden nur mein tastatur hook macht irgentwie ein paar probleme..
also hier ma der Code für mein HookProc :

Delphi-Quellcode:
function MyKeyboardProc(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
var
PKey : Integer;
begin
  Result:=CallNextHookEx(MyKeyboardHook,nCode,wParam,lParam);
  case nCode < 0 of
    True : exit;
    False :
      begin
        PKey:=wParam;
        case PKey of
          65 : List1.Append('a');
        end;
      end;
  end;
end;
Das funktioniert soweit auch ganz gut nur wenn ich jetz "a" drücke steht das dann gleich 4 mal in meiner List1 ....

Hab ich irgentwas falsch gemacht?

Danke
  Mit Zitat antworten Zitat
Benutzerbild von wicht
wicht

Registriert seit: 15. Jan 2006
Ort: Das schöne Enger nahe Bielefeld
809 Beiträge
 
Delphi XE Professional
 
#2

Re: Prob mit Tastatur Hook

  Alt 18. Okt 2009, 18:26
Geraten: wParam/lParam auswerten, weil die Funktion evtl. beim Drücken, Loslassen, sonstwas aufgerufen wird?
http://streamwriter.org

"I make hits. Not the public. I tell the DJ’s what to play. Understand?"
  Mit Zitat antworten Zitat
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#3

Re: Prob mit Tastatur Hook

  Alt 18. Okt 2009, 18:32
danke für die antwort,

und wie kann ich feststellen ob die taste grade gedrückt bzw. losgelassen wurde?
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.611 Beiträge
 
Delphi 2007 Enterprise
 
#4

Re: Prob mit Tastatur Hook

  Alt 18. Okt 2009, 18:56
Hier findest du eine komplette Aufschlüsselung der Parameter.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
wayne312

Registriert seit: 11. Jul 2009
27 Beiträge
 
#5

Re: Prob mit Tastatur Hook

  Alt 18. Okt 2009, 19:04
Danke für den Link!
  Mit Zitat antworten Zitat
Hobby-Programmierer

Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
 
Delphi XE Starter
 
#6

Re: Prob mit Tastatur Hook

  Alt 19. Okt 2009, 05:45
Versuch mal
Delphi-Quellcode:
function MyKeyboardProc(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
var
PKey : Integer;
begin
  Result:= CallNextHookEx(MyKeyboardHook,nCode,wParam,lParam);
  if nCode = HC_ACTION then
    case wParam of
      WM_KEYDOWN: begin
                    PKey:= wParam;
                    case PKey of
                      65 : List1.Append('a');
                    end;
                  end;
      WM_KEYUP : begin
                  end;
    end;
end;
[edit] schau dir bei Gelegenheit auch mal 'Ord' und 'Chr' in der OH an
Mario
'Lesen Sie schnell, denn nichts ist beständiger als der Wandel im Internet!'
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2020 by Daniel R. Wolf