Strg + Alt+ Enft deaktievieren??

[HomerGER]

gib doch mal ein bischen code

[MathiasSimmack]

Zitat:

Zitat von HomerGER

funktioniert bei xp super

Das mag sein, aber mich macht es sofort misstrauisch, wenn plötzlich der TaskMan nicht mehr erscheint. Und abgesehen davon lässt sich diese Einstellung jederzeit ohne Delphi wieder rückgängig machen. Entweder direkt per RegEdit, oder ganz fix per INF-Datei:

Zitat:

Zitat von EnableTaskMan.inf

Code:

[version]
signature="$CHICAGO$"
SetupClass=BASE

[DefaultInstall.ntx86]
DelReg=TaskMan

[TaskMan]
HKCU,%Regpath%,DisableTaskMgr,,

[Strings]
Regpath="Software\Microsoft\Windows\CurrentVersion\Policies\System"

Und dann frage ich mich wo du das

Zitat:

Code:

  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;

gelernt hast? Schlimmeren Code gibt´s nicht, glaube ich.

[Phoenix]

Zitat:

Zitat von HomerGER

Code:

if bTF = True then 
begin 
   reg.WriteString('DisableTaskMgr', '1'); 
end 
else if bTF = False then 
begin 
   reg.DeleteValue('DisableTaskMgr'); 
end;

Was bitte schön soll bTF denn sonst sein, wenn es nicht True ist?

Code:

if bTF then 
   reg.WriteString('DisableTaskMgr', '1')
else
   reg.DeleteValue('DisableTaskMgr');

und nix anderes.

[MathiasSimmack]

Zitat:

Zitat von Scharack

undeclared identifer = disable taskmanager..... oder so ähnlich

Mag sein, denn wenn du die Prozedur von HomerGER kopiert hast ... also, die heißt "DisableTaskMgr".


@Phoenix: Wie gefällt dir das Öffnen des ... öhm ... der Schlüssel ... ;)

[HomerGER]

sieh oben wo gefunden
bei torry

hab es nur gefunden und nur getestet - wie gut oder schlecht der code das mus der Benutzer selber entscheiden

nach den motto ich helfe mal schnell, test, hier hast du, mach was draus

aber du hast recht ich hätte es erst sauber schreiben - aber ich dacht wenn ich schreibe bei torry gefunden kann man die spur nicht zurück zu mir verfolgen

was der gut Scharack damit machen weiß ich nicht oder wie er es machen will


der code hat ne schlechte handschrift
ich mir mal den code genauer angeschaut - hmmm, nun gut, nicht schön - ABER er funktioniert

[Scharack]

ich will ja auch nuir dasn wenn der user das prog öffnetr es nciht mehr schließe kann... was alles dafür notwendig ist habe ich schon fertig nur dieser ****** taskmanager den kann ich nit verbieten....kann mir jemand jetzt nochmal das raus filtern was ich jetzt dafür bruache blicke nämlich momentan überhaupt nicht mehr durch euer fachgelaber durch.... :(

[HomerGER]

Zitat:

Zitat von Phoenix

Zitat:

Zitat von HomerGER

Code:

if bTF = True then 
begin 
   reg.WriteString('DisableTaskMgr', '1'); 
end 
else if bTF = False then 
begin 
   reg.DeleteValue('DisableTaskMgr'); 
end;

Was bitte schön soll bTF denn sonst sein, wenn es nicht True ist?

Code:

if bTF then 
   reg.WriteString('DisableTaskMgr', '1')
else
   reg.DeleteValue('DisableTaskMgr');

und nix anderes.

oben steht die GANZE Procedure

DisableTaskMgr(True); sperren
DisableTaskMgr(False); entsperren

[MathiasSimmack]

Zitat:

Zitat von HomerGER

der code hat ne schlechte handschrift
ich mir mal den code genauer angeschaut - hmmm, nun gut, nicht schön - ABER er funktioniert

Unter Umständen auch nicht, falls das Erzeugen des TRegistry-Objektes (aus welchen Gründen auch immer) mal nicht funktioniert. Ich sage nur try/finally.

Mal schnell (ungetestet!) umgebaut:

Delphi-Quellcode:

procedure DisableTaskMgr(const bTF: Boolean);
const
  szRegPath = 'Software\Microsoft\Windows\CurrentVersion\Policies\System';
var
  reg       : TRegistry;
begin
  reg := TRegistry.Create;
  if(reg <> nil) then
    with reg do
    try
      RootKey := HKEY_CURRENT_USER;

      if(OpenKey(szRegPath,true)) then
      try
        if(bTF) then WriteString('DisableTaskMgr','1')
          else DeleteValue('DisableTaskMgr');
      finally
        CloseKey;
      end;
    finally
      Free;
    end;
end;

[Scharack]

gibt es da eine möglichkeit das die verknüpfung des Taskmanagers nicht gelöscht wird???

[HomerGER]

Zitat:

Zitat von MathiasSimmack

Unter Umständen auch nicht, falls das Erzeugen des TRegistry-Objektes (aus welchen Gründen auch immer) mal nicht funktioniert. Ich sage nur try/finally.

hmmm
werde mir fremden code nächstens genauer ansehen wenn ich hier poste - sorry

aber bitte der code ist NICHT von MIR - sonder von Torry's Delphi site- ungesehen getestet und gepostet - gott hilf


@Scharack
welche verknüpfung?
du sperrst nur den zugriff auf den Taskmanager in der registry für den benutzer