AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

bestimmte Tasten Sperren.

Ein Thema von Noobinator · begonnen am 9. Mai 2006 · letzter Beitrag vom 17. Mai 2006
 
nat

Registriert seit: 10. Nov 2005
216 Beiträge
 
RAD-Studio 2009 Pro
 
#13

Re: bestimmte Tasten Sperren.

  Alt 12. Mai 2006, 18:47
also strg+esc kannste mit diesem keyboard hook sperren.
Delphi-Quellcode:
library KeyboardHook;

uses
  Windows,
  SysUtils,
  Classes;

{$R *.res}

type
  TKeybDLLHookStruct = packed record
    vkCode: integer;
    scanCode: integer;
    flags: integer;
    time: integer;
    dwExtraInfo: integer;
  end;
  PKeybDLLHookStruct = ^TKeybDLLHookStruct;

const
  WH_KEYBOARD_LL = 13;

var
  hKeyHook: THandle;


function KeyboardProc_LowLevel(code: integer; wParam,   lParam: Integer): integer; stdcall;
var
  P: PKeybDLLHookStruct;
  KeyDown: Boolean;
begin
  if Code < 0 then
    result := CallNextHookEx(hKeyHook, Code, wParam, lParam)
  else
  begin
    P := Pointer(lParam);
    KeyDown := P^.flags = 0;

    if KeyDown and (P^.vkCode = VK_ESCAPE) and
      Bool($8000 and GetAsyncKeyState(VK_CONTROL)) then
      result := HC_SKIP
    else result := CallNextHookEx(hKeyHook, Code, wParam, lParam);
  end;
end;

procedure StartHook;
begin
  hKeyHook := SetWindowsHookEx(WH_KEYBOARD_LL, KeyboardProc_LowLevel, HInstance, 0);
end;

procedure StopHook;
begin
  UnhookWindowsHookEx(hKeyHook);
end;

exports
  StartHook,
  StopHook;
  
begin
end.

bindeste so in dein prog ein:
Delphi-Quellcode:
interface
...
const
  HookDLL = 'KeyboardHook.dll';

  procedure StartHook; external HookDLL;
  procedure StopHook; external HookDLL;
rufst dann einfach beim OnCreate von deinem form
StartHook; und beim OnDestroy
StopHook; auf
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz