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

[[Lepe]]

asias a ambos

saludos

[condor]

Buenas.


He provado el codigo fuente y me da errores al compilar...

Otra cosa, en que sitio de la web se dexcarga la utilidad de Cadetil?


Salu2

[DarkByte]

Condor, recuerda usar las etiquetas [ Delphi ] y [/ Delphi] (sin espacios), así conseguirás una mayor presentación en tu código y a los demás les será más fácil ayudarte.

[Mauro®]

Empezado por condor

Buenas.


He provado el codigo fuente y me da errores al compilar...

Otra cosa, en que sitio de la web se dexcarga la utilidad de Cadetil?


Salu2

Perdón me faltó agregar en el código anterior, que añadan en el Uses Registry

Saludos a todos