Продолжаю тему правого/левого SHIFT.
Нужно отслеживать комбинацию CONTROL+ENTER, LSHIF+ENTER и RSHIFT+ENTER.
CONTROL+ENTER - работает, а с шифтами проблема, хотя отдельно asm-код работает.
Что я делаю неправильно?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
var
RSHIFT, LSHIFT: Byte;
begin
If key=VK_RETURN Then
BEGIN
 IF ((Word(GetKeyState(VK_CONTROL)) and $8000)<>0)  Then
  ShowMessage('CONTROL+ENTER');

RSHIFT := 0; LSHIFT := 0;
asm
  in al, 60h
  cmp al, 36h
  jne @@exit
    mov RSHIFT,1
  @@exit:
end;
asm
  in al, 60h
  cmp al, 2Ah
  jne @@exit
    mov LSHIFT,1
  @@exit:
end;
if RSHIFT = 1 then ShowMessage('RSHIFT+ENTER');
if LSHIFT = 1 then ShowMessage('LSHIFT+ENTER');
END;
End;

Че-то я не совсем понял, че там не работает, но вот этим я может отвечу.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Bool((GetKeyState(VK_LSHIFT) and $8000) and (GetKeyState(VK_CONTROL))) then
 ShowMessage ('ctrl+shift');
 if Bool((GetKeyState(VK_LSHIFT) and $8000) and (GetKeyState(VK_RETURN))) then
 ShowMessage ('enter+shift');
end;

В Win95/98 GetKeyState не работает, поэтому нажатие правого и левого shift определяется через прерывание.
Но в комбинации с ENTER в приведенном выше коде левый и правый шифты перестают определяться.

Цитата(CHERRY @ 30.7.2002, 18:18)

В Win95/98 GetKeyState не работает, поэтому нажатие правого и левого shift определяется через прерывание.

Тогда GetAsyncKeyState- работает 100%

Цитата (CHERRY @ 30.7.2002,18:18)
Я не цицатор, я ищу решение!

Очень содержательный ответ!
Если ты лично проверял эту ф-ю под Win 95/98 не сочти за труд,
правильный код. Я бъюсь уже 3 мемяца над решением. Под NT
системами у меня нет проблем. А под 95/98 трудности.
АСЕМБЛЕР-код мне подсказал Vit. Он отлично работает, но в комбинации с ENTER,
нет. Где ошибка в моем коде?
Заранее благодарен.

Вообще-то, ассемблерный код я тебе написал...но дело не в этом...на днях поставлю 98 и посморю, просто порты ввода-вывода не работают в НТ(система не дает).

Лучше hook'ов могут быть только hook'и

Код

var hhandle:THandle;    Shifts:record           Left,right:BOOLEAN;           end; function KeyboardProc(code:integer;wParam:WPARAM;lParam:LPARAM):HResult;StdCall;Export; Const KEY_LSHIFT=$2A0000;      KEY_RSHIFT=$360000;      KSTATE=$80000000; begin  if code<0 then  begin    Result:=CallNextHookEx(hhandle,Code,wParam,lParam);    Exit;  end;   if (code=HC_ACTION)and(wparam in [0..255]) then     begin       if (wparam=vk_shift)and(lparam and $FF0000=KEY_LSHIFT) then Shifts.Left:=lparam and KSTATE=0;       if (wparam=vk_shift)and(lparam and $FF0000=KEY_RSHIFT) then Shifts.Right:=lparam and KSTATE=0;       if (lparam and KState<>0)and(wParam=13)and Shifts.Left then showmessage('LShift+Enter');       if (lparam and KState<>0)and(wParam=13)and Shifts.Right then showmessage('RShift+Enter');       if (lparam and KState<>0)and(wParam=13)and(GetAsyncKeyState(VK_CONTROL)and $8000<>0)then showmessage('CTRL+ENTER');     end;  CallNextHookEx(hhandle,Code,wParam,lParam);  Result:= 0; end; procedure TForm1.FormCreate(Sender: TObject); begin hhandle:=SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,0,GetWindowLong(handle,GWL_ID)); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin UnhookWindowsHookEx(hhandle); end; Exports KeyboardProc;

