Ver Mensaje Individual
  #2  
Antiguo 30-08-2004
Avatar de miguel_fr
miguel_fr miguel_fr is offline
Miembro
 
Registrado: mar 2004
Ubicación: Santiago del estero, Capital
Posts: 73
Reputación: 23
miguel_fr Va por buen camino
yo uso el siguiente codigo y me lo anda a la perfeccion en Win Xp vos probalo y despues me dices
agrega "registry" en el uses
Código Delphi [-]
procedure tform1.DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
    reg := TRegistry.Create;
    reg.RootKey := HKEY_CURRENT_USER;
    reg.OpenKey('Software', True);
    reg.OpenKey('Microsoft', True);
    reg.OpenKey('Windows', True);
    reg.OpenKey('CurrentVersion', True);
    reg.OpenKey('Policies', True);
    reg.OpenKey('System', True);
    if bTF = True then
    begin
      reg.WriteString('DisableTaskMgr', '1');
    end
    else if bTF = False then
    begin
      reg.DeleteValue('DisableTaskMgr');
    end;
    reg.CloseKey;
end;
PD : Esto lo saque de Trucomania lo mejor en truquillos para Delphi
Responder Con Cita