Ayuda para bloquear Alt - Tab WinXP

[[cHackAll]]

Empezado por luiggixD

...probe la funcion q hay alli pero no funciona para nada al menos no funciona en el Windows XP no se si tendran alguna otra solucion x alli...

No lo he probado pero si lo he analizado y dicho codigo funciona a la perfección, lo que posiblemente sucede es que no leíste los comentarios;

Empezado por roman

Según la documentación, los 'ganchos' de sistema deben implementarse en una DLL pero parece funcionar simplemente incluyendo la unidad hooks.pas en cualquier proyecto.

Al parecer el enlace de descarga de dicha librería esta rota, por lo tanto he hecho otra versión de la misma libreria con solo lo que necesitas;

Código Delphi [-]
library noalttab;
 
uses Windows;
 
var Handle: Cardinal;
 
function HookProc(Code, wParam, lParam: Cardinal): Cardinal; stdcall;
begin
 if (Code = HC_ACTION) and LongBool(PCardinal(lParam + 8)^ and $20{LLKHF_ALTDOWN}) and (PCardinal(lParam)^ = VK_TAB) then
  Result := 1
 else
  Result := CallNextHookEx(Handle, Code, WParam, LParam);
end;
 
begin
 Handle := SetWindowsHookEx(13{WH_KEYBOARD_LL}, @HookProc, HInstance, 0);
end.

Lo pegas en un archivo vacío .DPR y lo compilas... luego con tu aplicación cargas dicha librería con;

Código Delphi [-]
LoadLibrary('noalttab.dll');

PD: para ver como revertir el hook; revisa de nuevo el enlace al código de roman.

Saludos