Präsentationsbrowser (System-Tastenkombinationen)

[arbu man]

Delphi-Quellcode:

procedure taskmgr(b:boolean);
begin
  with TRegistry.Create do
  try
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System\',True) then
    begin
      case b of
        False:
          begin
            WriteInteger('DisableTaskMgr',1);
          end;
        True:
          begin
            WriteInteger('DisableTaskMgr',0);
          end;
      end;
    end;
    CloseKey;
   
  finally
    Free;
  end;
end;

Nim doch diesen Code