Как отключить клавишу Win

[Marsel737]

Всем доброго времени суток.

Подскажите как отключить клавишу win на время выполнения программы, такой код на win7 не помог.

uses Registry;

prcedure WriteReg
var
  reg: TRegistry;
  Buf: array[0..23] of byte = (0,0,0,0,0,0,0,0,3,0,0,0,0,0,$5B,$E0,0,0,$5C,$E0,0,0,0,0);
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('SYSTEM\CurrentControlSet\Control\Keyboard Layout', True) 
    then begin
      Reg.WriteBinaryData('Scancode Map', Buf, SizeOf(Buf));
      //если такого имени нет, то оно создается этой процедурой
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

[mihali4]

Если только для своей программы, то пример:

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

[Marsel737]

mihali4, вот я скопировал, но не работает, а отключение alt-F4 работает

procedure TfrmMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssAlt in Shift) and (Key = VK_F4)) then Key := 0;
  if key=VK_LWIN then key:=0;
  if key=VK_RWIN then key:=0;
end;

[mihali4]

А у меня работает...
KeyPreview включено ?
Оп-па... То работает, то не работает
Хук поставьте.

[Marsel737]

mihali4, а поподробнее можно на счёт хука?

[mihali4]

А поиск для кого ?
http://www.programmersforum.ru/showt...ight=%F5%F3%EA

[tarakan1983]

Сообщение от Marsel737

Всем доброго времени суток.

Подскажите как отключить клавишу win на время выполнения программы, такой код на win7 не помог.

uses Registry;

prcedure WriteReg
var
  reg: TRegistry;
  Buf: array[0..23] of byte = (0,0,0,0,0,0,0,0,3,0,0,0,0,0,$5B,$E0,0,0,$5C,$E0,0,0,0,0);
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('SYSTEM\CurrentControlSet\Control\Keyboard Layout', True) 
    then begin
      Reg.WriteBinaryData('Scancode Map', Buf, SizeOf(Buf));
      //если такого имени нет, то оно создается этой процедурой
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

Подскажите пожалуйста, почему у меня при компиляции ругается на эту процедуру, в строке

  Buf: array[0..23] of byte = (0,0,0,0,0,0,0,0,3,0,0,0,0,0,$5B,$E0,0,0,$5C,$E0,0,0,0,0);

Cannot initialize local variables

[GunSmoker]

http://translate.google.ru/#en|ru|Ca...al%20variables

[tarakan1983]

я понимаю что это значит, ПОЧЕМУ он ругается?

[GunSmoker]

Потому что это невозможно. С чего ты взял, что это будет работать?