Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Tastenkombinationen unterbinden ! (https://www.delphipraxis.net/44556-tastenkombinationen-unterbinden.html)

ColdFire 20. Apr 2005 21:46


Tastenkombinationen unterbinden !
 
Hy leute ist echt selten das ich poste denn hier ist so gut wie alles gepostet aber nun zu meinem "Problem"

also ich progge seit einigen tagen an einer desktopsperre und nun bin ich an dem punkt angelangt das sie beinahe fertig ist... aber... diese verflixten tastenkombinationen machen mich noch wahnsinnig...

WIN+E STRG+ALT+ENTF usw... diese müste ich alle noch unterbinden nur wie...
wenn ich sie im form KEYDOWN

Delphi-Quellcode:
FORM KEY DOWN

if key in [VK_F1,vk_menu,VK_Delete,VK_LWIN,VK_RWIN,VK_CONTROL ] then
        begin
          MessageDlg('KEINE TASTENKOBOS BITTE',mtInformation, [mbOK], 0);
          mainFORM.SetFocus;
          key:= 0;
        end;
setze bekomme ich nicht das resultat das ich will... kann mir jemand einen hilfreichen tipp geben?

lg CF

Matze 20. Apr 2005 21:57

Re: Tastenkombinationen unterbinden !
 
Du kannst allenfalls den Taskmanager sperren, aber Strg-Alt-Entf kann man sonst nicht sperren, was auch gut ist.

Aber suche mal im Forum, das hatten wir schon x-Mal.

Luckie 20. Apr 2005 22:00

Re: Tastenkombinationen unterbinden !
 
Zitat:

Zitat von ColdFire
also ich progge seit einigen tagen an einer desktopsperre

Was hast du so lange gemacht? :gruebel:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  LockWorkStation;
end;
10 Sekunden Arbeit. :mrgreen:

Fossibaer58809 20. Apr 2005 22:06

Re: Tastenkombinationen unterbinden !
 
Cool, den kannte ich noch nicht.
Eine weitere nützliche option für eigene Progs :mrgreen:

Gruß
Michael


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:35 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