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
