Blokowanie klawiatury - hook niskiego poziomu nie działa!

0

Mam problem szukalem, dałem na forum posta o blokowanie klawiatury i odesłali mnie do arta "Zakładanie hooka niskiego poziomu..." i częściowo zadziałał. Tzn, klawisze Alt+Tab, Alt+Ctrl+del nie działają po włączeniu blokady... (prawidłowo) [hurra] ale Alt+Esc powoduje przełączenie do Win'a z progza (klawisze nie zostały zablokowane) ;-( ;-( ;-( Posiadam Win'a XP. Pliz pomocy ! ! ! !
Strona Ich Troje jako startowa mnie dobija a qmpel ciągle mi ją wrzuca jak tylko jest u mnie na hawirze! ! !

P.S. Wiecie może skąd mogę ściągnąć SynEdit do D7? ? ? Pilne ! !

0

A u mnie wszystko działa:

public
{ Public declarations }
procedure LockSystem;
procedure UnLockSystem;
end;

var
Form1: TForm1;
HookID: HHOOK;

type
PKbdDllHookStruct = ^TKbdDllHookStruct;
TKbdDllHookStruct = record
vkCode,
ScanCode,
Flags,
Time,
dwExtraInfo: Integer;
end;

const
WH_KEYBOARD_LL = 13;

implementation

{$R *.DFM}

function LLKeyHookFunc(HookCode: Integer; KeyCode: wParam; KStrokeInfo: lParam): LResult; stdcall;
var
Struct: PKbdDllHookStruct;
begin
Struct := Ptr(KStrokeInfo);
Result := 0;
if (HookCode >= 0) then
begin
{ Blokujemy kombinację Ctrl+Esc }
if (Struct.vkCode = VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)

0

<quote>begin
{ Blokujemy kombinację Ctrl+Esc }
if (Struct.vkCode = VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)!!!!!

1 użytkowników online, w tym zalogowanych: 0, gości: 1