Desabilitar CTRL ALT DEL, ALT F4 WIN XP
Desabilitar CTRL+ALT+DEL, ALT+F4 e principalmente a tecla do WINDOWS no teclado ´WIN XP´, estou há meses tentando, e até agora não consegui... o maximo que fiz foi conseguir desligar Pelo amor de Deus... Meu emprego depende disso.. por favor!!!!!
Obs... para dasabilitar do Win98 eu já sei a bronca tá só em fazer o mesmo com XP.
Obs... para dasabilitar do Win98 eu já sei a bronca tá só em fazer o mesmo com XP.
Afcsc
Curtidas 0
Respostas
Carnette
25/08/2003
http://www.swissdelphicenter.ch/torry/showcode.php?id=1528
GOSTEI 0
Afcsc
25/08/2003
Pô meu irmão valeu mesmo. longa vida e cada vez mais conhecimento pra vc ok
um abraço.
um abraço.
GOSTEI 0
Viper0
25/08/2003
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;
#
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;
#
GOSTEI 0
Viper0
25/08/2003
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:
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:
GOSTEI 0