desabilitando ctrl alt del

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;




pra chama a procedure->

bota no oncreate sei la.
DisableTaskMgr(True); // chama a procedure.
// true desabilita
false habilita



espero ter te ajudado :idea:

oTTo Husckows (web@seek.srv.br) :shock:

eh cara. da erro na variavel... TRegistry...

slack, acrescente a unit ´Registry´ na clausula uses de sua unit...
T+

com 1 linha:

paratravar:

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1,0, 0);

para destravar:

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0,0, 0);


pra mim funciona blz!