Fórum Desabilitar CTRL ALT DEL, ALT F4 WIN XP #177402

http://www.swissdelphicenter.ch/torry/showcode.php?id=1528

Pô meu irmão valeu mesmo. longa vida e cada vez mais conhecimento pra vc ok

um abraço.

e ai galera, blz??!!

eu vi o codigo e tals, mas n conssegui aplicar ele no meu codigo!!!

alguem poderia me ajudar em como eu faço pra fazer esse codigo funcionar??!!


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

// Example Call:
procedure TForm1.Button1Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;
#

e ae galer blz??!!

eu consegui aqui usar pra desabilitar o Ctrl+Alt+Del, mas pra desabilitar Alt+Tab; Alt+ESC; tecla win ainda nao...

alguem ai poderia me ajudar??!!

aquele abraco

viper0!!! :evil: