Se adjuntan a continuación unas cuantas funciones Cicode que permiten  Habilitar / Deshabilitar controles de windows :

// Disable Task Manager

FUNCTION DisableTaskMgr()

Exec("reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_SZ /d 1 /f");

END

// Renable Task Manager

FUNCTION EnableTaskMgr()

Exec("reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /f");

END

// Setup the startup of Citect without Explorer

FUNCTION StartCitect()

// Needs Windows Reboot

Exec("reg add ^"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Winlogon^" /v Shell /t REG_SZ /d ^""

+PathToStr("[BIN]")+"Citect32.exe^" /f");

END

// Setup the startup of Windows back to normal

FUNCTION StartWindows()

// Needs Windows Reboot

Exec("reg add ^"HKCU\Software\Microsoft\Windows NT\CurrentVersion\Winlogon^" /v Shell /t REG_SZ /d explorer.exe /f");

END

// Disable Alt+ Tab

FUNCTION DisableAltTab()

// Needs Windows Reboot

Exec("reg add ^"HKCU\Control Panel\Desktop^" /v CoolSwitch /t REG_SZ /d 0 /f");

END

// Enable Alt + Tab

FUNCTION EnableAltTab()

// Needs Windows Reboot

Exec("reg add ^"HKCU\Control Panel\Desktop^" /v CoolSwitch /t REG_SZ /d 1 /f");

END

// Disable Windows key

FUNCTION DisableWinKey()

// Needs Windows Reboot

Exec("reg add ^"HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layout^" /v ^"Scancode Map^" /t REG_BINARY /d 00000000000000000300000000005BE000005CE000000000 /f");

END

// enable Windows key

FUNCTION EnableWinKey()

// Needs Windows Reboot

Exec("reg delete ^"HKLM\SYSTEM\CurrentControlSet\Control\Keyboard Layout^" /v ^"Scancode Map^" /f");

END

Publicado para:Schneider Electric Argentina