Strg + Alt+ Enft deaktievieren??

[MathiasSimmack]

Zitat von HomerGER:

der code hat ne schlechte handschrift
ich mir mal den code genauer angeschaut - hmmm, nun gut, nicht schön - ABER er funktioniert

Unter Umständen auch nicht, falls das Erzeugen des TRegistry-Objektes (aus welchen Gründen auch immer) mal nicht funktioniert. Ich sage nur try/finally.

Mal schnell (ungetestet!) umgebaut:

Delphi-Quellcode:

procedure DisableTaskMgr(const bTF: Boolean);
const
  szRegPath = 'Software\Microsoft\Windows\CurrentVersion\Policies\System';
var
  reg       : TRegistry;
begin
  reg := TRegistry.Create;
  if(reg <> nil) then
    with reg do
    try
      RootKey := HKEY_CURRENT_USER;

      if(OpenKey(szRegPath,true)) then
      try
        if(bTF) then WriteString('DisableTaskMgr','1')
          else DeleteValue('DisableTaskMgr');
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
end;