Avatar billede esneh Nybegynder
28. maj 2009 - 10:11 Der er 4 kommentarer og
1 løsning

Fange Ctrl + Alt + Del

Halløj,

Hvordan fanger jeg og stopper Ctrl + Alt + Del?

Har forsøgt mig med dette, men det virker ikke:

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

og

if (Shift = [ssCtrl]) and (Key = VK_Menu) and (Key = VK_DELETE) then
Key := 0;

end;
Avatar billede vallemanden Nybegynder
28. maj 2009 - 11:02 #1
Using the SystemParametersInfo API function you can trick Windows into thinking that the screen saver is running. Doing so disables the Ctrl-Alt-Delete key sequence from displaying the "Close Program" dialog and rebooting the computer and Alt-Tab from switching to another application. It also stops Ctrl-Esc from opening the Start Menu.
If you wish to disable those keys while your application is running call the following SystemKeys function (place it in the Implementation section of your unit's code - and call from any procedure in your application - where needed). When you call SystemKeys, if Disable is True, the keys will be disabled, False otherwise.

procedure SystemKeys(Disable: Boolean) ;
var
  OldVal : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING, Word(Disable), @OldVal, 0) ;
end;
After a call to SystemKeys(True) the program runs, but you are unable to Alt-Tab to it nor switch to it in the task list. You can't invoke the Start button, either.
Avatar billede esneh Nybegynder
28. maj 2009 - 12:45 #2
Skal kun standse ctrl + alt + delete, man må meget gerne kunne bruge ctrl + esc og alt + tab
Avatar billede psycosoft-funware Nybegynder
28. maj 2009 - 22:45 #3
så vidt jeg husker så er der en værdi i registreringsdatabasen der bestemmer rettighederne for "abegrebet", så principielt kan du skrive til regbasen og slå det til og fra der.

./psycosoft-funware :)
Avatar billede esneh Nybegynder
29. maj 2009 - 08:35 #4
Tak, søgte lidt på google omkring det, og har fået det til at fungere. smid svar, så du kan få point :)
Avatar billede psycosoft-funware Nybegynder
07. december 2009 - 16:21 #5
svar :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester