Carnette?? Vc me passou esse código como...

COMO FAÇO PARA HABILITAR NOVAMENTE O CTRL ALT DEL, TENTEI COLOCAR ENABLE AO INVÉS DE DISABLE...HÁ E A ÚLTIMA INSTRUÇÃO NAUM FUNCIONA. ESTAREI GRATO SE ME RESPONDER... OBRIGADO, CHACAL


uses
Registry;

procedure EnableCTRLALTDEL(YesNo : boolean);
const
sRegPolicies = ´\Software\Microsoft\Windows\CurrentVersion\Policies´;
begin
with TRegistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
if OpenKey(sRegPolicies+´\System\´,True) then
begin
case YesNo of
False:
begin
WriteInteger(´DisableTaskMgr´,1);
end;
True:
begin
WriteInteger(´DisableTaskMgr´,0);
end;
end;
end;
CloseKey;
if OpenKey(sRegPolicies+´\Explorer\´,True) then
begin
case YesNo of
False:
begin
WriteInteger(´NoChangeStartMenu´,1);
WriteInteger(´NoClose´,1);
WriteInteger(´NoLogOff´,1);
end;
True:
begin
WriteInteger(´NoChangeStartMenu´,0);
WriteInteger(´NoClose´,0);
WriteInteger(´NoLogOff´,0);
end;
end;
end;
CloseKey;
finally
Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EnableCTRLALTDEL(true);
end;


[b:d20c2cd8ad]Evite postar a sua dúvida utilizando caixa alta; equivale a gritar.[/b:d20c2cd8ad]
Sandra/Moderação