Taskmanager öffnen verhindern - kein virusprojekt!!!

[Nils_13]

Delphi-Quellcode:

CanClose := False;

[Daniel G]

:wall: :lol: :mrgreen:

[arbu man]

Oder du gehst in den Kernelmodus (wie DP Suche)

[Flare]

Zitat:

Zitat von Nils_13

Delphi-Quellcode:

CanClose := False;

Also ich wette ich bekomme damit das Programm trotzdem aus. Der Taskmanager kann doch Prozesse abschießen, CanClose wird daran nichts ändern können.


Flare

[Luckie]

Zitat:

Zitat von arbu man

Oder du gehst in den Kernelmodus (wie DP Suche)

:wall:

Bitte, bitte nur das nicht.

[Zacherl]

CanClose bringt ja nichts.
Ich wollte auch schonmal verhindern, dass mein Prozess abgeschossen werden kann (Ohne ihn als Service laufen zu lassen). Dabei bin ich auf ACLs und SecurityDescriptors gestoßen.
Zu einer Lösung bin ich allerdings nie gekommen, da ich nicht viel davon verstanden habe. Oli hatte damals nicht genügend Zeit, um mir einen Beispielcode zu schreiben. Vielleicht hat er ja jetzt mehr Zeit ... :wink: , oder Oli?

//Edit: Hier der Thread mit meinen bisherigen Ergebnissen:
http://www.delphipraxis.net/internal...&highlight=acl

Florian

[Van HelF]

habe ich das richtig verstanden, du willst den taskmanager ausschalten, sodass man ihn nichtmehr öffnen kann?

wenn ja dann versuch mal das, es deaktiviert den tm in der registry

Delphi-Quellcode:

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;

hoffe das hilft dir weiter

[Zacherl]

Zitat:

Delphi-Quellcode:

procedure DisableTaskMgr(bTF: Boolean); 
var 
  reg: TRegistry; 
begin 
  reg := TRegistry.Create; 
  reg.RootKey := HKEY_CURRENT_USER; 

  reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', True); 
  //Ist AFAIK einfacher

  ...
end;

Diese Möglichkeit kann allerdings mit Admin Rechnen auch leicht rückgängig gemacht werden. (PolEdit, oder direkt über die Registry, weil viele Leute diesen Schalter kennen)

[Van HelF]

Zitat:

Diese Möglichkeit kann allerdings mit Admin Rechnen auch leicht rückgängig gemacht werden.

man kann das ganze ja in einen timer stecken und überprüfen, sobald es geändert wurde :evil:

[Zacherl]

Zitat:

Zitat von Van HelF

Zitat:

Diese Möglichkeit kann allerdings mit Admin Rechnen auch leicht rückgängig gemacht werden.

man kann das ganze ja in einen timer stecken und überprüfen, sobald es geändert wurde :evil:

Selbst dann kann man sich wie gesagt z.B. den ProcessExplorer von SysInternals downloaden und dem Prozess trotzdem locker abschießen. Das Beste sind halt die ACLs. Das Problem ist nur, dass zumindest ich nicht verstehe, wie man diese anwendet.