Delphi-PRAXiS
Seite 2 von 3     12 3      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Tastatur komplett sperren (https://www.delphipraxis.net/24336-tastatur-komplett-sperren.html)

Tubos 19. Jun 2004 15:12

Re: Tastatur komplett sperren
 
Zitat:

Es geht darum, dass es ein Präsentationsrechner ist, der da für die öffendlichkeit zugänglich rumsteht...wenn man aber nun etwas ändern möchte (Fehler oder so am Rechner) dann soll man halt wieder zugriff bekommen.
Halt damit keiner dran rumfummelt!
da hast du recht
Zitat:

Du könntest doch die Maus und die Tastatur einfach für die Öffentlichkeit unzugänglich machen, oder?
wahrscheinlich am einfachsten :cyclops:

Mit STRG+ALT+ENTF kann BlockInput aufgehoben werden.
Wenn man im Menü "Windows-Sicherheit" ist oder der PC gesperrt ist, kann man nichts sperren - die Sperre wird dann automatisch aufgehoben.

Um die Tastatur und Maus komplett zu sperren, gibt es mehrere Möglichkeiten:

- in einer endlosschleife ständig blockinput aufrufen, wenn jemand strg+alt+entf drückt und dann auf task-manager klickt, hat er zwar den taskmanager, aber dadurch muss er aus dem Menü Windows-Sicherheit raus und dein Programm sperrt die Eingabegeräte wieder. Für deinen Zweck wahrscheinlich unbrauchbar, weil dann die Präsentation gestört wird.

- Du ersetzt den Tastaturtreiber oder msgina.dll

Neuni 19. Jun 2004 17:29

Re: Tastatur komplett sperren
 
Naja...unzugänglich aufbewahren war mir auch schon eingefallen :wink: Nee...lieber nicht.

Was ist denn wenn ich msgina.dll austausche, geht die tastatur dann augenblicklich nicht mehr, und kann man das ganze wieder auf befehl rückgängig machen???

PS: Ja, ich würds über ne CD oder so machen mit autostart!

Neuni 19. Jun 2004 18:47

Re: Tastatur komplett sperren
 
Hey, das mit dem Blockinput geht ja scho super...nun müsste ich nur noch strg+alt+entf blockieren...mal suchen :coder:

ustra 19. Jun 2004 18:56

Re: Tastatur komplett sperren
 
Hi,

den Windows Task Manager kannst Du auch locker ausschalten. Einfach mit einem Timer immer mit Findwindow nach dem Windows Task Manager suchen. Wenn der offen ist, eine WM_QUIT Botschaft an den senden. Fertig.

Matze 19. Jun 2004 18:56

Re: Tastatur komplett sperren
 
Zitat:

Zitat von Neuni
Hey, das mit dem Blockinput geht ja scho super...nun müsste ich nur noch strg+alt+entf blockieren...mal suchen :coder:

:lol:

Nicodius 19. Jun 2004 19:02

Re: Tastatur komplett sperren
 
ob deine lehrer(oder die die ddir das aufgetragen ahebn) dann zufreiden sind ? :lol:

Neuni 19. Jun 2004 19:03

Re: Tastatur komplett sperren
 
Warum? Was ist daran so schlimm?

Edit:
Zitat:

Zitat von ustra
Hi,

den Windows Task Manager kannst Du auch locker ausschalten. Einfach mit einem Timer immer mit Findwindow nach dem Windows Task Manager suchen. Wenn der offen ist, eine WM_QUIT Botschaft an den senden. Fertig.

Das war ja wohl nix...dann ist die tastatur trotzdem entsperrt :roll:

ustra 19. Jun 2004 19:15

Re: Tastatur komplett sperren
 
In einem Programm, das ständig im Hintergrund läuft einen Timer nehmen und dann im onTimer Ereignis schreiben:
Delphi-Quellcode:
procedure taskmanager;
var handle : hwnd;
begin
  handle := Findwindow(nil, 'Windows Task Manager')
  //oder Findwindow(nil, ' Windows Task Manager')
  if handle <> 0
  then
    SendMessage(handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;
Das sollte es sein. Das funktioniert wunderbar. Allerdings ist das jetzt nur so aus dem Kopf gemacht ohne Garantie auf Richtigkeit.

Ulrich

Neuni 19. Jun 2004 19:17

Re: Tastatur komplett sperren
 
Das würde ja auch gehen, aber der Taskmanager ist trotzdem ein zehntel einer millisekunde offen, und dann ist die Tastatur(Blockinput) wieder freigegeben!

Thorben86 19. Jun 2004 19:58

Re: Tastatur komplett sperren
 
Also mann kann den Taskmanager auch komplett deaktivieren, dann muss man nicht schließen lassen. Eine Möglichleit ist über die Registry, ich such mal nen code (der ist nicht über Registry).


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:20 Uhr.
Seite 2 von 3     12 3      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz