Quick Tips : Dicas da API do Windows - Parte II

Veja nesta Quick dicas de API do Windows

Olá galera, nesta Quick Tips, irei continuar mostrando alguns recursos que podemos trabalhar com o Windows Parte 2.

procedure TForm1.BitBtn2Click(Sender: TObject); begin //Exibir o Relogio do Windows ShowWindow(FindWindowEx(FindWindowEx( FindWindow('Shell_TrayWnd', nil),HWND(0), 'TrayNotifyWnd', nil), HWND(0), 'TrayClockWClass', nil), SW_SHOWNORMAL); //Ocultar o Relogio do Windows ShowWindow(FindWindowEx(FindWindowEx( FindWindow('Shell_TrayWnd', nil),HWND(0), 'TrayNotifyWnd', nil), HWND(0), 'TrayClockWClass', nil), SW_HIDE); //Desligar, Reiniciar, Logoff ExitWindowsEx(EWX_REBOOT, 0) ; ExitWindowsEx(EWX_SHUTDOWN, 0) ; ExitWindowsEx(EWX_LOGOFF, 0) ; end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@lithic.com.br

Artigos relacionados