Управление отображением рабочего стола Windows на нескольких экранах

Posted by Человек_Борща under Delphi, Win Api, Windows, Пост-обзор, Топик-обзор

Пост на основе этой темы.

В настройках персонализации есть настройки экрана, которые позволяют управлять отображением рабочего стола на одном и более экранах, одновременно.

Как же управлять этим программно?

Начиная с ОС Windows 7 есть специальная системная утилита: displayswitch.exe живет в %SystemRoot%\System32\ папке.

Принимает параметры:

1. /internal — Отображать рабочий стол только на основном мониторе
2. /clone — Отображать рабочий стол на всех мониторах (клонирование)
3. /extend — Расширить рабочий стол на кол-во мониторов (Имея 2 монитора, 50% рабочего стола будет отображена на 1, остальные 50% на втором).
4. /external — Отображать рабочий стол только на втором мониторе (Основной будет выключен)

Пример использования в Delphi:

//Добавить в uses модули ShellAPI,SysUtils,Windows
var
sDir:string; //Рабочая папка приложения displayswitch.exe
begin
sDir:=IncludeTrailingPathDelimiter(GetEnvironmentVariable('SYSTEMROOT')) + 'System32\';
ShellExecute(0,PChar('Open'),PChar(sDir+'displayswitch.exe'),PChar(' /extend'),PChar(sDir),SW_HIDE);
end;


Данный пример, скрытно, переключает рабочий стол в режим расширенного отображения на всех подключенных экранах.

Спасибо: doktor255

Похожие статьи

• Как нарисовать что-то на рабочем столе?
• При нажатии кнопки открыть сайт
• Запустить выбранные адреса в checklistbox
• Как разархивировать rar архив?
• Как запустить из подкаталога?
• Как настроить форму так, чтобы она была над Desktop’ом но под всеми остальными окнами?
• Перевести тип String в PAnsiChar
• Рисовать на рабочем столе
• Как запустить программу указанную в Edit.Text
• Как отключить службу?