AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Unit zum sperren verschiedener Systemfunktionen

Unit zum sperren verschiedener Systemfunktionen

Ein Thema von thomasdrewermann · begonnen am 8. Jun 2002 · letzter Beitrag vom 11. Feb 2004
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von thomasdrewermann
thomasdrewermann
Registriert seit: 8. Jun 2002
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
 
Benutzerbild von thomasdrewermann
thomasdrewermann

 
Delphi 3 Professional
 
#11
  Alt 16. Jun 2002, 11:57
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.
  Mit Zitat antworten Zitat
Benutzerbild von thomasdrewermann
thomasdrewermann

 
Delphi 3 Professional
 
#12
  Alt 16. Jun 2002, 11:59
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

MFG
Thomas
  Mit Zitat antworten Zitat
NeoXpert

 
Delphi 6 Enterprise
 
#13
  Alt 21. Okt 2003, 15:41
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]
  Mit Zitat antworten Zitat
MrKnogge

 
Delphi 2007 Professional
 
#14
  Alt 31. Okt 2003, 01:07
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
Christian Bootz
  Mit Zitat antworten Zitat
Benutzerbild von thomasdrewermann
thomasdrewermann

 
Delphi 3 Professional
 
#15
  Alt 1. Nov 2003, 07:48
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
  Mit Zitat antworten Zitat
NeoXpert

 
Delphi 6 Enterprise
 
#16
  Alt 2. Nov 2003, 13:19
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
  Mit Zitat antworten Zitat
bender251
 
#17
  Alt 13. Dez 2003, 10:27
@ 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
  Mit Zitat antworten Zitat
Robert_G
 
#18
  Alt 13. Dez 2003, 11:19
@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).
  Mit Zitat antworten Zitat
XeRo

 
Delphi 7 Enterprise
 
#19
  Alt 6. Jan 2004, 18:25
Einfach toll...bei mir funktionier alles und ich liebe es
(XP prof)
  Mit Zitat antworten Zitat
Benutzerbild von The-X
The-X

 
Delphi 7 Personal
 
#20
  Alt 11. Feb 2004, 20:22
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 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.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz