Versão Completa: Bloquear Computador!
Galera boa tarde. Preciso desenvolver um aplicativo que simule o bloqueio do computador tipo: 'Winkey+L'. Alguém sabe como simular estes comandos?
Consegui!1) Inclua a uses WINDOWS.
2) Código.
CODE
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); // { Mantém pressionada o WinKey }
keybd_event(76, 0, 0, 0); //{ Pressionada a letra 'L' }
keybd_event(VK_LWIN, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // { Libera (solta) o WinKey}
end;
begin
keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); // { Mantém pressionada o WinKey }
keybd_event(76, 0, 0, 0); //{ Pressionada a letra 'L' }
keybd_event(VK_LWIN, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // { Libera (solta) o WinKey}
end;
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.