Cita:
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;
Cita:
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) and (PCardinal(lParam)^ = VK_TAB) then
Result := 1
else
Result := CallNextHookEx(Handle, Code, WParam, LParam);
end;
begin
Handle := SetWindowsHookEx(13, @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