FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
||||
|
||||
Yo tengo unas rutinas que te pueden servir, yo las gasto para evitar que me cierren la aplicacion o cambien de tarea, asi pues deshabilito el administrador de tareas y las combinaciones [ESC+CTRL] [ALT+TAB] [CTRL+ALT+SUP]
Despues de consular en foros y paginas de trucos ... "he construido" esto: Bloquear_Teclas_windows(valor:boolean); y el codigo es: procedure Bloquear_Teclas_windows(valor:boolean); var dummy:integer; begin if valor then SetHook; LockKey(lkAltTab,valor); LockKey(lkAltEsc,valor); LockKey(lkCtrlEsc,valor); LockKey(lkAltF4,valor); LockKey(lkWin,valor); LockKey(lkApps,valor); if Not valor then ReleaseHook; teclasWinBloq:=Valor; if Valor then SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0) else SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0); DisableTaskMgr(valor); if Not valor then LockWorkStation; end; procedure DisableTaskMgr(bTF: Boolean); var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Software', True); reg.OpenKey('Microsoft', True); reg.OpenKey('Windows', True); reg.OpenKey('CurrentVersion', True); reg.OpenKey('Policies', True); reg.OpenKey('System', True); if bTF = True then begin reg.WriteString('DisableTaskMgr', '1'); end else if bTF = False then begin reg.DeleteValue('DisableTaskMgr'); end; reg.CloseKey; end; function LockWS: Boolean; // by Thomas Stutz, SDC type TLockWorkStation = function: Boolean; var hUser32: HMODULE; LockWorkStation: TLockWorkStation; begin // Here we import the function from USER32.DLL bloq_estacion:=False; hUser32 := GetModuleHandle('USER32.DLL'); if hUser32 <> 0 then begin @LockWorkStation := GetProcAddress(hUser32, 'LockWorkStation'); if @LockWorkStation <> nil then begin LockWorkStation; Result := True; bloq_estacion:=True; end; end; end; Espero que te sirva. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|