Delphi Impedir de fechar a janela de TODAS as formas possíveis.

[Kaao]

Neste pequeno tutorial, colocarei alguns conhecimentos meus para seu usso.
Eu não me responsabilizo do usso dos meus conhecimentos!

Coloquem os seguintes comandos num Time que se inciará ao ligar o form ou então na parte Form » Events » OnCreat.
Como esconder o Menu Iniciar:

Esconder - ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE);
Voltar - ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOWNORMAL);

Coloquem na parte Form » Events » OnCloseQuery para impedir de fechar no Alt + F4
.

if CanClose then

CanClose := false;

Crie um Timer, nele coloque o interval 1 e adiciona os seguintes comando para fechar o Ctrl + Alt + Del e Menu Iniciar

var
janela : HWND;

begin

janela := findwindow(nil,'Gerenciador de tarefas do Windows');
postmessage(janela,WM_close,0,0);

janela := findwindow(nil,'Menu Iniciar');
postmessage(janela,WM_close,0,0);

Estes comandos impedem fechar a janela, em relação a impedir mudar a janela faça o seguinte:

Form » Possition.

Alterem da forma que quiser!

[usuario007]

muito bao gostei disso vlw