Ayuda para bloquear Alt - Tab WinXP

[luiggixD]

Bueno me remito de nuevo xq probe la unidad que vi en el enlace q puso cHackAll y 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. El programa funciona al 90% solo necesito añadirle esta restriccion y quedara terminado si alguien pudiese ayudarme le agradeceria bastante.

Disculpen las molestias

[[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

[[seoane]]

Usando el hook WH_KEYBOARD_LL no hace falta que este implementado dentro de una dll, esa es una de las principales diferencias con WH_KEYBOARD. Por otro lado la unit de roman no suele dar problemas, pero ten en cuenta que es posible que no te funcione en windows 98 ¿donde lo estas probando?

[keyboy]

Empezado por seoane

es posible que no te funcione en windows 98 ¿donde lo estas probando?

Empezado por luiggixD

no funciona para nada al menos no funciona en el Windows XP

Imagino que lo está probando en XP Yo acabo de probarlo, también en XP, y me ha funcionado tal cual. Eso sí, hay que instalar el gancho con SetHook e indicar la tecla que se quiera inhibir con LockKey.

Bye

[benom]

Hola un saludos,, muy buen foro....

Ps he seguido al pie de la letra sus comentarios y sugerencias,, pero aun no resulvo el problema...del ALT-TAB.

No entendi esa ultima parte de que hay q instalar el SetHook q menciona(keyboy),,me podrian decir como hacerlo?

de antemano gracias por su atencion.

++++++++++++++++++Listo entendi lo q queria decir keyboy,, soy de lento a prendisaje XD muchas gracias********************************

[[cHackAll]]

Código Delphi [-]
var hHook: 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(hHook, Code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 hHook := SetWindowsHookEx(13{WH_KEYBOARD_LL}, @HookProc, HInstance, 0);
end;