Delphi dicas

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

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