Strg + Alt+ Enft deaktievieren??

[Scharack]

Gibt es einen Befelh um die Tastenkombo strg Alt enft zu deaktievieren?? und wenn ja wie funktioniert die????

[Phoenix]

Hallo und willkommen bei der Delphi - Praxis :)

Die Frage hatten wir schon ein paar mal.

Hier ist der LInk zu der Antwort (einfach etwas runterscrollen).

[Luckie]

Unter Nt ff. hilft nur die MSGina.DLL zu ersetzen.

Aber mir drängt sich jedesmal die Frage auf, warum man so etwas machen will und die Sichretheitsrichtlinen von Mehrbenutzer-Betriebssystem auszuhebeln.

[HomerGER]

var
Affengriff: Longbool;
SystemParametersInfo(97,Word(True),@Affengriff,0);
versuch mal das

[Scharack]

nein da passiert nöx, und ich wüßte auch nicht was dieser Befehl bringen sollte.....

[HomerGER]

ich geh mal dann davon aus das du xp hast
aber kein google ?

Code:

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;

funktioniert bei xp super

bei Torry gefunden

[Scharack]

das google eine suchmaschine ist wees ja jeder aber was isses bei Delphie ( :oops: sry das ich so dumme fragen habe aber ich fange mit delphie gerade erst an..)

[Scharack]

und habe ich das richtig verstanden das dies nur passiert wenn der user auf einen button klickt??

das wäre zwar nicht das prob aber geht das nicht anders???

[HomerGER]

Zitat:

Zitat von Scharack

( :oops: sry das ich so dumme fragen habe aber ich fange mit delphie gerade erst an..)

1. ich mus mich entschuldigen wenn du meine antwort arrogant intepretiert hast
2. Es gib keine dummen Fragen
3. Curent_User ist immer für den jetzigen User und Local_Maschine für alle

Zitat:

Zitat von Scharack

und habe ich das richtig verstanden das dies nur passiert wenn der user auf einen button klickt??

das wäre zwar nicht das prob aber geht das nicht anders???

mach es ohne button direkt in OnCreate

[Scharack]

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

[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

[Luckie]

Welche Verknüpfung? Und was bezweckst du eigentlich mit deinen Bestrebungen den Taskmanger zu deaktivieren? Zu dem so wie es oben gepostet wurde für alle Anwendungen gilt. Strürzt mir Word ab oder reagiert sonst ein Programm nicht mehr stehe ich da. Dann kann ich nur noch die Reset-taste am Gehäuse drücken.

Willst du eien Software schreiebn für ein Internetkaffee oder was auch beliebt ist ein Fernwartungstool für dein Schulnetztwerk, dann besorg dir den PolicyEditor von Microsoft (liegt bei den Server Ausgaben der Betriebssysteme bei) und stell alles über Policies ein, wie es auch der offiziell dokumentierte Weg von MS ist.

[MathiasSimmack]

Zitat:

Zitat von Scharack

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

Ich empfehle ein gutes Grundlagenbuch bzw. -tutorial. Nichts für ungut, aber man sieht, dass du Probleme hast. Du scheinst einer von denen zu sein, die zwar viel machen möchten, dabei aber ihre eigenen Grenzen vergessen. Das ist nicht böse gemeint, aber was hilft es dir, wenn du dir deinen Code von anderen schreiben lässt? Richtig: gar nichts. Denn wenn du selbstständig etwas ändern musst/sollst, stehst du ohne das notwendige Wissen im Regen.

Sorry, aber so stellt sich das für mich dar.

[Scharack]

Nein.... ich will nicht über meine grenzen hinausgehen...ich habe den rest ja auch schon rasugefunden aber das mit dem Taskmgr nunmal nicht und da ich das Prog heute gut hätte gebrauchen können hab ich halt um eure hilfe gebeten...Habe heute nur eine Arbeit über delphie geschrieben und wollte halt das wenn meine Lehrerin das Prog beendet dies nicht kann...und da war halt der taskmgr zu deaktiviern das einzige was mir noch fehlte!!! :mrgreen: :mrgreen: :mrgreen:

[flomei]

SCHWACHSINN! :x :evil:

[Luckie]

Ich habe mir ja gleich sowas gedacht. Und so etwas wollen wir hier nicht unterstützen, deswegen:

D I C H T