AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

KeyHook, oder?!

Ein Thema von ghost007 · begonnen am 23. Dez 2006 · letzter Beitrag vom 24. Dez 2006
Antwort Antwort
Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#1

KeyHook, oder?!

  Alt 23. Dez 2006, 21:43
Hallo,
hab hier nen code schnippsel gefunden, der mit einem KeyHook events auslöset, wie unten z.B. WheelUp() und WheelDown().
Nur zum verständnis, sehe ich das richtig, das man die liste:
Delphi-Quellcode:
        174 : WheelDown();
        175 : WheelUp();
Weiterfühen könnte und für jeden buchstaben ein event ausführen lassen könnte?
Wenn ja, wie bekomme ich die "Codes" für andere tasten meiner tastatur?

CODE:
Delphi-Quellcode:
procedure TformMain.AppMessage(var Msg: TMsg; var Handled: Boolean);
var szKeyName: PChar;
  k: string;
begin

  with Msg do if (message=(WM_APP+666)) and ( wParam=13 ) then
  begin
      case Msg.lParam of
        174 : WheelDown();
        175 : WheelUp();
      end;
    Handled:=True;
  end;
end;
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: KeyHook, oder?!

  Alt 23. Dez 2006, 22:25
Könnte ja auch mittels .KeyPressed geschehen. Ggf .KeyPreview aktivieren
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#3

Re: KeyHook, oder?!

  Alt 23. Dez 2006, 22:38
ähhhm, ja ^^
kannste näher erläutern?
ich glaub deine funktionen gehen nicht systemweit,oder?

MfG - Ghost007
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: KeyHook, oder?!

  Alt 23. Dez 2006, 22:41
Zitat:
Ich glaub deine funktionen gehen nicht systemweit,oder?
Nein.
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#5

Re: KeyHook, oder?!

  Alt 23. Dez 2006, 22:44
hm, aber der code oben geht system weit, und nun will ich wissen ob ich den auf andere keys erweitern kann, als die keys '174' und '175' (das sind doch bezeichnungen für keys,oder?)

MfG - Ghost007
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat
Benutzerbild von ghost007
ghost007

Registriert seit: 31. Okt 2005
Ort: München
1.024 Beiträge
 
Delphi 7 Personal
 
#6

Re: KeyHook, oder?!

  Alt 24. Dez 2006, 01:24
hab hier noch was weiter oben in dem projekt gefunden:
Delphi-Quellcode:
// These are the system keycodes for the G15 multimedia keys
  G15_MediaKey_Previous : Integer = 177;
  G15_MediaKey_Next : Integer = 176;
  G15_MediaKey_Stop : Integer = 178;
  G15_MediaKey_PlayPause : Integer = 179;
  G15_MediaKey_VolumeUp : Integer = 175;
  G15_MediaKey_VolumeDown : Integer = 174;
  G15_MediaKey_MuteToggle : Integer = 173;
Gibt es solche werte auch für andere tasten?
bzw. gibts irgendwo ne liste für alle tasten?

MfG - Ghost007
Christian
Es gibt möglich Dinge und unmöglich Dinge.
Für unmögliche braucht man lediglich etwas länger.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: KeyHook, oder?!

  Alt 24. Dez 2006, 01:30
Moin Christian,

Zitat von ghost007:
Wenn ja, wie bekomme ich die "Codes" für andere tasten meiner tastatur?
da wirst Du wohl mal einen Blick in den Code der Hook-DLL werfen müssen, für welche Taste welche zurückgegeben wird, und wie die Tasten ausgelesen werden.
In der Delphi-Hilfe findest Du einige unter dem Titel virtuelle Tastencodes (ich hoffe mal das stimmt so, ich habe nur die englische Hilfe)
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Antwort Antwort


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 14:49 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz