Blokada klawiszy ctrl,alt,delete w XP

Szukałem swego czasu procedury, która blokowałaby możliwość użycia klawiszy: Ctrl, Alt, Delete w Windows XP

Oto ona

procedure 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;

Blokada
DisableTaskMgr(True);

Odblokowanie
DisableTaskMgr(False);

Może komuś się przyda?

procedure DisableTaskMgr(disable: Boolean);
const
  DisableTaskMgrKey: string = 'DisableTaskMgr';
var
  reg: TRegistry;
begin
  try
    reg := TRegistry.Create();
    reg.RootKey := HKEY_CURRENT_USER; 
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
    if disable then 
      reg.WriteString(DisableTaskMgrKey, '1')
    else
      reg.DeleteValue(DisableTaskMgrKey); 

    reg.CloseKey();
  finally
    if reg <> nil then reg.Free();
  end;
end;

H@ck#r v#rsi0n:
http://4programmers.net/Pastebin/1392
Powinno działać :D