Lenguaje de programación Borland Delphi
Este truco Activa/Desactiva el Administrador de Tareas de Windows. Para ello elimina/crea una clave en el regedit. Necesitaremos un formulario y dos botones (TButton):
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, registry;
type
TformMenuPrincipal = class(TForm)
bActivar: TButton;
bDesactivar: TButton;
procedure bActivarClick(Sender: TObject);
procedure bDesactivarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
formMenuPrincipal: TformMenuPrincipal;
implementation
{$R *.dfm}
//procedimiento que activa/desactiva el administrador de tareas de Windows
procedure actDecAdminTareas (activar : boolean);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
if activar then
reg.WriteString('DisableTaskMgr', '1')
else
reg.DeleteValue('DisableTaskMgr');
reg.CloseKey;
reg.Free;
end;
procedure TformMenuPrincipal.bActivarClick(Sender: TObject);
begin
actDecAdminTareas(true);
end;
procedure TformMenuPrincipal.bDesactivarClick(Sender: TObject);
begin
actDecAdminTareas(false);
end;
end.
Publicado el: 2004-11-14