Einzelnen Beitrag anzeigen

schwa226

Registriert seit: 4. Apr 2008
400 Beiträge
 
#7

Re: Simulierten Hotkey per WMHotKey abfangen?

  Alt 21. Apr 2008, 12:05
Danke! geht super!

Nun möchte ich das ganze noch dynamisch machen:

Code:
  TempRecord = record
    str1:     string;
    str2:     string;
    car1:     cardinal;
    car2:     cardinal;
    car3:     cardinal;
Code:
HandleHook : Array[1..2] of TempRecord =
    (
      (str1:'Test1'; str2:'test'; car1:VK_CONTROL; car2:VK_S; car3:0),
      (str1:'Test2'; str2:'test'; car1:VK_SHIFT; car2:VK_D; car3:0)
    );
Code:
    for i := 0 to High(HandleHook) - 1 do begin

      if (GetKeyState(HandleHook[i].car1)< 0) then // Cardinal 1
      begin
        if TPMsg(lParam)^.wParam = HandleHook[i].car2 then // Cardinal 2
        begin
            if TPMsg(lParam)^.message = WM_KEYDOWN then// Taste unten
            begin
              Messagebox(0, 'Example', 'H O O K', 0);
              Kill := True;
            end;
        end;
      end;
end;
Nun spricht aber der Hook nur auf den ersten Eintrag an, aber nicht auf den zweiten!?

Ich will einen Hook für Speziele Tastenkombinationen machen, die eben per z.B. Girder geschickt werden.

Dazu muss ich halt CTRL+E, CTRL+P, SHIFT+E usw extra abfangen können.

EDIT:

habe das "Problem" gefunden...

wenn i bei 0 zu zählen anfängt aber das Array erst bei 1 losgeht...
  Mit Zitat antworten Zitat