Вверх ↑
Ответов: 685
Рейтинг: 142
#1: 2021-11-20 20:20:06 ЛС | профиль | цитата
egorhay, Не представляю как можно программой переключать выходы на мониторе. Наверное нужны специальные драйвера для этого.
А для того чтобы просто отключать экран можно воспользоваться и стандартными компанентами.
Вот два варианта.
Add(MainForm,2953706,77,112)
{
Width=313
Height=230
Caption="display off."
}
Add(WinExec,3485469,224,189)
{
FileName="powershell.exe"
Param="-Command "(Add-Type '[DllImport(\"user32.dll\")]public static extern int SendMessage(int hWnd,int hMsg,int wParam,int lParam);' -Name a -Pas)::SendMessage(-1,0x0112,0xF170,2)""
Mode=0
}
Add(SendMessage,10948949,224,119)
{
WParam=61808
LParam=2
Point(Message)
link(onSend,9466846:doPosition,[])
link(Handle,1043077:Value,[])
link(Message,8650859:Value,[])
}
Add(Memory,1043077,224,28)
{
Default=Integer(-1)
}
Add(Memory,8650859,245,70)
{
Default=Integer(274)
}
Add(Button,14031168,133,119)
{
Left=30
Top=45
Width=80
Caption="SendMessage"
link(onClick,10948949:doSendMessage,[])
}
Add(Button,6444697,133,189)
{
Left=30
Top=85
Width=80
Caption="Powershell"
link(onClick,3485469:doExec,[])
}
Add(MouseEvent,9466846,301,105)
{
Point(doPosition)
link(X,12281532:Var2,[])
link(Y,12281532:Var3,[(321,82)])
}
Add(Memory,15052362,308,42)
{
Default=Integer(0)
}
Add(GetDataEx,12281532,308,77)
{
link(Data,15052362:Value,[])
}

карма: 15

0
Редактировалось 2 раз(а), последний 2021-11-20 20:27:37