Buscar por:

Desabilitar/habilitar alt+ctrl+del (win xp/nt)

Código

Procedure HabilitaAltCtrlDel(YEsNo: Boolean);

const

   sRegPolices = 'SoftwareMicrosoftWindowsCurrentVersionPolicies';

begin

   with TRegistry.Create do

      try

         RootKey := HKEY_CURRENT_USER;

         if OpenKey(sRegPolices + 'System', True) then

            begin

               case YesNo of

                  False:

                     begin

                        WriteInteger('DisableTaskMgr', 1);

                     end;

                  True:

                     begin

                        WriteInteger('DisableTaskMgr', 0);

                     end;

               end;

            end;

         CloseKey;

         if OpenKey(sRegPolices + 'Explorer', True) then

            begin

               case YesNo of

                  False:

                     begin

                        WriteInteger('NoStartMenuRun', 1);

                        WriteInteger('NoChangeStartMenu', 1);

                     end;

                  True:

                     begin

                        WriteInteger('NoStartMenuRun', 0);

                        WriteInteger('NoChangeStartMenu', 0);

                     end;

               end;

            end;

         CloseKey;

      finally

         Free;

      end;

end;

//Usando:

HabilitaAltCtrlDel(False) // Desabilita

HabilitaAltCtrlDel(True)//Habilita