Windows-Taste abfangen

[DevilsCamp]

Ich habe zwar herausgefunden, wie ich testen kann, ob die Windows-Taste gedrückt wurde, aber wie verhindere ich es, dass sich danach das Start-Menü öffnet?

Ich habe folgenden Code:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_LWIN) then
    Edit1.Text  := 'WIN'
  else
    Edit1.Text  := '';

  Key := 0;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=VK_LWIN) then
    Key := 0;
end;

Aber jedesmal öffnet sich das Start-Menü.

KeyPreview des Forms habe ich aktiviert...


Ich habe es auch mit einem TApplicationEvents versucht:

Delphi-Quellcode:

  if (Msg.message=WM_KEYDOWN) then
  begin
    if (Msg.wParam=VK_LWIN) then
    begin
      Edit1.Text  := 'WIN';
      Msg.wParam  := 0;
    end;

    Handled := true;
  end;
  if (Msg.message=WM_KEYUP) then
  begin
    if (Msg.wParam=VK_LWIN) then
    begin
      Msg.wParam  := 0;
    end;

    Handled := true;
  end;
end;

Leider auch kein Erfolg...