winkey tuşu

[kite]

form üzerine kabaca if key=#91 then key=#0 yazmama rağmen, tüm tuşları bu şekilde kontrol edebilmeme karşın, win klavye üzerindeki winkey'i kontrol edemiyorum. Bunun bir yolunu bilen varmı?

[uğur alkan]

(Başlat Menüsü)

http://www.delphiturkiye.com/index.php? ... etirilmesi

http://www.delphiturkiye.com/index.php? ... u_gizlemek

[kite]

sevgili arkadaşım, gayet tabiki dediklerin denendi, bu foruma yazılmadan saatlerce önce.
Sorum başlak butonunu nasıl gizleri veya kullanılmaz yaparım değil, sorum Win klavye üzerindeki , Win Keyi nasıl disable ederim?

[fduman]

Tuşu sökerek.

Bu tuşları kapatabilen bir microsoft utility si hatırlıyorum da ismi aklıma gelmiyor. Programatik olarak tuşun key code'unu bilemiyorum.

[husonet]

Denemeyi buttonun eventi üzerinde yapmışım pardon.
Düzeltiyorum

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_LWIN, VK_RWIN:  Keybd_Event(VK_ESCAPE, 0, 0, 0);
  end;
end;

Form un KeyPreview özelliğini true yapmayı unutmayalım.

Kolay Gelsin...