Эмуляция стандартных и мультимедийных клавиш

Const
  KEYEVENTF_KEYUP = $0002;
  VK_VOLUME_DOWN = $AE;
  VK_VOLUME_UP = $AF;
{..............................}
 
    Case s[i] of
      $40: begin
          keybd_event(VK_VOLUME_DOWN, 0, 0, 0);
          keybd_event(VK_VOLUME_DOWN, 0, KEYEVENTF_KEYUP, 0);
        end;
      $80: begin
          keybd_event(VK_VOLUME_UP, 0, 0, 0);
          keybd_event(VK_VOLUME_UP, 0, KEYEVENTF_KEYUP, 0);
        end;
      $41: begin
          keybd_event(VK_DOWN, 0, 0, 0);
          keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
        end;
      $81: begin
          keybd_event(VK_UP, 0, 0, 0);
          keybd_event(VK_UP, 0, KEYEVENTF_KEYUP, 0);
        end;
      $42: begin
          keybd_event(VK_NEXT, 0, 0, 0);
          keybd_event(VK_NEXT, 0, KEYEVENTF_KEYUP, 0);
        end;
      $82: begin
          keybd_event(VK_PRIOR, 0, 0, 0);
          keybd_event(VK_PRIOR, 0, KEYEVENTF_KEYUP, 0);
        end;
      $43: begin
          mouse_event(MOUSEEVENTF_WHEEL, 0, 0, DWORD(-240), 0);
        end;
      $83: begin
          mouse_event(MOUSEEVENTF_WHEEL, 0, 0, DWORD(240), 0);
        end;
    end; {Case}
 
{..............................}