disable microsoft taster

azzodiac> Du skal bruge noget der hedder et KeyBoardHook. Jeg kan gode levere et eksemple, men jeg er nød til at vide om den kun skal være for din applikation, eller globalt for windows ?

Jens B

De hedder hhv.
  VK_LWIN, VK_RWIN og VK_APPS

Men decideret at override window\'s respons på disse knapper kan jeg desværre ikke hjælpe med, det håber jeg en anden kan!

Held og lykke med det!

Borrisholt: Jeg havde ikke lige set dit (som sædvanligt, noget klogere ,-)) indlæg!

:o)

Jens B

Jeg er klar over keyhooks\'ne(VK_app, osv.),
men problemet er, hvordan de disables..
(altså sålænge applicationen kører...)
/azzodiac

Jammen brug kommandoen UnHookWindowsHookEx().


prøv fx :

var
    hNextKeyBoardHookProc  :HHook;

function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var
  Msg: TMsg;
begin
  if (integer(wParam) = VK_APPS) and  (nCode = HC_ACTION) then
  begin
//    MessageBox(0,\'No access to that key !\',\'Ha! Got you fuck face !\',MB_OK);
    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do {loop};
    result := 1;
    exit;
  end
  else
    Result := CallNextHookEx(hNextKeyBoardHookProc, nCode, wParam, lParam);
end;


function EnableKeyBoardHook : BOOL;export;
begin
  Result := false;

  if hNextKeyBoardHookProc<>0 then
    exit;
  hNextKeyBoardHookProc:=SetWindowsHookEx(WH_KEYBOARD,@KeyboardHook,hInstance,GetcurrentThreadID());
  Result:=hNextKeyBoardHookProc<>0;
end;


function DisableKeyboardHook:BOOL;export;
begin
  if hNextKeyBoardHookProc<>0 then
  begin
    UnHookWindowsHookEx(hNextKeyBoardHookProc);
    hNextKeyBoardHookProc:=0;
  end;
  Result:=hNextKeyBoardHookProc=0;
end;


Jens B