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:
Coloquem na parte Form » Events » OnCloseQuery para impedir de fechar no Alt + F4
.
Crie um Timer, nele coloque o interval 1 e adiciona os seguintes comando para fechar o Ctrl + Alt + Del e Menu Iniciar
Estes comandos impedem fechar a janela, em relação a impedir mudar a janela faça o seguinte:
Alterem da forma que quiser!
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);
Voltar - ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOWNORMAL);
.
if CanClose then
CanClose := false;
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);
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.
Comment