interdire alt F4 et ctrl_alt_suppr

**gilles641** · 21/07/2005, 13h06

Bonjour,
Je voulais savoir si il etait possible d interdire ces deux combinaisons de touches.
G trouve une fonction qui est censee ne pas afficher le processus lors dun ctrl alt suppr, mais apparemment ca ne marche pas, c ss doute incompatible ac 2000

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure ctrl_alt_suppr;
var handle:integer;
    proc:function(dwProcessId: DWORD; dwType: DWORD)
     : DWORD; stdcall;
begin
Handle:=LoadLibrary('krn386.exe');
if Handle=0 then Handle:=LoadLibrary('kernel32.dll');
if Handle<>0 then
  begin
 
    @proc:=GetProcAddress(Handle, 'RegisterServiceProcess');
    if @proc<>nil then
    proc(0,1);
    FreeLibrary(Handle);
  end;
end;

merci d avance

**gilles641** · 21/07/2005, 14h00

Pour alt f4 g fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
    if ((ssAlt in Shift) and (Key = VK_F4)) then
       Key := 0;
 
    end;