Ver Mensaje Individual
  #2  
Antiguo 27-03-2008
Avatar de Black_Ocean
Black_Ocean Black_Ocean is offline
Miembro
 
Registrado: nov 2006
Posts: 128
Reputación: 20
Black_Ocean Va por buen camino
Simple, desactivándolo desde el registro de Windows.

Código Delphi [-]
uses
  Registry;

procedure DeshabilitarPanelDeControl(HRoot: HKEY);
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HRoot;
    if Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies', True) then
    try
      Reg.WriteInteger('NoControlPanel', 1);
    except
      on exception do
        Abort;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DeshabilitarPanelDeControl(HKEY_CURRENT_USER);
  DeshabilitarPanelDeControl(HKEY_LOCAL_MACHINE);
  // Necesitarás hacer una rutina extra de reinicio del PC para que el cambio surta efecto.

end;

Espero que uses el código para una buena acción, NO para malware.

Saludos.

Última edición por Black_Ocean fecha: 27-03-2008 a las 23:32:50.
Responder Con Cita