Регулировка яркости дисплея ноутбука

@rjxxx · Регистрация: 25.10.2011

Студворк — интернет-сервис помощи студентам

Хочу написать программу, которая регулирует яркость подсветки (как кнопки на ноуте Fn+). В инете нашел, что регулировку можно производить с помощью функции WinAPI DeviceIoControl с ключом IOCTL_VIDEO_SET_DISPLAY_BRIGHTNESS. Не могу понять как это сделать.

@Бородач · 06.10.2012, 16:32

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
type
  TRampArray = Array[0..2] of Array[Byte] of Word;
var
  OrigRampArray: TRampArray;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  DC: HDC;
begin
  TrackBar1.Max := 255;
  TrackBar1.Position := 128;
  DC := GetDC(0);
    if not GetDeviceGammaRamp(DC, OrigRampArray) then ReleaseDC(0, DC);
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  DC: HDC;
begin
  DC := GetDC(0);
    if not SetDeviceGammaRamp(DC, OrigRampArray) then ReleaseDC(0, DC);
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
var
  RampArray: TRampArray;
  i, Value: Integer;
  DC: HDC;
begin
  for i := 0 to MAXBYTE do
    begin
      Value := i * (TrackBar1.Position + 128);
        if (Value > MAXWORD) then Value := MAXWORD;
      RampArray[0][i] := Value;
      RampArray[1][i] := Value;
      RampArray[2][i] := Value;
    end;
  DC := GetDC(0);
    if not SetDeviceGammaRamp(DC, RampArray) then ReleaseDC(0, DC);
end;

@rjxxx · 06.10.2012, 21:04 **[ТС]**

Бородач, это код регулирует гамму, а мне нужна подсветка

@саша40 · 07.10.2012, 20:33

Сообщение от rjxxx

Бородач, это код регулирует гамму, а мне нужна подсветка

какую имено подсветку? Гамма и есть яркость монитора(у вас монитор ноутбука).

@rjxxx · 08.10.2012, 17:50 **[ТС]**

саша40, яркость которая регулируется клавишами на ноуте Fn+"F6" (например);
Мне нужно реализовать на Delphi.

@Sano_Litch · 09.10.2012, 09:42

Не знаю, прокатит-нет, но как вариант можно отловить код клавиши Fn и F6, затем эмулировать нажатие, раз уж так необходимо выполнить такую команду

Вот статья по тому как эмулировать нажатие
http://www.delphisources.ru/pa... tion2.html

Тут программка для отлова кода клавиш
http://delphiexpert.ru/view_download.php?id=76

@rjxxx · 09.10.2012, 17:17 **[ТС]**

Sano_Litch, довольно полезные статейки, но нужно специальное ПО что яркость регулировать, а мне его использовать ненужно

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@rjxxx Фрилансер 74 / 74 / 51 Регистрация: 25.10.2011 Сообщений: 321

	Регулировка яркости дисплея ноутбука 06.10.2012, 11:13. Показов 5070. Ответов 6 Метки нет (Все метки) Хочу написать программу, которая регулирует яркость подсветки (как кнопки на ноуте Fn+). В инете нашел, что регулировку можно производить с помощью функции WinAPI DeviceIoControl с ключом IOCTL_VIDEO_SET_DISPLAY_BRIGHTNESS. Не могу понять как это сделать. 0

@rjxxx Фрилансер 74 / 74 / 51 Регистрация: 25.10.2011 Сообщений: 321
	06.10.2012, 21:04 [ТС]
	Бородач, это код регулирует гамму, а мне нужна подсветка 0

@rjxxx Фрилансер 74 / 74 / 51 Регистрация: 25.10.2011 Сообщений: 321
	08.10.2012, 17:50 [ТС]
	саша40, яркость которая регулируется клавишами на ноуте Fn+"F6" (например); Мне нужно реализовать на Delphi. 0

@Sano_Litch 20 / 20 / 6 Регистрация: 04.07.2012 Сообщений: 73
	09.10.2012, 09:42
	Не знаю, прокатит-нет, но как вариант можно отловить код клавиши Fn и F6, затем эмулировать нажатие, раз уж так необходимо выполнить такую команду Вот статья по тому как эмулировать нажатие http://www.delphisources.ru/pa... tion2.html Тут программка для отлова кода клавиш http://delphiexpert.ru/view_download.php?id=76 1

@rjxxx Фрилансер 74 / 74 / 51 Регистрация: 25.10.2011 Сообщений: 321
	09.10.2012, 17:17 [ТС]
	Sano_Litch, довольно полезные статейки, но нужно специальное ПО что яркость регулировать, а мне его использовать ненужно 0