Capslock mit SetKeyState und Status prüfen

[Codix32]

Wenn ich mit SetKeyState die Taste Capslock simuliere kann ich mit folgender Funktion nicht prüfen, ob Capslock an oder aus ist, warum?

Delphi-Quellcode:

procedure TForm1.SetKeyState(const ACode: Integer; Value: Boolean);
var
 KeyState: TKeyboardState;
begin
// ZeroMemory(Pointer(@KeyState), SizeOf(KeyState));
 GetKeyboardState(KeyState);
 if (Byte(Ord(Value)) <> KeyState[ACode]) then
 begin
 Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY, 0);
 Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
 KeyState[ACode] := Ord(Value);
 SetKeyboardState(KeyState);
 end;
end;
...
...

function TForm1.Capslock_anoderaus:boolean;
var
  KeyboardState: TKeyboardState;
begin
  GetKeyboardState(KeyboardState);
  if KeyboardState[VK_CAPITAL] = 1 then Result:=True
  else
    Result:=False;
end;
...
...
procedure TForm1.Button2Click(Sender: TObject);
begin
if Capslock_anoderaus = true then Label1.caption:='LED des Capslock an der Tastatur an'
 else
 Label1.caption:='LED des Capslock an der Tastatur aus';
end;

Capslock_anoderaus funktioniert, wenn ich die Taste wirklich drücke, wenn ich sie mit SetKeystate an oder aus mache, funktioniert die Capslock_anoderaus nicht.

[Luckie]

Ich rate mal, weil ich mich damit nicht auskenne:

Delphi-Quellcode:

Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY, 0);
 Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Du lässt sie los, aber du drückst sie irgednwie nicht, oder sehe ich das falsch?

[Codix32]

Zitat von Luckie:

Ich rate mal, weil ich mich damit nicht auskenne:

Delphi-Quellcode:

Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY, 0);
 Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Du lässt sie los, aber du drückst sie irgednwie nicht, oder sehe ich das falsch?

Ich denke mit dem 'Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY, 0);' drückt man die Taste
und mit KEYEVENTF_KEYUP läßt man die Taste los.

Delphi-Quellcode:

procedure TForm1.TurnCapsLock;
begin
 SetKeyState(VK_CAPITAL, True);
end;
...
...

procedure TForm1.Button1Click(Sender: TObject);
begin
TurnCapsLock;
end;

Also drücke ich den Button, geht die Capslock LED an, drücke ich den Button ein zweites Mal, geht die LED wieder aus und das verstehe ich auch nicht:

Delphi-Quellcode:

procedure TForm1.SetKeyState(const ACode: Integer; Value: Boolean);
var
  KeyState: TKeyboardState;
begin
// ZeroMemory(Pointer(@KeyState), SizeOf(KeyState));
  GetKeyboardState(KeyState);
  if (Byte(Ord(Value)) <> KeyState[ACode]) then
  begin
  Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY, 0);
  Keybd_event(ACode, $3A, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  KeyState[ACode] := Ord(Value);
  SetKeyboardState(KeyState);
  end;
end;

Wenn doch (Byte(Ord(Value)) = KeyState[aCode] ist, passiert in dieser Proc nichts mehr.
Wie kann dann die Capslock LED dennoch ausgehen beim zweiten Klick?

[Luckie]

Ich bin davon ausgegangen, dass es zu KEYEVENTF_KEYUP auch ein KEYEVENTF_KEYDOWN gibt zum Drücken.

[Luckie]

Siehe hier: http://stackoverflow.com/questions/5...ard-operations

[Codix32]

Zitat von Luckie:

Siehe hier: http://stackoverflow.com/questions/5...ard-operations

keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYDOWN, 0);//press ctrl

Geht nicht.
Aber: Keybd_event(ACode, $bA, 0, 0); geht und führt zum gleichen Ergebnis.

[hathor]

Guckt hier:
http://delphi.about.com/library/week...apsnumlock.zip