Unit zum sperren verschiedener Systemfunktionen

[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: