С устновкой текущего монитора разобрался. Переключает как доктор прописал:)
За мой пример прошу не бросаться тухлыми яйцами - собрал для тестирования концепции и код пока не вылизывал. Желающие могут это сделать самостояятельно.
Код: Выделить всё
Program SetActiveMonitor;
uses Windows,jwawinuser,JwaWinGDI;
Const
MaxMonCount = 2; //Максимальное число поддерживаемых мониторов
Var
MonCount : Byte; //Число обнаруженных мониторов
i : byte;
// Display Devices
DevMode1 , // Текущие видеорежимы
DevMode2 : TDeviceMode;//LPDevModeA; //}_DeviceModeA;
MonNameA : array [1..MaxMonCount] of PChar; // Список имен мониторов
MonP : byte; // Номер активного монитора
function GetVideoCard(cc : byte) : String; // Выдает имя устройства по номеру
Var
lpDisplayDevice : TDisplaydevice;
dwFlags : DWORD;
begin
lpDisplaydevice.cb := Sizeof(lpDisplayDevice);
dwFlags := 0;
if EnumDisplayDevices(nil,cc,lpDisplayDevice, dwFlags) then
GetVideoCard := lpDisplayDevice.DeviceName;
end;
Procedure ChangeDisplaySettingsExResult(res : DWord);
begin
case res of
Disp_Change_Successful : Writeln('Изменение видеорежима произошло успешно');
Disp_Change_BadDualView : Writeln('Изменение видеорежима было неудачным из-за включенного режима DualView');
Disp_Change_BadFlags : Writeln('Изменение видеорежима было неудачным из-за неверных флагов');
Disp_Change_BadMode : Writeln('Изменение видеорежима было неудачным из-за неподдерживаемого видеорежима');
Disp_Change_BadParam : Writeln('Изменение видеорежима было неудачным из-за неудачных параметров. Это может быть обусловлено ошибочным флагом или набором флагов');
Disp_Change_Failed : Writeln('Изменение видеорежима было неудачным из-за ошибки интерпретации нового видеорежима драйвером видеокарты');
Disp_Change_NotUpdated : Writeln('Изменение видеорежима было неудачным из-за невозможности произвести запись в системный реестр');
Disp_Change_Restart : Writeln('Изменение видеорежима будет произведено после перезапуска компьютера')
else
Writeln('Изменение видеорежима было неудачным из-за неизвестной причины')
end;
end;
Procedure Info;
begin
// Writeln('DevMode1.dmDeviceName = ',PChar(DevMode1.dmDeviceName));
Writeln('DevMode1.dmSpecVersion = ',DevMode1.dmSpecVersion);
Writeln('DevMode1.dmDriverVersion = ',DevMode1.dmDriverVersion);
Writeln('DevMode1.dmSize = ',DevMode1.dmSize);
Writeln('DevMode1.dmDriverExtra = ',DevMode1.dmDriverExtra);
Writeln('DevMode1.dmFields = ',DevMode1.dmFields);
Writeln('DevMode1.dmOrientation = ',DevMode1.dmOrientation);
Writeln('DevMode1.dmPaperSize = ',DevMode1.dmPaperSize);
Writeln('DevMode1.dmPaperLength = ',DevMode1.dmPaperLength);
Writeln('DevMode1.dmPaperWidth = ',DevMode1.dmPaperWidth);
Writeln('DevMode1.dmScale = ',DevMode1.dmScale);
Writeln('DevMode1.dmCopies = ',DevMode1.dmCopies);
Writeln('DevMode1.dmDefaultSource = ',DevMode1.dmDefaultSource);
Writeln('DevMode1.dmPrintQuality = ',DevMode1.dmPrintQuality);
Writeln('DevMode1.dmColor = ',DevMode1.dmColor);
Writeln('DevMode1.dmDuplex = ',DevMode1.dmDuplex);
Writeln('DevMode1.dmYResolution = ',DevMode1.dmYResolution);
Writeln('DevMode1.dmTTOption = ',DevMode1.dmTTOption);
Writeln('DevMode1.dmCollate = ',DevMode1.dmCollate);
// Writeln('DevMode1.dmFormName = ',DevMode1.dmFormName);
Writeln('DevMode1.dmLogPixels = ',DevMode1.dmLogPixels);
Writeln('DevMode1.dmBitsPerPel = ',DevMode1.dmBitsPerPel);
Writeln('DevMode1.dmPelsWidth = ',DevMode1.dmPelsWidth);
Writeln('DevMode1.dmPelsHeight = ',DevMode1.dmPelsHeight);
Writeln('DevMode1.dmDisplayFlags = ',DevMode1.dmDisplayFlags);
Writeln('DevMode1.dmDisplayFrequency = ',DevMode1.dmDisplayFrequency);
Writeln('DevMode1.dmICMMethod = ',DevMode1.dmICMMethod);
Writeln('DevMode1.dmICMINTENT = ',DevMode1.dmICMINTENT);
Writeln('DevMode1.dmMediaType = ',DevMode1.dmMediaType);
Writeln('DevMode1.dmDitherType = ',DevMode1.dmDitherType);
Writeln('DevMode1.dmICCManufacturer = ',DevMode1.dmICCManufacturer);
Writeln('DevMode1.dmICCModel = ',DevMode1.dmICCModel);
Writeln('DevMode1.dmPosition.x = ',DevMode1.dmPosition.x);
Writeln('DevMode1.dmPosition.y = ',DevMode1.dmPosition.y);
Writeln('DevMode1.dmDisplayOrientation = ',DevMode1.dmDisplayOrientation);
Writeln('DevMode1.dmDisplayFixedOutput = ',DevMode1.dmDisplayFixedOutput);
Writeln;
if MonCount <> 1 Then
begin
// Writeln('DevMode2.dmDeviceName = ',PChar(DevMode2.dmDeviceName));
Writeln('DevMode2.dmSpecVersion = ',DevMode2.dmSpecVersion);
Writeln('DevMode2.dmDriverVersion = ',DevMode2.dmDriverVersion);
Writeln('DevMode2.dmSize = ',DevMode2.dmSize);
Writeln('DevMode2.dmDriverExtra = ',DevMode2.dmDriverExtra);
Writeln('DevMode2.dmFields = ',DevMode2.dmFields);
Writeln('DevMode2.dmOrientation = ',DevMode2.dmOrientation);
Writeln('DevMode2.dmPaperSize = ',DevMode2.dmPaperSize);
Writeln('DevMode2.dmPaperLength = ',DevMode2.dmPaperLength);
Writeln('DevMode2.dmPaperWidth = ',DevMode2.dmPaperWidth);
Writeln('DevMode2.dmScale = ',DevMode2.dmScale);
Writeln('DevMode2.dmCopies = ',DevMode2.dmCopies);
Writeln('DevMode2.dmDefaultSource = ',DevMode2.dmDefaultSource);
Writeln('DevMode2.dmPrintQuality = ',DevMode2.dmPrintQuality);
Writeln('DevMode2.dmColor = ',DevMode2.dmColor);
Writeln('DevMode2.dmDuplex = ',DevMode2.dmDuplex);
Writeln('DevMode2.dmYResolution = ',DevMode2.dmYResolution);
Writeln('DevMode2.dmTTOption = ',DevMode2.dmTTOption);
Writeln('DevMode2.dmCollate = ',DevMode2.dmCollate);
// Writeln('DevMode2.dmFormName = ',DevMode2.dmFormName);
Writeln('DevMode2.dmLogPixels = ',DevMode2.dmLogPixels);
Writeln('DevMode2.dmBitsPerPel = ',DevMode2.dmBitsPerPel);
Writeln('DevMode2.dmPelsWidth = ',DevMode2.dmPelsWidth);
Writeln('DevMode2.dmPelsHeight = ',DevMode2.dmPelsHeight);
Writeln('DevMode2.dmDisplayFlags = ',DevMode2.dmDisplayFlags);
Writeln('DevMode2.dmDisplayFrequency = ',DevMode2.dmDisplayFrequency);
Writeln('DevMode2.dmICMMethod = ',DevMode2.dmICMMethod);
Writeln('DevMode2.dmICMINTENT = ',DevMode2.dmICMINTENT);
Writeln('DevMode2.dmMediaType = ',DevMode2.dmMediaType);
Writeln('DevMode2.dmDitherType = ',DevMode2.dmDitherType);
Writeln('DevMode2.dmICCManufacturer = ',DevMode2.dmICCManufacturer);
Writeln('DevMode2.dmICCModel = ',DevMode2.dmICCModel);
Writeln('DevMode2.dmPosition.x = ',DevMode2.dmPosition.x);
Writeln('DevMode2.dmPosition.y = ',DevMode2.dmPosition.y);
Writeln('DevMode2.dmDisplayOrientation = ',DevMode2.dmDisplayOrientation);
Writeln('DevMode2.dmDisplayFixedOutput = ',DevMode2.dmDisplayFixedOutput);
end;
end;
Procedure Usage;
begin
WriteLN('Утилита командной строки для управления монитором.');
WriteLN('(c) Геннадий Ольховой 2012 г.');
WriteLN('bf72 at yandex.ru');
Writeln;
WriteLN('Использование:');
Writeln;
WriteLN('SetActiveMonitor.exe');
WriteLN('Вызов без параметров командной строки производит смену текущего активного монитора в системах с двумя мониторами.');
WriteLN;
WriteLN('SetActiveMonitor.exe /?');
WriteLN('Выводит на экран эту справку.');
WriteLN;
WriteLN('SetActiveMonitor.exe /i или SetActiveMonitor.exe /I');
WriteLN('Выводит общую информацио о мониторах.');
end;
BEGIN
// Инициализация...
MonCount := GetSystemMetrics(SM_CMONITORS); // Получили число мониторов
// Получаем имена мониторов
MonNameA[1] := PChar(GetVideoCard(0));
Windows.EnumDisplaySettings(MonNameA[1],0,DevMode1);
if MonCount <> 1 Then
begin
MonNameA[2] := PChar(GetVideoCard(1));
Windows.EnumDisplaySettings(MonNameA[2],0,DevMode2);
end;
// get current display settings
Windows.EnumDisplaySettings(PChar(MonNameA[1]), ENUM_REGISTRY_SETTINGS, DevMode1);
if MonCount <> 1 Then
Windows.EnumDisplaySettings(PChar(MonNameA[2]), ENUM_REGISTRY_SETTINGS, DevMode2);
// Обработка параметров команденой строки...
if ParamCount <> 0 Then
begin
if ParamStr(1) = '/?' Then
begin
Usage;
exit
end;
if (ParamStr(1) = '/i') or (ParamStr(1) = '/I') Then
begin
if ParamCount > 1 Then
Usage
Else
Info;
exit
end;
Usage; // получили неизвестный параметр командной строки.
exit
end;
// Пара строк отладки (выводит на экран список мониторов)
for i := 0 to MonCount-1 do
Writeln(GetVideoCard(i));
if MonCount = 0 Then
begin
WriteLN('В системе установлен один монитор');
exit // Ничего делать не надо
end;
// Определяем какой монитор основной
if DevMode1.dmPosition.x <> 0 then MonP := 2 // Из-за того, что список мониторов формируется без сортировки по признаку основной/вторичный
else MonP := 1; // определяем признак активности через (_!_) по координатам позиции смещения... $)
// А теперь меняем мониторы местами...
if MonP = 1 Then
begin // "Активным" был первый монитор
// move old primary display to new position
DevMode1.dmFields := DM_POSITION;
WriteLN('Монитор 1 (основной):');
WriteLN('dmPosition.x изменяем с ', DevMode1.dmPosition.x, ' на ',DevMode2.dmPelsWidth);
WriteLN('dmPosition.y изменяем с ', DevMode1.dmPosition.y, ' на 0');
DevMode1.dmPosition.x := DevMode2.dmPelsWidth;
DevMode1.dmPosition.y := 0;
ChangeDisplaySettingsExResult(
Windows.ChangeDisplaySettingsEx(PChar(MonNameA[1]), DevMode1, 0,
CDS_UPDATEREGISTRY or CDS_NORESET, nil));
WriteLN;
// move old secondary display to (0, 0) and make the primary display
WriteLN('Монитор 2 (второй):');
WriteLN('dmPosition.x изменяем с ', DevMode2.dmPosition.x, ' на 0');
WriteLN('dmPosition.y изменяем с ', DevMode2.dmPosition.y, ' на 0');
DevMode2.dmFields := DM_POSITION;
DevMode2.dmPosition.x := 0;
DevMode2.dmPosition.y := 0;
ChangeDisplaySettingsExResult(
windows.ChangeDisplaySettingsEx(PChar(MonNameA[2]), DevMode2, 0,
CDS_SET_PRIMARY or CDS_UPDATEREGISTRY or CDS_NORESET {or DM_DISPLAYFLAGS}, nil));
WriteLN;
end
Else
begin // "Активным" был второй монитор
// move old primary display to new position
DevMode2.dmFields := DM_POSITION;
WriteLN('Монитор 2 (сновной):');
WriteLN('dmPosition.x изменяем с ', DevMode2.dmPosition.x, ' на ',DevMode1.dmPelsWidth);
WriteLN('dmPosition.y изменяем с ', DevMode2.dmPosition.y, ' на 0');
DevMode2.dmPosition.x := {1601;//}DevMode1.dmPelsWidth;
DevMode2.dmPosition.y := 0;
ChangeDisplaySettingsExResult(
Windows.ChangeDisplaySettingsEx(PChar(MonNameA[2]), DevMode2, 0,
CDS_UPDATEREGISTRY or CDS_NORESET, nil));
WriteLN;
// move old secondary display to (0, 0) and make the primary display
WriteLN('Монитор 1 (второй):');
WriteLN('dmPosition.x изменяем с ', DevMode1.dmPosition.x, ' на ',0);
WriteLN('dmPosition.y изменяем с ', DevMode1.dmPosition.y, ' на 0');
DevMode1.dmFields := DM_POSITION;
DevMode1.dmPosition.x := 0;
DevMode1.dmPosition.y := 0;
ChangeDisplaySettingsExResult(
windows.ChangeDisplaySettingsEx(PChar(MonNameA[1]), DevMode1, 0,
CDS_SET_PRIMARY or CDS_UPDATEREGISTRY or CDS_NORESET {or DM_DISPLAYFLAGS}, nil));
WriteLN;
end;
WriteLN('Фиксируем установленную конфигурацию.');
ChangeDisplaySettingsExResult(
windows.ChangeDisplaySettingsEx(nil, PDeviceMode(0)^, 0, 0, nil));
END.
Но проблема в том, что хоть и переключает, но запускаемое после переключения окно нового запускаемого приложения не всегда появляется на новом активном мониторе.
Но не работет...
Пробовал Задать позицию окна, но не получается.
