Überprüfen ob STRG gedrückt ist

[Nicolai1234]

Hallo,
wie kann man überprüfen ob die Taste STRG (bzw. ALT) gedrückt ist?
Ich möchte keinen Hook haben, der mir immer Bescheid gibt, wenn die Taste gedrückt wird, sondern ich möchte zu einem bestimmten Zeitpunkt überprüfen, ob diese Tasten im Moment runtergedrückt ist.
Wie kann ich das machen? (wusste auch nicht wonach ich in der Suche suchen sollte.)
Vielen Dank im voraus

[toms]

Delphi-Quellcode:

function CtrlDown: Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_CONTROL] and 128) <> 0);
end;

function ShiftDown: Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_SHIFT] and 128) <> 0);
end;

function AltDown: Boolean;
var
  State: TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[VK_MENU] and 128) <> 0);
end;

(by SDC)

[Nicolai1234]

Vielen Dank. Genau danach hatte ich gesucht.

Wer ist SDC bzw. was ist deine Quelle? (falls ich sowas nochmal suche)

[toms]

Zitat von Nicolai1605:

Vielen Dank. Genau danach hatte ich gesucht.
Wer ist SDC bzw. was ist deine Quelle? (falls ich sowas nochmal suche)

Hier ist SDC: http://www.swissdelphicenter.ch/en/tipsindex.php