paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:26:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some additions to Windows unit by Vasil Maximov.

Browse Source 
git-svn-id: trunk@10970 -
This commit is contained in:
yury 2008-05-14 16:26:02 +00:00
parent 6e1c3a06a1
commit 45980d423d
3 changed files with 54 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/wince/wininc/coredll.inc
View File

@ -476,7 +476,6 @@
2E9 SHGetShortcutTarget 2E9 SHGetShortcutTarget
2EC SHLoadDIBitmap 2EC SHLoadDIBitmap
2EB SHShowOutOfMemory 2EB SHShowOutOfMemory
482 SendInput
11B SetACP 11B SetACP
1C0 SetAssociatedMenu 1C0 SetAssociatedMenu
3A1 SetCleanRebootFlag 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 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 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 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 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 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'; function SendMessageTimeout(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM; fuFlags:UINT;uTimeout:UINT; lpdwResult:LPDWORD):LRESULT; external KernelDLL name 'SendMessageTimeout';

7
rtl/wince/wininc/defines.inc
View File

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

46
rtl/wince/wininc/struct.inc
View File

@ -7640,6 +7640,52 @@ type
TCLIPDATA=CLIPDATA; TCLIPDATA=CLIPDATA;
PCLIPDATA=^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} {$endif read_interface}