Tastenkombinationen abfangen

[Chris237]

Hey Leute,

ich brauche mal eure Hilfe.

Ich soll von der Schule aus ein Programm schreiben womit ich den PC ohne abmelden oder in den Benutzerscreen gehen zu müssen vor fremder Benutzung schützen soll.

Ich würde gerne für volle Sicherheit auch (Strg+Shift+Esc) und (Strg+Alt+Entf) abfangen.
Aber irgendwie will das nicht.

Danke schon mal im Voraus.

Gruß

Chris

Quellcode:

Code: Alles auswählen

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
 if (Shift = [ssCtrl]) and (Shift = [ssAlt]) then
 begin
  Key := 0;
 end;
 
 if (Shift = [ssCtrl]) and (Shift = [ssShift]) then
 begin
  Key := 0;
 end;
end;

[Michl]

Da verlangt der Lehrer aber eine Menge...

Ich rede jetzt mal von Windows: Zunächst musst du wissen, dass es Tastenkombinationen oder auch Tasten (z.B. die Windows-Taste) gibt, die nicht von deinem Programm abgefangen werden können. Willst du diese dennoch abfangen müsstest du dich mal Hooks beschäftigen.
Ich selber habe das zwar noch nie gemacht, ein Tutorial für Delphi wäre aber hier zu finden: http://www.entwickler-ecke.de/viewtopic.php?t=101