Unit zum sperren verschiedener Systemfunktionen

[thomasdrewermann]

Hi,
ich möchte gerne meine Unit in der Sparte Open-Source zur verfügung stellen. in dieser Unit geht es darum, verschiedene Systemfunktionen zu sperren:

- Sperren der Windows Taste auf der Tastatur
- Sperren von Alt-Tab (nicht unter Win 2000/NT)
- Sperren des Windows Button auf dem Bildschirm
- Sperren der Taskbar
- Sperren von Str+Alt+Entf (nicht unter Win 2002/NT)
- Sperren aller Eingabemöglichkeiten (nicht unter Win 2002/NT)
- Sperren von Programmen

Vielleicht hat ja jemand noch ne Idee, was man mit der unit noch für Sperrungen zusammenfassen kann? Wäre schön wenn ihr euere Verbesserungen oder modifikationen wieder Uppen würdet.

Die Unit ist hier mit "Ziel speichern unter..." zu downloaden:
http://people.freenet.de/Thomas.D/lockit.pas


Viel Spass :D

[Daniel B]

Hi,

und das ganze läuft auch unter NT?

Grüsse, Daniel :)

[thomasdrewermann]

Wäre echt toll wenn jemand ne Lösung für Win 2000/NT finden würde :D

[Daniel B]

Ich finde das man es Grundsätzlich dazu schreiben sollte, falls gewisse Funktionen oder Programme nicht unter NT laufen.

Grüsse, Daniel :)

[thomasdrewermann]

Hi, wär echt schön wenn ihr euch zu meiner Unit äussern würdet :)

MFG
THOMAS

[Daniel]

Hallo Thomas,

Deine Unit kann für mich von großem Nutzen sein. Gib mir Zeit bis zum Wochenende, dann "knöpfe ich sie mir mal vor" und schaue, wie sie sich unter Windows XP verhält (zwei Punkte hast Du ja schon eingeschränkt - aber vielleicht findest sich da ja noch eine Lösung...)

Grüße,
Daniel

[thomasdrewermann]

Jo,
mach dass fänd ich echt klasse! :D

[Daniel]

Hallo Thomas,

ich bin gerade dabei, Deine Unit zu testen. Zuerst hat Delphi einen formalen Fehler (naja...) gemeldet:

Code:

procedure lockwindowskey;
var handle:thandle;
begin
  FHookSet := LongBool(SetHook(Handle,WM_HOOKCREATE));
end;

Hier sei die Variable "handle" nicht initialisiert. Das stimmt sogar!

Jetzt habe ich ein Formular mit zwei Buttons, der eine ruft "HideTaskbar" auf, der andere "ShowTaskbar". Leider funktioniert das nicht unter Windows XP. Da passiert schlichtweg gar nichts. :( Gleiches gilt leider auch für die Funktionen "ShowWindowsButton" und "HideWindowsButton". Mal sehen, ob ich im Laufe der Woche (wird leider bestimmt ein wenig dauern!) eine Lösung für XP finden kann...

Grüße,
Daniel

[thomasdrewermann]

Schade :(
Ich war davon ausgegangen, dass das was für 2000 funzt auch unter XP funzt... :D

MFG
Thomas

[toms]

Hi,

zu:

ShowWindowsButton, HideWindowsButton

Diese Funktionen machen eigentlich nicht das, was man von ihrer Beschreibung her erwartet (Sie deaktiveren den Button anstatt zu verstecken/wieder zeigen).
Entweder benennst du diese Funktionen in z.B EnableWindowsButton
um oder schreibst so was:

Code:

procedure ShowWindowsButton; 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(True)); 
end;

Code:

procedure HideWindowsButton; 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(False)); 
end;

Oder in einer Funktion:

Code:

procedure ShowWindowsButton(bValue: Boolean); 
begin 
  ShowWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Ord(bValue)); 
end;

[thomasdrewermann]

Genau so hab ichs gemacht, bloss sie laueft unter XP nicht:

Code:

unit lockit;

interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, Tlhelp32;



  const
  WM_HOOKCREATE = WM_USER + 1;

  function SetHook(WinHandle: HWND; MsgToSend: integer): boolean; stdcall; external 'winhook.dll';
  function FreeHook: boolean; stdcall; external 'winhook.dll';
  procedure HideTaskbar;
  procedure ShowTaskbar;
  procedure lockwindowskey;
  procedure freewindowskey;
  procedure lockalttab;
  procedure freealttab;
  procedure showwindowsbutton;
  procedure hidewindowsbutton;
  function KillTask(ExeFileName: string): integer;

var      FHookSet: Boolean;
implementation
  procedure HideTaskbar;
  var
    wndHandle : THandle;
    wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_HIDE); {This hides the taskbar}
end; 
procedure ShowTaskbar;
  var
    wndHandle : THandle;
    wndClass : array[0..50] of Char;
begin
  StrPCopy(@wndClass[0], 'Shell_TrayWnd');
  wndHandle := FindWindow(@wndClass[0], nil);
  ShowWindow(wndHandle, SW_RESTORE); {This restores the taskbar}
end;

procedure lockwindowskey;
var handle:thandle;
begin
  FHookSet := LongBool(SetHook(Handle,WM_HOOKCREATE));
end;

procedure freewindowskey;
begin
  FHookSet := FreeHook;
end;

procedure lockalttab;
var  OldVal : LongInt;
begin
  SystemParametersInfo (97, Word (True), @OldVal, 0);
end;

procedure freealttab;
var  OldVal : LongInt;
begin
  SystemParametersInfo (97, Word (false), @OldVal, 0);
end;

procedure showwindowsbutton;
begin
  EnableWindow(FindWindowEx(FindWindow
  ('Shell_TrayWnd', nil), 0,'Button',nil),true);
end;

procedure hidewindowsbutton;
begin
  EnableWindow(FindWindowEx(FindWindow
  ('Shell_TrayWnd', nil), 0,'Button',nil),false);
end;

function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0; 

FSnapshotHandle := CreateToolhelp32Snapshot 
(TH32CS_SNAPPROCESS, 0); 
FProcessEntry32.dwSize := Sizeof(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, 
FProcessEntry32); 

while integer(ContinueLoop) <> 0 do
begin 
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = 
UpperCase(ExeFileName)) 
or (UpperCase(FProcessEntry32.szExeFile) = 
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess(OpenProcess( 
PROCESS_TERMINATE, BOOL(0), 
FProcessEntry32.th32ProcessID), 0)); 
ContinueLoop := Process32Next(FSnapshotHandle, 
FProcessEntry32);
end; 

CloseHandle(FSnapshotHandle); 
end; 






end.

[thomasdrewermann]

Der mekert nur weil ich dei Winhook.dll vergessen hab...

Hier der nachtrag:
http://people.freenet.de/Thomas.D/winhook.dll
einfach download in Windowsverzeichnis :D

MFG
Thomas

[NeoXpert]

Taskmanager auch unter XP sperren:

Delphi-Quellcode:

uses Registry;

procedure RegEdit(NoChangeStartMenu, NoClose, NoLogOff, DisableTaskMgr: DWord);
const
  sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies';
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_CURRENT_USER;

      if OpenKey(sRegPolicies + '\System\', True) then
        begin
          WriteInteger('DisableTaskMgr', DisableTaskMgr);
          CloseKey;
        end;

      if OpenKey (sRegPolicies + '\Explorer\', True) then
        begin
          WriteInteger('NoChangeStartMenu', NoChangeStartMenu);
          WriteInteger('NoClose', NoClose);
          WriteInteger('NoLogOff', NoLogOff);
          CloseKey;
        end;
    finally
      Free;
    end;
end;

hab ich auch hier gefunden meiner meinung muss das auch in die unit rein

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[MrKnogge]

du könntest noch hinzufügen:

Sperrung der Eingabegeräte

Delphi-Quellcode:

Function BlockInput(fBlock: boolean): boolean; stdcall;
              external 'user32.dll'

BlockInput(true);  // Eingabegeräte deaktivieren 
BlockInput(false); // Eingabegeräte aktivieren

[thomasdrewermann]

Hi,
ich habe jetzt die Komplette Eingabesperre Implementiert.
Allerdings ist das mit dem Taskmanager unter XP ja mit einem Neustart verbunden oder?
Darum habe ich es erstmal noch rausgelassen.

Das mit dem Taskmanager lässt sich auch durch umbennen der Datei Taskmgr.exe lösen,
allerdings repariert das Windows nach einer Zeit selbst :-(

MFG
Thomas

[NeoXpert]

nope, das mit dem Taskmanager unter XP funzt ohne Neustart, man kann auch das NoChangeStartMenu und das NoLogOff weglassen, auf jeden Fall funktionieren diese Änderungen unter XP sofort, nur unter Win 9x muss man neu starten

[bender251]

@ NeoXpert: Wie rufe ich denn deine Prozedur auf, bzw. welche Variablen muss da übergeben, damit das richtig funktioniert?

Funktioniert das auch unter Windows2000?

Gruß bender251

[Robert_G]

@thomasdrewermann
Bist du sicher das du den TaskMan umbenennen willst???
Da muss es doch eine andere Lösung geben, ich wäre ziemlich stinkig, wenn das ein Programm auf meinem Rechner machen würde.
Außerdem klappt es nicht, wenn der User keine Rechte zum Ändern des Windows-Ordners hat (außer es läuft als SYSTEM).

[XeRo]

Einfach toll...bei mir funktionier alles und ich liebe es
(XP prof)

[The-X]

Zitat:

Zitat von thomasdrewermann

Hi,
ich habe jetzt die Komplette Eingabesperre Implementiert.
Allerdings ist das mit dem Taskmanager unter XP ja mit einem Neustart verbunden oder?
Darum habe ich es erstmal noch rausgelassen.

Das mit dem Taskmanager lässt sich auch durch umbennen der Datei Taskmgr.exe lösen,
allerdings repariert das Windows nach einer Zeit selbst :-(

MFG
Thomas

AFAIK prüft der Taskmanager beim Programmstart diese Policy, es muss also nicht neugestartet werden.
Allerdings hab hab ich dagegen auch eine Lösung :stupid: die ich bei uns auf der Schule "erfolgreich" einsetze... hab mir die TaskMgr.exe mal mitm HexEditor reingezogen und die ValueNames für diese Policies einfach geändert... und siehe da der Taskmanager läuft ohne Murren und ich kann, was man auch mit Policies verbieten kann neue Tasks starten. :twisted: