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;