Blokada Alt+F4 w win XP??

0

Witam czytałem posty o tej tematyce , lecz nie znalazlem konkretnej odpowiedzi, a więc: Czy jest możliwość zablokowania kombinacji klawiszy Alt+F4 W windows XP?? I czy jest prostszy sposób wyłączenia Alt+Ctrl+Del niż ten w którym trzeba dodać wpis do rejestru ??

0

Witaj
Do Private wpisz taki kod:

procedure wm_HOTKEY(var Msg:TMessage);message WM_HOTKEY;

na kodzie naciśnij kombinację klawiszy Ctrl+Shift+C i wpisz:

procedure TForm1.wm_HOTKEY(var Msg: TMessage);
begin
  if Msg.WParam = $0001 then
  Application.Restore; // przywrócenie aplikacji
end;

w OnClose formy wpisz:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Form1.Handle, $0001);
end;

w OnCreate formy wpisz:

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Form1.Handle, $0001, MOD_ALT,  VK_F4);
end;

Pozdrawiam ;)

0

Alt+F4 ogólnie czy tylko żeby twojej aplikacji tak nie zamknąć ? bo jak to drugie to wystarczy w onclosequery dać CanClose := false; a Ctrl+Alt+Del to nie wiem chyba się nie da ale się zastanawiam czy można by było zrobić myk że wychwytywać naciśnięcie Ctrl'a i w funkcji obsługującej wysłać komunikat do systemu że został on od razu wyciśnięty

0

Dzięki chłopaki za podpowiedzi.A więc został jedynie problem tyko z Ctrl+Alt+Del.
Prodeura na ALT+F4 działa OK.

POZDRAWIAM

0

zadałeś pytanie, czekałeś na odpowiedz ponad 12 godzin, a nie prościej było tak: http://www.google.com/search?client=opera&rls=pl&q=delphi+disable+ctrl+alt+del&sourceid=opera&num=50&ie=utf-8&oe=utf-8 ???? I nie pisz, żeby Cię do google nie odsyłać bo odpowiedzi masz już w pierwszych 3 wynikach (znacz obojętnie w który klikniesz to masz odpowiedz) na 100% bo sprawdzałem

1 użytkowników online, w tym zalogowanych: 0, gości: 1