Отличное решение.
Потратил 2 месяца ходьбы по форумам.
Господа, где вы были?

procedure TDecEditForm.Memo1KeyPress(Sender: TObject; var Key: Char);
VAR s:String;  RL:Byte;
begin
IF key=CHR(VK_RETURN) Then
Begin
//WIN NT/2000
If (GetVersion() and $80000000)=0 then
BEGIN
 IF ((Word(GetKeyState(VK_LSHIFT)) and $8000)<>0)  Then
 Begin
 End;

 IF ((Word(GetKeyState(VK_RSHIFT)) and $8000)<>0)  Then
 Begin
 End;
End
ELSE
//WIN 9.x
Begin
 asm
  mov ah,2
  int $16
  mov RL,al
 end;
if 1 = (RL and 1) then  //  ПРАВЫЙ SHIFT НАЖАТ+ENTER
Begin
End;
if 2 = (RL and 2) then  //  ЛЕВЫЙ SHIFT НАЖАТ+ENTER
Begin
End;
End;
//WIN 9.x
END;
End;

P.S.
Привожу первоисточник.
Prog2 Michael
Member

Откуда: Саяногорск, Хакасия, Россия
написано 05.09.2002 06:27 Инфо • Правка • Ответить • IP

--------------------------------------------------------------------------------

цитата (Kid_Deceiver):
--------------------------------------------------------------------------------
Фигней не майтесь....
--------------------------------------------------------------------------------

А я попробую чуть-чуть. Можно?

cherry
код:
--------------------------------------------------------------------------------

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);var  state : Byte;begin  asm    mov ah,2    int $16    mov state,al  end;  if 1 = (state and 1) then    Label1.Caption := 'RShift is down'  else    Label1.Caption := 'RShift is up';   if 2 = (state and 2) then    Label2.Caption := 'LShift is down'  else    Label2.Caption := 'LShift is up';end;

--------------------------------------------------------------------------------