Заставить мигать Scroll Lock

[snegok74]

Пытался заставить мигать светодиоды на клавиатуре.
Обычный метод включать/выключать CapsLock и ScrollLock не подходит т.к. он влияет на ввод с клавиатуры.
Нашел другой способ но не могу корректно использовать (вызывать )библиотечные функции.
Помогите пожалуйста правильно вызвать.
файлы:
- DLLка и DEMO EXEшник.rar - скомпилированая dll из которой надо вызвать функции и EXEшник показывающий как она работает.
- Исходники на СИ.rar - исходники dll и exe файлов из архива "DLLка и DEMO EXEшник"
- мой проект который при вызове функций из dll дает сбой.

[Stilet]

На Delphi World есть отличный пример с Keyb_event. Там на делфе но смысл остается

[snegok74]

возможно я что то не понял но, по моему все эти примеры изменяют состояние клавиатуры(SetKeyboardState) - то есть если вспыхивает лампочка CapsLock то с клавиатуры начинают вводится буквы в верхнем регистре, а в Excell'е работать при регулярно включающемся ScrollLock'е совсем не удобно :-D Вложеная выше библиотека зажигая светодиод не меняет состояние клавиатуры.

[mutabor]

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

const
  KEYBOARD_CAPS_LOCK_ON   =  4;
  KEYBOARD_NUM_LOCK_ON    =  2;
  KEYBOARD_SCROLL_LOCK_ON =  1;

procedure TForm1.Button1Click(Sender: TObject);
var
  hndKbdDev: THandle;
  i,e: integer;
begin
  hndKbdDev:=OpenKeyboardDevice(0);
  if (hndKbdDev = INVALID_HANDLE_VALUE)	then	// Was the device opened?
    begin
    e := GetLastError();
    ShowMessage('Unable to open the device. error '+IntToStr(e));
    end
  else
    for i:=0 to 2 do
      begin
      FlashKeyboardLight(hndKbdDev, KEYBOARD_NUM_LOCK_ON, 250);
      FlashKeyboardLight(hndKbdDev, KEYBOARD_CAPS_LOCK_ON, 250);
      FlashKeyboardLight(hndKbdDev, KEYBOARD_SCROLL_LOCK_ON, 250);
      end;
  CloseKeyboardDevice(hndKbdDev);
  Halt; //иначе будет ошибка
end;

[snegok74]

Отлично! Пример заработал с первого раза.
Все таки Halt лучше, чем исключения отлавливать, наверно

Огромное спасибо уважаемый "mutabor"!!!

[nzerg]

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

[Stilet]

без включения самой функции?

Какой еще функции?

[Terran]

Можно сделать так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_SCROLL, 0, 0, 0);
keybd_event(VK_SCROLL, 0, vk_up, 0);
end;

Это если надо для нум лока и капс лока:

keybd_event(VK_NUMLOCK, 0, 0, 0);
keybd_event(VK_NUMLOCK, 0, vk_up, 0);

keybd_event(VK_CAPITAL, 0, 0, 0);
keybd_event(VK_CAPITAL, 0, vk_up, 0);

[nzerg]

простите. я в программировании ни в зуб ногой
можете в екзешник скомпилировать и выложить?
заранее кланяюсь в ноги)

[Stilet]

Кланяйся, выкладываю: