Componente free...

[Mauro®]

Hay que tener en cuenta que este truco solo es para Win2000/XP (no lo he probado en NT)

Aquí va el codigo

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;

procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr (True);
end;

Para Win9X debería ser

Desconectar:

var
dummy : integer;
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 1, @dummy, 0);

Conectar:

var
dummy : integer;
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, @dummy, 0);

Aclaro que esta ultima opción no la he probado.

Saludos a todos y espero que les sea útil.
Mauro