| Понятие программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
TQuery не сохраняет запись Пишу прогу на Delphi7 для работы в локальной сети, Помогите - горит проект SelectDirectory, Как вызвать SelectDirectory Управление монитором, Управление монитором АлгорЫтм Вертикальная полоса прокрутки, У DBGridEh Подсчет трафика? TEmbeddedWB, TEmbeddedWB Прога не дает завершиться винде. Как побороть?, События при перезагрузке? В чем ошибка? ASPI/SCSI: HostAdapter+Target IDs, Как их получить ? MP3 компонент Модуль ShellAPI, Запуск программы! Где взять компонент для работы с CPU Клава Нужен специалист - модем-программист У меня затмение.........Требуется просветление Вычисление индекса..., Работа с массивом.... Опять TQuery. Timagelist, почему глючит код? двойные интегралы, методы решения,формулы гаусса Запуск Delphi, Запускается 2я копия Delphi Хэлпы в Дельфях Горизонтальные полосы прокрутки в ListBox. Работа с LPT портом Мессага одной программы для другой Редактирование данных в таблице Кто знает как сделать.... Меняем громкость, при наличии активного окна О DBGrid, Многострочные данные Где взять полный MSDN Растягивание формы Запуск программ на удалённой машине у кого нить есть полная версия (зареганая), компонентов XPStyle оч нужно Как Вы относитесь к курящим девушкам? Просмотр BMP файла в Паскаль-программах, Это интересно! Копирование на диск С в режиме пользователя в XP различимые ToolButton, различимые ToolButton Запущеные процессы Как убрать иконку с формы? Закрытие CD-ROM и его раскручивание Фоторобот Программа с двумя формами, Как в одном приложении создать две формы Скрытие Dock контрола Хочу свой SpeedButton GetPrivateProfileString, Чтение секции? Создание формы, Ошибка в создании формы Нужна помощь в Delphi, Подробности внутри Вопрос о Data Controls Хочу, чтобы программа не сварачивалась!?, при нажатии Windows+D??? Как подготовить инсталлятор,который ставит драйвер ShowMessage or ?, Создать сообщение независимо от проги Компонент WSocket and WServerSocket, нужно передать файл... События в Делфи, как отменить событие? Вопрос о TDBComboBox Узнать SID, Как узнать SID текущего юзера TDBNavigator, кнопки в TDBNavigator Exe, dll и сессия соединения с БД, Как использовать только 1 сессию? Как изменить оформление окна проги? Фреймы и ДЛЛ, продолжаю тему про плагины а как сделать закладки, а как сделать закладки WebSnap работа с базой ошибки в Common GateWay Interface, какие могут возникнуть Работа с локальной сетью на Delphi замена части файла перехват cookie Переполнение стека при вызове функции, Как обойти? Memo или RichEdit со смайлами, Нужно отображать смайлики Обнуление автоинкрементного поля, в таблице Paradox 7 Справка для программы, чем и как создавать? |
Платные хостинги Раскрутка сайта Книги по программированию Управление монитором, Управление монитором
- Sorry? Из Делфи управлять аапаратной частью монитора, ИМХО, вряд ли возможно. Только если управлять параметрами настройки видеокарты, тогда можно будет подправить яркость, цветность, но это всё касается сигнала с выхода видеокарты, но никак не монитора.Хотя я могу и ошибаться, ведь если такой вопрос задан, то наверняка есть и основания считать, что это возможно. Может кто-нибудь знает? Отклинитесь. - На самом деле, включать/выключать монитор можно. По крайней мере, в API функциях Windows такая команда предусмотрена. Ну а насчет других параметров - в принципе тоже возможно. Большинство "родных" драйверов позволяют центровать картинку, менять размер яркость, контрастность. Разумеется, что все это делается настройками видеокарты. - - функция программного управления есть. Управляется через USB интерфейс. Помоему в мониторах: LG F700P, Samsung 757NF - на компактах есть специальный софт. - Включить: SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITARPOWER, 1);Выключить: SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITARPOWER, 0);Может есть и другие константы для работы... - Вот, откопал:Код until Unit1;interfaceuses windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, STDCTRLS, Spin;type PDmArray= ^TDmArray; TDmArray = array [0..0] of TDeviceMode;type TForm1 = class(TForm) Memo1:TMemo; SpinEdit1:TSpinEdit; Button1:TButton; procedure FormCreate(Sender:TObject); procedure FormDestroy(Sender:TObject); procedure Button1Click(Sender:TObject); private lpDmArray: PDmArray; NumModes: integer;end;var Form1:TForm1;implementation;{$R *.DFM}procedure TForm1.FormCreate(Sender:TObject);var i:integer; MoreModes: boolean; dm: TDeviceMode;begin Memo1.Lines.Clear; Moremodes:=true; i:=0; while Moremodes do begin moremodes:=EnumDisplaySettings(nil, 1, dm); Memo1.Lines.Add('Mode ' + IntToStr(i) + ': ' + IntToStr(dm.dmBitsPerPel) + ' Bits Per Pixel ' + intToStr(dm.dmPelsWidth) + ' x ' + IntTostr(dm.dmPelsHeight)); inc(i); end; Nummodes:=i; SpinEdit1.MinValue:=0; SpinEit1.maxValue:=NumModes; GetMem(lpDmArray, SizeOf(TDeviceMode) * NumModes); FillChar(lpDmArray^, SizeOf(TDeviceMode)*NumModes, #0); {$IFOPT R+} {$DEFINE CKRANGE} {$R-} {$ENDIF} for i:=0 to NumModes-1 do EnumDisplaySettings(nil, i, lpDmArray[i]); {$IFDEF CKRANGE} {$UNDEF CKRANGE} {$R+} {$ENDIF}end;procedure TForm1,Button1Click(Sender:TObject);var ReturnVal: LongInt;begin {$IFOPT R+} {$DEFINE CKRANGE} {$R-} {$ENDIF} ReturnVal:=ChangeDisplaySettings(lpDmArray[SpinEdit1.Value], CDSUPDATEREGISTRY); {$IFDEF CKRANGE} {$UNDEF CKRANGE} {$R+} {$ENDIF} if not ReturnVal = DISP_CHANGE_SECCESSFUL then ShowMesage('error'); {Ошибки можно поискать рядом с константой DISP_CHANGE_SECCESSFUL}end;procedute TForm1.FormDestroy(Sender:TObject);begin FReeMem(lpDmArray, SizeOf(TDeviceMode) * NumModes);end;end.highlightSyntax('delphiVlOGFh','delphi');Извините за возможные опечатки... - У знатоков ASM'а надо спросить... - Если конечно конкретный монитор, то можно дровишки глянуть. Если же монитор неизвестен, то согласен с товарищами которые ответили выше. В принципе, с монитором можно делать все что угодно, в том числе и с видео-картой. Можно даже вирус на дельфях написать, который будет вставлять так называемый 25 кадр... ну это уже извращение извращенного ума...  |