Есть проблема! Надо отловить все нажатия клавиш пользователя и определить, какая именно клавиша нажата.
Под Windows все работает, но с DOS есть неувязки!
Я использую комманду GetAsyncKeyState, может есть другой путь решения?

ну так GetAsyncKeyState это из виндосовского АПИ так что под досом не заработает 100%
используй какуюнить стандартную функцию как к примеру getchar() в Си
в паскале не знаю просто как

Однозначно тебе нужно использовать Хук. Перехват всех событий в Windows (в том числе и событий от клавиатуры) выполняется с помощью вызова функции SetWindowsHook[Ex](). Данная функция регистрирует в системе Windows ловушку (hook) для определенного типа событий/сообщений. Ловушка - это пользовательская процедура, которая будет обрабатывать указанное событие.

Цитата

Var CountChars:Integer; //Количество выловленных символов        Str:String; //Накопитель выловленых символов        HookHandle: hHook; //Хранит значение предыдущего обработчика клавы, который был по умолчанию //Объявление функции обработки нажатии клавиатуры Function KeyboardProc(Code: integer; WParam: WParam; LParam: LParam): LResult; stdcall; //Обработчик событий от клавиатуры   Type TWParamTranslation=Record                            Byte12:Word;                            Byte3:Byte;                            Byte4:Byte;                           End; Begin   If TWParamTranslation(LParam).Byte4 and 128<>0 Then //Отлавливается сообщение, в котором                                                       //содержится символ   Begin    Inc(CountChars);    Str:=Str+Chr(WParam);   End;   If Length(Str)>20 Then SendMessage(fMain.Handle,WM_Received,0,0); //Останавливаем перехват                        //клавиатуры в случае, когда выловлено необходимое количество символов End; Procedure StartHook; //Начинает перехват событий от клавиатуры Begin    CountChars:=0;    Str:='';    HookHandle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, Hinstance, 0); End; Procedure StopHook; //Прекращает перехват событий от клавиатуры Begin   UnhookWindowsHookEx(HookHandle); End;

Небольшое дополнение: можно вызвать прежний обработчик клавиатуры, вызвав функцию CallNextHookEx()

И еще, все объявления находятся тут: WinTypes, WinProcs;

neutrino не будет оно в дос сессии ловить кнопочки
покрайне мере я делал не получилось
в виндосе все ловит прекрасно
просто вопрос так поставлен что его можно по разному понять еслиб Piton
уточнил что он имеет в виду под словом DOS (чистый дос, дос сессию (эмуляцию) в виндосе)
тогдаб можно было и по конкретней обьяснить

Угу, в эмуляции запустить :etWindowsHook будет крайне тяжело.

А мой способ с Дос окном должен работать...

Если надо под чистым ДОСом, могу написать программу. (Ну, типа клавиатурный шпион). А под винду - хуки. Это уже написали.

Ловит нажатие любой клавиши в DOC, но это правдв чистый Паскаль
function ReadKeyWord:word;
var Regs:Registers;
begin
with Regs do begin
AH:=0;
intr($16,Regs);
ReadKeyWord:=AX
end
end;
Вообще ничего такого, чтобы не работало в Delphi здесь нет.

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

cot, боюсь что это не все клавиши.
С Shift-Ctrl-Alt, с xxxxLock, с PrintScreen, c Pause/Break работать не будет.

dsergey
ну не знаю недавно написал кейлогер
все ловит окромя доссесии
обычный глобальный хук на клаву использовал

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

dsergey, прочитай статью и посмотри прилагаемые к ней исходники.

http://www.delphimaster.ru/articles/hooks/index.html

Это уже классика жанра

cot, боюсь что это не все клавиши.
Насчет клавиш не знаю по идее должно перехватывать все. Дело в другом в Делфи нет Паскалевого модуля Dos или WinDos , которые содержат запись Register

cot, да не в этом дело. Это можно сделать на асме. Твоя функция:

Код

function ReadKeyWord : Word; var R : Word; begin   asm      mov ah,0      int 16h      mov R,AX   end;   Result := R; end

Только это не даст тебе возможности ловить клавиши всех процессов. Не путай ДОС с многозадачной системой.

Здравствуйте, извините, что долго не отвечал - болел и на работу не ходил!

Хочется чуть пояснить - нужна программа, отлавливающая в системе нажатия клавиш с буквами и цифрами, но проблема в том, что пользователь частенько сидит в редакторе под Norton Commander (в DOS сессии), и вот здесь я уже не могу что-либо отловить. Хуки тоже не срабатывают!

Цитата

Однозначно тебе нужно использовать Хук. Перехват всех событий в Windows (в том числе и событий от клавиатуры) выполняется с помощью вызова функции SetWindowsHook[Ex](). Данная функция регистрирует в системе Windows ловушку (hook) для определенного типа событий/сообщений. Ловушка - это пользовательская процедура, которая будет обрабатывать указанное событие.

Кстати, neutrino, как можно передать дальнейшую обработку системе событий, поступающих с клавы, т.к. после установки данного хука, клава "замолкает", а файлик растет!

ну ты его ставиш с SetWindowsHookEx
а потом после получения кнопочки передаеш дальше с CallNextHookEx