Tastatur-Problem

[Christian Seehase]

Moin Zusammen,

ich hab' den genannten Tip mal überarbeitet.
Ausserdem empfehle ich dringend, gerade für XP, den von Nico Bendlin abgegebenen Kommentar zu dem Tip noch zu lesen.

Delphi-Quellcode:

procedure DisableTaskMgr(bTF: Boolean);

var
  reg: TRegistry;

begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_CURRENT_USER;
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', true) then begin
      try
        if bTF then begin
          reg.WriteInteger('DisableTaskMgr',1);
        end else begin
          reg.WriteInteger('DisableTaskMgr',0);
        end;
      finally
        reg.CloseKey;
      end;
    end;
  finally
    FreeAndNil(reg);
  end;
end;