Shift Taste bei Programmstart abfragen?

[moelski]

Habs schon gefunden:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Windows,      {GetKeyState, VK_LSHIFT}
  Dialogs,      {ShowMessage}
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  if GetKeyState(VK_LSHIFT) < 0 then ShowMessage('L Shift Taste');
  if GetKeyState(VK_RSHIFT) < 0 then ShowMessage('R Shift Taste');
  if GetKeyState(VK_ESCAPE) < 0 then ShowMessage('Escape Taste');

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

So tuts gehen. Trotzdem Danke an alle die es gelesen haben