А зачем хуки, если в своей программе ловим?

Вообще, все решается намного проще...вот так я делал дааавно кады еще 2К не было.

Код

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Bool((GetKeyState(VK_LSHIFT) < -126) and (GetKeyState(VK_CONTROL) < -126 )) then ShowMessage ('ctrl+shift'); if Bool((GetKeyState(VK_LSHIFT) < -126) and (GetKeyState(VK_RETURN) < -126 ))      then ShowMessage ('enter+shift'); end;

Да, но надо разобрать левый/правый shift, а в 98 только на vk_shif приходит, а на vk_lshift/vk_rshift нету.

Приведенный ниже код работает только в пошаговом режиме.
А вне отладчика не работает. Почему?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
var
RLSHIFT: Byte;
begin
If key=VK_RETURN Then
BEGIN

 RLSHIFT:=0;
 asm
  in al, 60h
  cmp al, 36h
  mov  RLSHIFT,al
 end;

 if (RLSHIFT = 182) then  ShowMessage('ПРАВЫЙ SHIFT НАЖАТ+ENTER');
 if (RLSHIFT = 170) then  ShowMessage('ЛЕВЫЙ SHIFT НАЖАТ+ENTER');
END;
end;

asm
 in al, 60h
 cmp al, 36h
 mov  RLSHIFT,al
end;
Если ты решил делать так - то хоть сотри cmp al, 36h все равно далее нету условного перехода и т.д. посему эт просто не надо далее, внеси
RLSHIFT:=0; в асм
т.е.
asm
 xor al, al
 mov RLSHIFT, al
 in al, 60h
 mov RLSHIFT, al
end;
А вообще, я тебе уже написал, как заставить работать GetKeyState под 98...

Меня затерли на форуме. Пароль не воспринимается, письма на забывчивость пароля не приходят по адресу [email protected], несмотря ни на что, продолжаю задавать не решенный вопрос:
If key=VK_RETURN Then
BEGIN

asm
xor al, al
mov RLSHIFT, al
in al, 60h
mov RLSHIFT, al
end;

if (RLSHIFT = 182) then  ShowMessage('ПРАВЫЙ SHIFT НАЖАТ+ENTER');
if (RLSHIFT = 170) then  ShowMessage('ЛЕВЫЙ SHIFT НАЖАТ+ENTER');
END;
Если поставить в отладчике точку прерывания на начале кода, то RLSHIFT возвращает нужное значение.
Если поставить в отладчике точку прерывания на IF, то код не работает.
ИНАЧЕ ГОВОРЯ В ПОШАГОВОИ РЕЖИМЕ РАБОТАЕТ, А САМ ПО СЕБЕ НЕТ.
КТО СМОЖЕТ МЕНЯ ОСВОБОДИТЬ ОТ МУЧЕНИЙ?
С большим компьютерным приветом CHERRY(лишенный на форуме имени)

Я вернулся. Спасибо тому, кто за этим наблюдает.
Но неужели на столь уважаемом форуме моя затертая тема так и умрет?
Вот код:
If key=VK_RETURN Then
BEGIN
asm
xor al, al
mov RLSHIFT, al
in al, 60h
mov RLSHIFT, al
end;

if (RLSHIFT = 182) then  ShowMessage('ПРАВЫЙ SHIFT НАЖАТ+ENTER');
if (RLSHIFT = 170) then  ShowMessage('ЛЕВЫЙ SHIFT НАЖАТ+ENTER');
END;

Если поставить точку прерывания поставить скажем в строке "xor al, al"
то значения RLSHIFT принимают нужные значения, если остановить программу
в строке if (RLSHIFT = 182) then  ..., то значения RLSHIFT принимает 28.
Пчему в пошаговом режиме код работает, а в скомпилированном нет?

Тебя мой hook не устраивает? Или религия не позволяет использовать ловушки в программах?