* Some additions to Windows unit by Vasil Maximov.

git-svn-id: trunk@10970 -

rtl/wince/wininc/coredll.inc

@@ -476,7 +476,6 @@
       2E9 SHGetShortcutTarget
       2EC SHLoadDIBitmap
       2EB SHShowOutOfMemory
-      482 SendInput
       11B SetACP
       1C0 SetAssociatedMenu
       3A1 SetCleanRebootFlag
@@ -2837,6 +2836,7 @@ function SelectObject(_para1:HDC; _para2:HGDIOBJ):HGDIOBJ; external KernelDLL na
 function SelectPalette(_para1:HDC; _para2:HPALETTE; _para3:WINBOOL):HPALETTE; external KernelDLL name 'SelectPalette';
 function SendDlgItemMessage(hDlg:HWND; nIDDlgItem:longint; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LONG; external KernelDLL name 'SendDlgItemMessageW';
 function SendDlgItemMessageW(hDlg:HWND; nIDDlgItem:longint; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LONG; external KernelDLL name 'SendDlgItemMessageW';
+function SendInput(nInputs:UINT; pInputs:LPINPUT; cbSize:longint):UINT; external KernelDLL name 'SendInput'; // index 482
 function SendMessage(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external KernelDLL name 'SendMessageW';
 function SendMessageW(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT; external KernelDLL name 'SendMessageW';
 function SendMessageTimeout(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM; fuFlags:UINT;uTimeout:UINT; lpdwResult:LPDWORD):LRESULT; external KernelDLL name 'SendMessageTimeout';

rtl/wince/wininc/defines.inc

@@ -2005,6 +2005,7 @@
   { keybd_event  }
      KEYEVENTF_EXTENDEDKEY = 1;
      KEYEVENTF_KEYUP = 2;
+     KEYEVENTF_SILENT = 4;
   { LoadBitmap  }
      OBM_BTNCORNERS = 32758;
      OBM_BTSIZE = 32761;
@@ -5747,6 +5748,12 @@ const
   SEE_MASK_NOCLOSEPROCESS =  $00000040;
   SEE_MASK_FLAG_NO_UI     =  $00000400;
 
+
+const
+      INPUT_MOUSE     = 0;
+      INPUT_KEYBOARD  = 1;
+      INPUT_HARDWARE  = 2;
+
 {$endif read_interface}
 
 

rtl/wince/wininc/struct.inc

@@ -7640,6 +7640,52 @@ type
   TCLIPDATA=CLIPDATA;
   PCLIPDATA=^CLIPDATA;
 
+
+type
+     tagMOUSEINPUT = record
+       dx:LONG;
+       dy:LONG;
+       mouseData:DWORD;
+       dwFlags:DWORD;
+       time:DWORD;
+       dwExtraInfo:DWORD;
+     end;
+     MOUSEINPUT = tagMOUSEINPUT;
+     PMOUSEINPUT = ^tagMOUSEINPUT;
+     LPMOUSEINPUT = ^tagMOUSEINPUT;
+
+     tagKEYBDINPUT = record
+       wVk:word;
+       wScan:word;
+       dwFlags:DWORD;
+       time:DWORD;
+       dwExtraInfo:DWORD;
+     end;
+     KEYBDINPUT = tagKEYBDINPUT;
+     PKEYBDINPUT = ^tagKEYBDINPUT;
+     LPKEYBDINPUT = ^tagKEYBDINPUT;
+
+     tagHARDWAREINPUT = record
+       uMsg:DWORD;
+       wParamL:word;
+       wParamH:word;
+       dwExtraInfo:DWORD;
+     end;
+     HARDWAREINPUT = tagHARDWAREINPUT;
+     PHARDWAREINPUT = ^tagHARDWAREINPUT;
+     LPHARDWAREINPUT = ^tagHARDWAREINPUT;
+
+     tagINPUT = record
+       _type:DWORD;
+       case longint of
+         0: (mi:MOUSEINPUT);
+         1: (ki:KEYBDINPUT);
+         2: (hi:HARDWAREINPUT);
+     end;
+    INPUT = tagINPUT;
+    PINPUT = ^tagINPUT;
+    LPINPUT = ^tagINPUT;
+
 {$endif read_interface}