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

* svn props

Browse Source 
git-svn-id: trunk@8468 -
This commit is contained in:
peter 2007-09-14 07:19:48 +00:00
parent 0c6f533ba3
commit 627cf69ae3
20 changed files with 21943 additions and 21942 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
.gitattributes vendored
View File

@ -5504,32 +5504,33 @@ rtl/win64/system.pp svneol=native#text/plain
rtl/win64/windows.pp svneol=native#text/plain
rtl/wince/Makefile svneol=native#text/plain
rtl/wince/Makefile.fpc svneol=native#text/plain
rtl/wince/classes.pp -text
rtl/wince/dos.pp -text
rtl/wince/dynlibs.inc -text
rtl/wince/messages.pp -text
rtl/wince/readme.txt -text
rtl/wince/classes.pp svneol=native#text/plain
rtl/wince/dos.pp svneol=native#text/plain
rtl/wince/dynlibs.inc svneol=native#text/plain
rtl/wince/gx.pp svneol=native#text/plain
rtl/wince/messages.pp svneol=native#text/plain
rtl/wince/readme.txt svneol=native#text/plain
rtl/wince/system.pp svneol=native#text/plain
rtl/wince/sysutils.pp -text
rtl/wince/varutils.pp -text
rtl/wince/windows.pp -text
rtl/wince/wininc/aygshell.inc -text
rtl/wince/wininc/base.inc -text
rtl/wince/sysutils.pp svneol=native#text/plain
rtl/wince/varutils.pp svneol=native#text/plain
rtl/wince/windows.pp svneol=native#text/plain
rtl/wince/wininc/aygshell.inc svneol=native#text/plain
rtl/wince/wininc/base.inc svneol=native#text/plain
rtl/wince/wininc/cemiss.inc svneol=native#text/plain
rtl/wince/wininc/ceshell.inc svneol=native#text/plain
rtl/wince/wininc/commctrl.inc -text
rtl/wince/wininc/commctrl.inc svneol=native#text/plain
rtl/wince/wininc/commdlg.inc svneol=native#text/plain
rtl/wince/wininc/coredll.inc svneol=native#text/plain
rtl/wince/wininc/defines.inc -text
rtl/wince/wininc/errors.inc -text
rtl/wince/wininc/defines.inc svneol=native#text/plain
rtl/wince/wininc/errors.inc svneol=native#text/plain
rtl/wince/wininc/iphlpapi.inc svneol=native#text/plain
rtl/wince/wininc/makefile.inc -text
rtl/wince/wininc/messages.inc -text
rtl/wince/wininc/makefile.inc svneol=native#text/plain
rtl/wince/wininc/messages.inc svneol=native#text/plain
rtl/wince/wininc/oleaut32.inc svneol=native#text/plain
rtl/wince/wininc/redef.inc -text
rtl/wince/wininc/simmgr.inc -text
rtl/wince/wininc/struct.inc -text
rtl/wince/wininc/tapi.inc -text
rtl/wince/wininc/redef.inc svneol=native#text/plain
rtl/wince/wininc/simmgr.inc svneol=native#text/plain
rtl/wince/wininc/struct.inc svneol=native#text/plain
rtl/wince/wininc/tapi.inc svneol=native#text/plain
rtl/wince/winres.inc -text
rtl/wince/winsock.pp svneol=native#text/plain
rtl/wince/winsock2.pp svneol=native#text/plain

110
rtl/wince/classes.pp
View File

@ -1,55 +1,55 @@
{
This file is part of the Free Component Library (FCL)
Copyright (c) 1998 by Michael Van Canneyt and Florian Klaempfl
Classes unit for wince
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$define UNICODE} //ce is unicode only, needed here for classes.inc
{$mode objfpc}
{ determine the type of the resource/form file }
{$define Win16Res}
unit Classes;
interface
uses
rtlconsts,
sysutils,
types,
{$ifdef FPC_TESTGENERICS}
fgl,
{$endif}
typinfo,
windows;
type
TWndMethod = procedure(var msg : TMessage) of object;
{$i classesh.inc}
implementation
uses
sysconst;
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
initialization
CommonInit;
finalization
CommonCleanup;
end.
{
This file is part of the Free Component Library (FCL)
Copyright (c) 1998 by Michael Van Canneyt and Florian Klaempfl
Classes unit for wince
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$define UNICODE} //ce is unicode only, needed here for classes.inc
{$mode objfpc}
{ determine the type of the resource/form file }
{$define Win16Res}
unit Classes;
interface
uses
rtlconsts,
sysutils,
types,
{$ifdef FPC_TESTGENERICS}
fgl,
{$endif}
typinfo,
windows;
type
TWndMethod = procedure(var msg : TMessage) of object;
{$i classesh.inc}
implementation
uses
sysconst;
{ OS - independent class implementations are in /inc directory. }
{$i classes.inc}
initialization
CommonInit;
finalization
CommonCleanup;
end.

1136
rtl/wince/dos.pp
View File

File diff suppressed because it is too large Load Diff

120
rtl/wince/dynlibs.inc
View File

@ -1,60 +1,60 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Implements OS dependent part for loading of dynamic libraries.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$ifdef readinterface}
{ ---------------------------------------------------------------------
Interface declarations
---------------------------------------------------------------------}
Type
TLibHandle = Longint;
Const
NilHandle = 0;
{$else}
{ ---------------------------------------------------------------------
Implementation section
---------------------------------------------------------------------}
Uses windows;
Function LoadLibrary(Name : AnsiString) : TlibHandle;
var
ws: PWideChar;
begin
ws:=StringToPWideChar(Name);
Result:=Windows.LoadLibrary(ws);
FreeMem(ws);
end;
Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
var
ws: PWideChar;
begin
ws:=StringToPWideChar(ProcName);
Result:=Windows.GetProcAddress(Lib, ws);
FreeMem(ws);
end;
Function UnloadLibrary(Lib : TLibHandle) : Boolean;
begin
Result:=Windows.FreeLibrary(Lib);
end;
{$endif}
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Implements OS dependent part for loading of dynamic libraries.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$ifdef readinterface}
{ ---------------------------------------------------------------------
Interface declarations
---------------------------------------------------------------------}
Type
TLibHandle = Longint;
Const
NilHandle = 0;
{$else}
{ ---------------------------------------------------------------------
Implementation section
---------------------------------------------------------------------}
Uses windows;
Function LoadLibrary(Name : AnsiString) : TlibHandle;
var
ws: PWideChar;
begin
ws:=StringToPWideChar(Name);
Result:=Windows.LoadLibrary(ws);
FreeMem(ws);
end;
Function GetProcedureAddress(Lib : TLibHandle; ProcName : AnsiString) : Pointer;
var
ws: PWideChar;
begin
ws:=StringToPWideChar(ProcName);
Result:=Windows.GetProcAddress(Lib, ws);
FreeMem(ws);
end;
Function UnloadLibrary(Lib : TLibHandle) : Boolean;
begin
Result:=Windows.FreeLibrary(Lib);
end;
{$endif}

30
rtl/wince/messages.pp
View File

@ -1,15 +1,15 @@
unit messages;
interface
uses
windows;
{$DEFINE read_interface}
{$DEFINE MESSAGESUNIT}
{$I messages.inc}
implementation
end.
unit messages;
interface
uses
windows;
{$DEFINE read_interface}
{$DEFINE MESSAGESUNIT}
{$I messages.inc}
implementation
end.

96
rtl/wince/readme.txt
View File

@ -1,48 +1,48 @@
WinCE port
==========
WinCE port is quite complete and usable. The port was started and maintained by Yury Sidorov. Oliver (Oro06) ported WinCE API headers.
Status
------
* The 2.1.x compiler has compiler support WinCE.
* ARM and i386 (old WinCE emulator) CPUs are supported.
* The following platforms are supported:
* Pocket PC 2002 – WinCE version: 3.0
* Pocket PC 2003 – WinCE version: 4.20
* Pocket PC 2003 Second Edition – WinCE version: 4.21
* Base units are complete.
* Windows unit is almost complete. Delphi compatible declarations is not ready.
Building
--------
* You need cross binutils for arm-wince, get them fromftp://ftp.freepascal.org/pub/fpc/contrib/cross/arm-wince-binutils.zip for Win32.
* Extract them to some dir in the path on your machine.
* Get the 2.1 source repository from SVN: http://www.freepascal.org/develop.html#svn
* Go to fpc/compiler and execute:
make cycle CPU_TARGET=arm OS_TARGET=wince
You should end with the units compiled to fpc/rtl/units/arm-wince and a ppccrossarm.exe in fpc/compiler. Copy them to locations fitting your fpc installation.
WinCE port notes
----------------
* chdir procedure always produces an error (WinCE does not support setting of current directory).
* All file/dir paths must be absolute (started with \).
* WinCE is unicode OS. All string parameters to API calls must be PWideChar.
* WinCE does not have support for environment strings.
* WinCE does not have support for console applications by default. But you can install console support by yourself. Please note that FPC creates GUI applications for WinCE target by default. To create console application you should use -WC compiler switch or put {$APPTYPE CONSOLE} directive to source code.<br>To enable console in WinCE install one of the following programs:
- PocketCMD by SymbolicTools. It is recommended solution. Get it here: http://www.symbolictools.de/public/pocketconsole/applications/PocketCMD
- PPC Command Shell from Microsoft Windows Mobile Developer Power Toys. Get it here: http://www.microsoft.com/downloads/details.aspx?FamilyID=74473fd6-1dcc-47aa-ab28-6a2b006edfe9&displaylang=en
PPC Command Shell have less features than PocketCMD. Also it have some issues. One of them - a new console window is opened even if an application is started from a console command prompt.
Links
-----
* WinCE Port page at Free Pascal Wiki: http://www.freepascal.org/wiki/index.php/WinCE_port
* Useful WinCE info: http://www.rainer-keuchel.de/documents.html
Contacts
--------
Write any questions regarding WinCE port to Yury Sidorov yury_sidorov@mail.ru
WinCE port
==========
WinCE port is quite complete and usable. The port was started and maintained by Yury Sidorov. Oliver (Oro06) ported WinCE API headers.
Status
------
* The 2.1.x compiler has compiler support WinCE.
* ARM and i386 (old WinCE emulator) CPUs are supported.
* The following platforms are supported:
* Pocket PC 2002 – WinCE version: 3.0
* Pocket PC 2003 – WinCE version: 4.20
* Pocket PC 2003 Second Edition – WinCE version: 4.21
* Base units are complete.
* Windows unit is almost complete. Delphi compatible declarations is not ready.
Building
--------
* You need cross binutils for arm-wince, get them fromftp://ftp.freepascal.org/pub/fpc/contrib/cross/arm-wince-binutils.zip for Win32.
* Extract them to some dir in the path on your machine.
* Get the 2.1 source repository from SVN: http://www.freepascal.org/develop.html#svn
* Go to fpc/compiler and execute:
make cycle CPU_TARGET=arm OS_TARGET=wince
You should end with the units compiled to fpc/rtl/units/arm-wince and a ppccrossarm.exe in fpc/compiler. Copy them to locations fitting your fpc installation.
WinCE port notes
----------------
* chdir procedure always produces an error (WinCE does not support setting of current directory).
* All file/dir paths must be absolute (started with \).
* WinCE is unicode OS. All string parameters to API calls must be PWideChar.
* WinCE does not have support for environment strings.
* WinCE does not have support for console applications by default. But you can install console support by yourself. Please note that FPC creates GUI applications for WinCE target by default. To create console application you should use -WC compiler switch or put {$APPTYPE CONSOLE} directive to source code.<br>To enable console in WinCE install one of the following programs:
- PocketCMD by SymbolicTools. It is recommended solution. Get it here: http://www.symbolictools.de/public/pocketconsole/applications/PocketCMD
- PPC Command Shell from Microsoft Windows Mobile Developer Power Toys. Get it here: http://www.microsoft.com/downloads/details.aspx?FamilyID=74473fd6-1dcc-47aa-ab28-6a2b006edfe9&displaylang=en
PPC Command Shell have less features than PocketCMD. Also it have some issues. One of them - a new console window is opened even if an application is started from a console command prompt.
Links
-----
* WinCE Port page at Free Pascal Wiki: http://www.freepascal.org/wiki/index.php/WinCE_port
* Useful WinCE info: http://www.rainer-keuchel.de/documents.html
Contacts
--------
Write any questions regarding WinCE port to Yury Sidorov yury_sidorov@mail.ru

1982
rtl/wince/sysutils.pp
View File

File diff suppressed because it is too large Load Diff

76
rtl/wince/varutils.pp
View File

@ -1,38 +1,38 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Interface and OS-dependent part of variant support
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$MODE ObjFPC}
Unit varutils;
Interface
Uses sysutils;
// Read definitions.
{$i varutilh.inc}
Implementation
// Code common to all platforms.
{$i cvarutil.inc}
// Code common to non-win32 platforms.
{$i varutils.inc}
end.
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Interface and OS-dependent part of variant support
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{$MODE ObjFPC}
Unit varutils;
Interface
Uses sysutils;
// Read definitions.
{$i varutilh.inc}
Implementation
// Code common to all platforms.
{$i cvarutil.inc}
// Code common to non-win32 platforms.
{$i varutils.inc}
end.

164
rtl/wince/windows.pp
View File

@ -1,82 +1,82 @@
{
This file is part of the Free Pascal run time library.
This unit contains the record definition for the Win32 API
Copyright (c) 1999-2000 by Florian KLaempfl,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************
}
unit windows;
{$PACKSET 1}
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
{ stuff like array of const is used }
{$mode objfpc}
{ convention is cdecl for WinCE API}
{$calling cdecl}
interface
{$define read_interface}
{$undef read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i coredll.inc}
{$i aygshell.inc}
{$i commctrl.inc}
{$i commdlg.inc}
{$i ceshell.inc}
{$i oleaut32.inc}
{$i iphlpapi.inc}
{$i simmgr.inc}
{$i tapi.inc}
{$i cemiss.inc}
{$i redef.inc}
{$undef read_interface}
implementation
{$define read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i coredll.inc}
{$i aygshell.inc}
{$i commctrl.inc}
{$i commdlg.inc}
{$i ceshell.inc}
{$i oleaut32.inc}
{$i simmgr.inc}
{$i tapi.inc}
{$i cemiss.inc}
{$i redef.inc}
{$undef read_implementation}
begin
end.
{
This file is part of the Free Pascal run time library.
This unit contains the record definition for the Win32 API
Copyright (c) 1999-2000 by Florian KLaempfl,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************
}
unit windows;
{$PACKSET 1}
{$ifndef NO_SMART_LINK}
{$smartlink on}
{$endif}
{ stuff like array of const is used }
{$mode objfpc}
{ convention is cdecl for WinCE API}
{$calling cdecl}
interface
{$define read_interface}
{$undef read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i coredll.inc}
{$i aygshell.inc}
{$i commctrl.inc}
{$i commdlg.inc}
{$i ceshell.inc}
{$i oleaut32.inc}
{$i iphlpapi.inc}
{$i simmgr.inc}
{$i tapi.inc}
{$i cemiss.inc}
{$i redef.inc}
{$undef read_interface}
implementation
{$define read_implementation}
{$i base.inc}
{$i errors.inc}
{$i defines.inc}
{$i struct.inc}
{$i messages.inc}
{$i coredll.inc}
{$i aygshell.inc}
{$i commctrl.inc}
{$i commdlg.inc}
{$i ceshell.inc}
{$i oleaut32.inc}
{$i simmgr.inc}
{$i tapi.inc}
{$i cemiss.inc}
{$i redef.inc}
{$undef read_implementation}
begin
end.

986
rtl/wince/wininc/aygshell.inc
View File

@ -1,493 +1,493 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{ Declarations for aygshell WinCE API
}
{exported functions list = to do,
* please remove functions done *
Exports
ordinal name
146 ?ClearFontManager@@YAXXZ (void __cdecl ClearFontManager(void))
166 ?CreateBackgroundSpec@@YAJPAPAVIBackgroundSpec@@@Z (long __cdecl CreateBackgroundSpec(class IBackgroundSpec * *))
148 ?GetAppMetric@@YAHW4_enAppMetricID@@@Z (int __cdecl GetAppMetric(enum _enAppMetricID))
145 ?GetStandardFont@@YAJW4eFontID@@PAPAUHFONT__@@@Z (long __cdecl GetStandardFont(enum eFontID,struct HFONT__ * *))
348 ?IsScreenRotationSupported@@YAHXZ (int __cdecl IsScreenRotationSupported(void))
63 ?MinPowerOff@@YAHXZ (int __cdecl MinPowerOff(void))
147 ?OnSettingChange@@YAHIJ@Z (int __cdecl OnSettingChange(unsigned int,long))
189 ?SHDrawGradientBubbleTitle@@YAXPAUtagGRADIENTTITLEINFO@@@Z (void __cdecl SHDrawGradientBubbleTitle(struct tagGRADIENTTITLEINFO *))
2006 ?SHIdleTimerReset@@YAXXZ (void __cdecl SHIdleTimerReset(void))
228 ?SHLoadMenuExtensions@@YAHPAUIUnknown@@PBG1PAPAX@Z (int __cdecl SHLoadMenuExtensions(struct IUnknown *,unsigned short const *,unsigned short const *,void * *))
66 ?SHMenuBar_GetMenu@@YAPAUHMENU__@@PAUHWND__@@H@Z (struct HMENU__ * __cdecl SHMenuBar_GetMenu(struct HWND__ *,int))
140 ADChgTaskList
139 ADChgTrustedSrcList
142 ADRegisterCallback
141 ADTaskInfo
143 AssociateNoteWithCall
52 CancelSIPUp
46 ComboBoxEditSubProc
29 ComboEditAutoComplete
45 ComboSubProc
190 CreateImageCache
2021 DMProcessConfigXML
330 DPI_ExtractIconEx
311 DPI_LoadImageFile
310 DPI_LoadLibraryRes
237 DisplayNotRunnableAppDialog
226 DoEditContextMenu
191 DrawAlignedIcon
44 EditSubProc
13 FreeRegisteredAppInfo
137 GetProtocol
11 GetRegisteredAppInfo
286 HIDPI_ImageList_LoadImage
287 HIDPI_ImageList_ReplaceIcon
92 IsFullScreenWindow
347 IsModulePreWinCE421
62 IsSANMessage
70 LFHeightForPoint
302 LoadHTML
241 LoadStringEtcOver
180 NotifyAppsOnEvent
24 PathAddBackslash
26 PathCombine
23 PathFindExtension
27 PathFindFileName
160 PathFindNextComponent
116 PathIsPrefix
28 PathIsRelative
25 PathRemoveBackslash
42 PathRemoveBlanks
107 PhoneGetCallProperties
106 PhoneGetCallPropertyBag
159 PhoneShowCallLog
158 SHAnimateListviewOpen
117 SHAnimateRects
22 SHAppNotifyDone
130 SHBoldFontAllowed
289 SHBorderPolyline
288 SHBorderRectangle
104 SHBox
103 SHBoxEx
114 SHChangeNotifyDeregister
115 SHChangeNotifyFree
113 SHChangeNotifyRegister
48 SHCheckForContextMenu
86 SHClearStartedBit
55 SHColorDisplay
37 SHCommandBar_EnableCommand
38 SHCommandBar_GetClientRect
36 SHCommandBar_GetCommandBarByID
223 SHCopyBitmap
306 SHCopyIcon
164 SHCreateCOleWindow
41 SHCreateContextMenu
43 SHCreateMainWindow
74 SHCreateMenuBarInternal
108 SHCreateNewItem
53 SHCreateSystemFont
35 SHCreateWorkerWindow
329 SHDeleteTodayWallpaper
109 SHDocManagerCreate
112 SHDocManagerDestroy
111 SHDocManagerQuery
110 SHDocManagerRegister
233 SHDrawBranding
234 SHDrawClippedText
331 SHDrawTextOverImage
58 SHDrawUnderline
136 SHDrawUnderlineColor
49 SHEnableEditMenu
192 SHEnableRadio
81 SHEndProfileObj
2013 SHEnumFiles
2020 SHEnumFolders
98 SHEnumPropSheetHandlers
203 SHEscapeAccelerators
201 SHEscapeBubbleHtml
168 SHFadeImage
54 SHFillRectClr
132 SHFindForegroundMenuBar
283 SHFindMenuBarInternal
209 SHFindPreviousInstance
212 SHFindPreviousInstanceEx
71 SHFontMgrCreate
73 SHFontMgrDestroy
72 SHFontMgrManageFonts
33 SHForceBaseState
99 SHForceBaseStateEx
102 SHFreeContextMenuExtensions
120 SHFreeScanners
213 SHGetActiveDialog
292 SHGetBitmapDimensions
285 SHGetBitmapLogPixels
225 SHGetCarrierBranding
224 SHGetCarrierBrandingFlag
96 SHGetDeviceFeatureLevel
299 SHGetDisplayRotation
128 SHGetEmergencyCallList
218 SHGetFontHeight
232 SHGetInputContext
133 SHGetKOBits
305 SHGetLandscapeRotationSettings
345 SHGetLegacySupportWindow
242 SHGetLocaleInfo
167 SHGetMessageBoxIcon
281 SHGetMetric
172 SHGetNavBarItemRect
163 SHGetPowerOnTime
153 SHGetPresetMessage
282 SHGetScreenOrientation
204 SHGetSimToolkitMenu
2014 SHGetSoundFileList
177 SHGetStyleBkColor
178 SHGetStyleColor
179 SHGetStyleFont
217 SHGetSystemDefaultLCID
144 SHGetTimeFormat
312 SHGetUIMetrics
219 SHGetUiInfo
221 SHGradientDeInit
222 SHGradientDraw
220 SHGradientInit
31 SHHandleActivate
30 SHHandleSipChange
76 SHHdrGrpSepLineDraw
8 SHImListPopup
149 SHInitPresetMessages
181 SHInsertPresetMessage
129 SHInvalidateScreen
101 SHInvokeContextMenuCommand
123 SHIsLocked
295 SHIsPreOzoneUpdate
94 SHIsPreRapierApp
100 SHLoadContextMenuExtensions
230 SHLoadFileContextMenuExtensions
313 SHLoadFontFromResource
91 SHLoadMenuPopup
216 SHLoadSKFromReg
121 SHLock
138 SHMakeCall
235 SHMakeValidFilename
32 SHMessageBox
80 SHNewProfileObj
155 SHNotificationAdd
173 SHNotificationGetData
157 SHNotificationRemove
156 SHNotificationUpdate
208 SHNotifyAppsOnCallConnect
210 SHNotifyAppsOnCarkit
165 SHNotifyAppsOnDock
195 SHNotifyAppsOnHeadset
214 SHNotifyAppsOnIncomingCall
211 SHNotifyAppsOnSpeakerPhone
135 SHOnFullScreenAppActivate
238 SHOnMissedCallCountChange
2008 SHOnPluginDataChange
227 SHOnVoiceMailCountChange
162 SHPaintBubbleFrame
294 SHPolyline
152 SHPopulatePresetMessageMenu
175 SHPreProcessLogFont
229 SHQueryMenuExtensions
297 SHRCMLDialogProc
293 SHRectangle
2022 SHRefreshStartMenu
215 SHRegGetHLMDWValue
176 SHRegSetValueEx
346 SHReleaseLegacySupportWindow
150 SHReleasePresetMessages
202 SHReplaceString
245 SHResizeDialogProc
50 SHRunCpl
82 SHRunFontManager
151 SHRunPresetMessagesEdit
239 SHRunSafeApplet
174 SHSameWindowProcesses
95 SHSavePWWarning
118 SHScanBuffer
119 SHScanFile
97 SHSendBackToFocusWindow
169 SHSetAsWatermark
184 SHSetBack
161 SHSetBubbleRegion
298 SHSetDisplayRotation
131 SHSetForegroundLastActivePopup
231 SHSetInputContext
134 SHSetKOBits
154 SHSetPresetMessage
170 SHSetSimToolkitMenu
1003 SHSetSoftKey
300 SHSetStretchMode
59 SHSetWindowBits
67 SHShowContextMenu
1004 SHShowSoftKeys
79 SHSignalDone
314 SHSipMightBlockUI
308 SHSkipDialogInitialFocus
207 SHSoundManGetDisplayName
205 SHSoundManGetDisplayNameList
206 SHSoundManGetFileName
93 SHStartAndBlock
85 SHStartIfNeeded
87 SHStartProfile
284 SHStretchBitmap
290 SHStretchBltBitmap
291 SHStretchBltBitmapEx
307 SHStretchIcon
105 SHTextBox
171 SHToolkitQueryShell
57 SHTrackPopupMenu
1000 SHTurnScreenOn
240 SHUnEscapeAccelerators
122 SHUnlock
2003 SHVoiceTagDelete
2002 SHVoiceTagPlayback
2001 SHVoiceTagRecognize
2000 SHVoiceTagTrain
124 SHWriteLockState
301 SetDialogAutoScrollBar
12 SetRegisteredAppInfo
296 SetWindowPosOnRotate
15 Shell_Alloc
17 Shell_AllocString
18 Shell_CatStrAlloc
16 Shell_Free
14 Shell_HeapCreate
19 Shell_LoadStringAlloc
20 Shell_RegAllocString
51 StrStrI
47 SubClassThisWindow
199 TZFindClose
197 TZFindNext
196 TZFindOpen
198 TZGetData
1005 UIHGetTextToStruct
1007 UIHLimitTextControls
1008 UIHSetHWNDToStruct
1006 UIHSetTextFromStruct
236 VerifyTrust
}
{$ifdef read_interface}
//*****************************************************************************
// consts
//*****************************************************************************
const
UserDLLAyg = 'aygshell';
CEM_UPCASEALLWORDS = (WM_USER + 1);
CEM_ENABLEUPCASE = (WM_USER + 2);
{Gesture notifications}
GN_CONTEXTMENU = 1000;
IDC_COMMANDBANDS = 100;
{Shell Menubar support}
// These defines MUST be < 100. This is so apps can use these defines
// to get strings from the shell.
IDS_SHNEW = 1;
IDS_SHEDIT = 2;
IDS_SHTOOLS = 3;
IDS_SHVIEW = 4;
IDS_SHFILE = 5;
IDS_SHGO = 6;
IDS_SHFAVORITES = 7;
IDS_SHOPEN = 8;
{Shared New menu support}
IDM_SHAREDNEW = 10;
IDM_SHAREDNEWDEFAULT = 11;
NOMENU = $FFFF;
SHA_INPUTDIALOG = $0001;
SHACTI_FSIPUP = $0001;
SHACTI_FSIPONDEACTIVATE = $0002;
SHACTI_FSIPRESERVED = $FFFF xor SHACTI_FSIPUP xor SHACTI_FSIPUP;
{Valid dwFlags}
SHCMBF_EMPTYBAR = $0001;
SHCMBF_HIDDEN = $0002; // create it hidden
SHCMBF_HIDESIPBUTTON = $0004;
SHCMBF_COLORBK = $0008;
SHCMBF_HMENU = $0010; // specify an hmenu for resource rather than toolbar info
SHCMBM_SETSUBMENU = (WM_USER + 400); // wparam == id of button, lParam == hmenu, return is old hmenu
SHCMBM_GETSUBMENU = (WM_USER + 401); // lParam == ID
SHCMBM_GETMENU = (WM_USER + 402); // get the owning hmenu (as specified in the load resource)
SHCMBM_OVERRIDEKEY = (WM_USER + 403);
SHCMBM_SETBKCOLOR = (WM_USER + 406); // lParam == COLORREF
{Valid mask values}
SHIDIM_FLAGS = $0001;
{Valid flags}
SHIDIF_DONEBUTTON = $0001;
SHIDIF_SIZEDLG = $0002;
SHIDIF_SIZEDLGFULLSCREEN = $0004;
SHIDIF_SIPDOWN = $0008;
SHIDIF_FULLSCREENNOMENUBAR = $0010;
SHIDIF_EMPTYMENU = $0020;
SHIDIF_WANTSCROLLBAR = $0040;
SHMBOF_NODEFAULT = $00000001; // do not do default handling of this key
SHMBOF_NOTIFY = $00000002; // send us the WM_* messages for this key
{Gesture flags}
SHRG_RETURNCMD = $00000001;
SHRG_NOTIFYPARENT = $00000002;
SHRG_LONGDELAY = $00000008;
SHRG_NOANIMATION = $00000010;
{Sip info}
SIP_STATUS_UNAVAILABLE = 0;
SIP_STATUS_AVAILABLE = 1;
SIPF_OFF = $00000000;
SIPF_ON = $00000001;
SIPF_DOCKED = $00000002;
SIPF_LOCKED = $00000004;
{Supported system parameters}
SPI_SETCOMPLETIONINFO = 223;
SPI_SETSIPINFO = 224;
SPI_GETSIPINFO = 225;
SPI_SETCURRENTIM = 226;
SPI_GETCURRENTIM = 227;
SPI_APPBUTTONCHANGE = 228;
SPI_RESERVED = 229;
SPI_SYNCSETTINGSCHANGE = 230;
WC_SIPPREF = 'SIPPREF';
{SHFullScreen - valide states}
SHFS_SHOWTASKBAR = $0001;
SHFS_HIDETASKBAR = $0002;
SHFS_SHOWSIPBUTTON = $0004;
SHFS_HIDESIPBUTTON = $0008;
SHFS_SHOWSTARTICON = $0010;
SHFS_HIDESTARTICON = $0020;
{ DoneButton - Valid state}
SHDB_SHOW = $0001;
SHDB_HIDE = $0002;
SHDB_SHOWCANCEL = $0004; // added by Windows Mobile 5.0
WS_NONAVDONEBUTTON = WS_MINIMIZEBOX;
//*****************************************************************************
// types
//*****************************************************************************
type
//Struct sent through WM_NOTIFY when SHRG_NOTIFYPARENT is used
NMRGINFO = record
hdr : NMHDR;
ptAction : POINT;
dwItemSpec : DWORD;
end;
PNMRGINFO=^NMRGINFO;
SHACTIVATEINFO = record
cbSize : DWORD;
hwndLastFocus : HWND ;
bits : Longint ;
end;
PSHACTIVATEINFO=^SHACTIVATEINFO;
SHINITDLGINFO = record
dwMask: DWORD;
hDlg: HWND;
dwFlags : DWORD ;
end;
PSHINITDLGINFO=^SHINITDLGINFO;
SHMENUBARINFO = record
cbSize : DWORD; // IN - Indicates which members of struct are valid
hwndParent : HWND ; // IN
dwFlags : DWORD ; // IN - Some features we want
nToolBarId : UINT ; // IN - Which toolbar are we using
hInstRes : HINST; // IN - Instance that owns the resources
nBmpId : Integer;
cBmpImages : Integer; // IN - Count of bitmap images
hwndMB : HWND ; // OUT
clrBk : COLORREF ; // IN - background color of the menu bar (excluding sip)
end;
PSHMENUBARINFO=^SHMENUBARINFO;
{SHRecognizeGesture}
SHRGI = record
cbSize : DWORD;
hwndClient : HWND ;
ptDown : POINT;
dwFlags : DWORD;
end;
SHRGINFO=SHRGI;
PSHRGINFO=^SHRGI;
{Sip info}
SIPINFO = record
cbSize : DWORD;
fdwFlags : DWORD;
rcVisibleDesktop : RECT;
rcSipRect : RECT;
dwImDataSize : DWORD;
pvImData : pointer;
end;
TSIPINFO=SIPINFO;
PSIPINFO=^SIPINFO;
SIPSTATE= (SIP_UP= 0,SIP_DOWN,SIP_FORCEDOWN,SIP_UNCHANGED,SIP_INPUTDIALOG);
//*****************************************************************************
// functions
//*****************************************************************************
function ExitWindowsEx(uFlags:UINT; dwReserved:DWORD):WINBOOL; external UserDLLAyg name 'ExitWindowsEx';
function SHCloseApps( dwMemSought : DWORD ): WINBOOL; external UserDLLAyg name 'SHCloseApps';
function SHCreateMenuBar(pmbi : PSHMENUBARINFO ): WINBOOL; external UserDLLAyg name 'SHCreateMenuBar';
function SHDoneButton(hwndRequester: HWND ; dwState : DWORD ): WINBOOL; external UserDLLAyg name 'SHDoneButton';
function SHFindMenuBar(hwnd:HWND) : HWND; external UserDLLAyg name 'SHFindMenuBar';
function SHFullScreen(hwmdRequester: hWnd; dwState: DWord): WINBOOL; external UserDLLAyg name 'SHFullScreen'; {Pocket PC special controls}
function SHGetAutoRunPath( pAutoRunPath : LPTSTR ): WINBOOL; external UserDLLAyg name 'SHGetAutoRunPath';
function SHHandleWMActivate(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO; dwFlags:DWORD ): WINBOOL; external UserDLLAyg name 'SHHandleWMActivate';
function SHHandleWMSettingChange(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO): WINBOOL; external UserDLLAyg name 'SHHandleWMSettingChange';
function SHInitDialog(pshidi: PSHINITDLGINFO): WINBOOL; external UserDLLAyg name 'SHInitDialog';
function SHInitExtraControls: WINBOOL; external UserDLLAyg name 'SHInitExtraControls';
procedure SHInputDialog(hwnd : HWND; uMsg : UINT; wParam: WPARAM ); external UserDLLAyg name 'SHInputDialog';
function SHGetAppKeyAssoc( ptszApp: LPCTSTR ): Byte; external UserDLLAyg name 'SHGetAppKeyAssoc';
{not exported on PocketPC 4.21 SE , may be smartphone only ? oro06 09-02-06
function SHLoadImageResource(hinst: HINST; uIdGif: UINT ): HBITMAP; external UserDLLAyg name 'SHLoadImageResource';
function SHLoadImageFile(pszFileName: LPCTSTR ) : HBITMAP; external UserDLLAyg name 'SHLoadImageFile';
procedure SHNavigateBack; external UserDLLAyg name 'SHNavigateBack';
}
function SHSetAppKeyWndAssoc( bVk: BYTE ; hwnd : HWND ): WINBOOL; external UserDLLAyg name 'SHSetAppKeyWndAssoc';
function SHSetNavBarText(hwndRequester : HWND; pszText : LPCTSTR): WINBOOL; external UserDLLAyg name 'SHSetNavBarText';
function SHSipInfo(uiAction: UINT; uiParam: UINT; pvParam: PVOID; fWinIni: UINT ): WINBOOL; external UserDLLAyg name 'SHSipInfo';
function SHSipPreference(hwnd: HWND ; st : SIPSTATE ) : WINBOOL; external UserDLLAyg name 'SHSipPreference';
function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture';
{$endif read_interface}
{$ifdef read_implementation}
{$endif read_implementation}
{
This file is part of the Free Pascal run time library.
Copyright (c) 2006 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{ Declarations for aygshell WinCE API
}
{exported functions list = to do,
* please remove functions done *
Exports
ordinal name
146 ?ClearFontManager@@YAXXZ (void __cdecl ClearFontManager(void))
166 ?CreateBackgroundSpec@@YAJPAPAVIBackgroundSpec@@@Z (long __cdecl CreateBackgroundSpec(class IBackgroundSpec * *))
148 ?GetAppMetric@@YAHW4_enAppMetricID@@@Z (int __cdecl GetAppMetric(enum _enAppMetricID))
145 ?GetStandardFont@@YAJW4eFontID@@PAPAUHFONT__@@@Z (long __cdecl GetStandardFont(enum eFontID,struct HFONT__ * *))
348 ?IsScreenRotationSupported@@YAHXZ (int __cdecl IsScreenRotationSupported(void))
63 ?MinPowerOff@@YAHXZ (int __cdecl MinPowerOff(void))
147 ?OnSettingChange@@YAHIJ@Z (int __cdecl OnSettingChange(unsigned int,long))
189 ?SHDrawGradientBubbleTitle@@YAXPAUtagGRADIENTTITLEINFO@@@Z (void __cdecl SHDrawGradientBubbleTitle(struct tagGRADIENTTITLEINFO *))
2006 ?SHIdleTimerReset@@YAXXZ (void __cdecl SHIdleTimerReset(void))
228 ?SHLoadMenuExtensions@@YAHPAUIUnknown@@PBG1PAPAX@Z (int __cdecl SHLoadMenuExtensions(struct IUnknown *,unsigned short const *,unsigned short const *,void * *))
66 ?SHMenuBar_GetMenu@@YAPAUHMENU__@@PAUHWND__@@H@Z (struct HMENU__ * __cdecl SHMenuBar_GetMenu(struct HWND__ *,int))
140 ADChgTaskList
139 ADChgTrustedSrcList
142 ADRegisterCallback
141 ADTaskInfo
143 AssociateNoteWithCall
52 CancelSIPUp
46 ComboBoxEditSubProc
29 ComboEditAutoComplete
45 ComboSubProc
190 CreateImageCache
2021 DMProcessConfigXML
330 DPI_ExtractIconEx
311 DPI_LoadImageFile
310 DPI_LoadLibraryRes
237 DisplayNotRunnableAppDialog
226 DoEditContextMenu
191 DrawAlignedIcon
44 EditSubProc
13 FreeRegisteredAppInfo
137 GetProtocol
11 GetRegisteredAppInfo
286 HIDPI_ImageList_LoadImage
287 HIDPI_ImageList_ReplaceIcon
92 IsFullScreenWindow
347 IsModulePreWinCE421
62 IsSANMessage
70 LFHeightForPoint
302 LoadHTML
241 LoadStringEtcOver
180 NotifyAppsOnEvent
24 PathAddBackslash
26 PathCombine
23 PathFindExtension
27 PathFindFileName
160 PathFindNextComponent
116 PathIsPrefix
28 PathIsRelative
25 PathRemoveBackslash
42 PathRemoveBlanks
107 PhoneGetCallProperties
106 PhoneGetCallPropertyBag
159 PhoneShowCallLog
158 SHAnimateListviewOpen
117 SHAnimateRects
22 SHAppNotifyDone
130 SHBoldFontAllowed
289 SHBorderPolyline
288 SHBorderRectangle
104 SHBox
103 SHBoxEx
114 SHChangeNotifyDeregister
115 SHChangeNotifyFree
113 SHChangeNotifyRegister
48 SHCheckForContextMenu
86 SHClearStartedBit
55 SHColorDisplay
37 SHCommandBar_EnableCommand
38 SHCommandBar_GetClientRect
36 SHCommandBar_GetCommandBarByID
223 SHCopyBitmap
306 SHCopyIcon
164 SHCreateCOleWindow
41 SHCreateContextMenu
43 SHCreateMainWindow
74 SHCreateMenuBarInternal
108 SHCreateNewItem
53 SHCreateSystemFont
35 SHCreateWorkerWindow
329 SHDeleteTodayWallpaper
109 SHDocManagerCreate
112 SHDocManagerDestroy
111 SHDocManagerQuery
110 SHDocManagerRegister
233 SHDrawBranding
234 SHDrawClippedText
331 SHDrawTextOverImage
58 SHDrawUnderline
136 SHDrawUnderlineColor
49 SHEnableEditMenu
192 SHEnableRadio
81 SHEndProfileObj
2013 SHEnumFiles
2020 SHEnumFolders
98 SHEnumPropSheetHandlers
203 SHEscapeAccelerators
201 SHEscapeBubbleHtml
168 SHFadeImage
54 SHFillRectClr
132 SHFindForegroundMenuBar
283 SHFindMenuBarInternal
209 SHFindPreviousInstance
212 SHFindPreviousInstanceEx
71 SHFontMgrCreate
73 SHFontMgrDestroy
72 SHFontMgrManageFonts
33 SHForceBaseState
99 SHForceBaseStateEx
102 SHFreeContextMenuExtensions
120 SHFreeScanners
213 SHGetActiveDialog
292 SHGetBitmapDimensions
285 SHGetBitmapLogPixels
225 SHGetCarrierBranding
224 SHGetCarrierBrandingFlag
96 SHGetDeviceFeatureLevel
299 SHGetDisplayRotation
128 SHGetEmergencyCallList
218 SHGetFontHeight
232 SHGetInputContext
133 SHGetKOBits
305 SHGetLandscapeRotationSettings
345 SHGetLegacySupportWindow
242 SHGetLocaleInfo
167 SHGetMessageBoxIcon
281 SHGetMetric
172 SHGetNavBarItemRect
163 SHGetPowerOnTime
153 SHGetPresetMessage
282 SHGetScreenOrientation
204 SHGetSimToolkitMenu
2014 SHGetSoundFileList
177 SHGetStyleBkColor
178 SHGetStyleColor
179 SHGetStyleFont
217 SHGetSystemDefaultLCID
144 SHGetTimeFormat
312 SHGetUIMetrics
219 SHGetUiInfo
221 SHGradientDeInit
222 SHGradientDraw
220 SHGradientInit
31 SHHandleActivate
30 SHHandleSipChange
76 SHHdrGrpSepLineDraw
8 SHImListPopup
149 SHInitPresetMessages
181 SHInsertPresetMessage
129 SHInvalidateScreen
101 SHInvokeContextMenuCommand
123 SHIsLocked
295 SHIsPreOzoneUpdate
94 SHIsPreRapierApp
100 SHLoadContextMenuExtensions
230 SHLoadFileContextMenuExtensions
313 SHLoadFontFromResource
91 SHLoadMenuPopup
216 SHLoadSKFromReg
121 SHLock
138 SHMakeCall
235 SHMakeValidFilename
32 SHMessageBox
80 SHNewProfileObj
155 SHNotificationAdd
173 SHNotificationGetData
157 SHNotificationRemove
156 SHNotificationUpdate
208 SHNotifyAppsOnCallConnect
210 SHNotifyAppsOnCarkit
165 SHNotifyAppsOnDock
195 SHNotifyAppsOnHeadset
214 SHNotifyAppsOnIncomingCall
211 SHNotifyAppsOnSpeakerPhone
135 SHOnFullScreenAppActivate
238 SHOnMissedCallCountChange
2008 SHOnPluginDataChange
227 SHOnVoiceMailCountChange
162 SHPaintBubbleFrame
294 SHPolyline
152 SHPopulatePresetMessageMenu
175 SHPreProcessLogFont
229 SHQueryMenuExtensions
297 SHRCMLDialogProc
293 SHRectangle
2022 SHRefreshStartMenu
215 SHRegGetHLMDWValue
176 SHRegSetValueEx
346 SHReleaseLegacySupportWindow
150 SHReleasePresetMessages
202 SHReplaceString
245 SHResizeDialogProc
50 SHRunCpl
82 SHRunFontManager
151 SHRunPresetMessagesEdit
239 SHRunSafeApplet
174 SHSameWindowProcesses
95 SHSavePWWarning
118 SHScanBuffer
119 SHScanFile
97 SHSendBackToFocusWindow
169 SHSetAsWatermark
184 SHSetBack
161 SHSetBubbleRegion
298 SHSetDisplayRotation
131 SHSetForegroundLastActivePopup
231 SHSetInputContext
134 SHSetKOBits
154 SHSetPresetMessage
170 SHSetSimToolkitMenu
1003 SHSetSoftKey
300 SHSetStretchMode
59 SHSetWindowBits
67 SHShowContextMenu
1004 SHShowSoftKeys
79 SHSignalDone
314 SHSipMightBlockUI
308 SHSkipDialogInitialFocus
207 SHSoundManGetDisplayName
205 SHSoundManGetDisplayNameList
206 SHSoundManGetFileName
93 SHStartAndBlock
85 SHStartIfNeeded
87 SHStartProfile
284 SHStretchBitmap
290 SHStretchBltBitmap
291 SHStretchBltBitmapEx
307 SHStretchIcon
105 SHTextBox
171 SHToolkitQueryShell
57 SHTrackPopupMenu
1000 SHTurnScreenOn
240 SHUnEscapeAccelerators
122 SHUnlock
2003 SHVoiceTagDelete
2002 SHVoiceTagPlayback
2001 SHVoiceTagRecognize
2000 SHVoiceTagTrain
124 SHWriteLockState
301 SetDialogAutoScrollBar
12 SetRegisteredAppInfo
296 SetWindowPosOnRotate
15 Shell_Alloc
17 Shell_AllocString
18 Shell_CatStrAlloc
16 Shell_Free
14 Shell_HeapCreate
19 Shell_LoadStringAlloc
20 Shell_RegAllocString
51 StrStrI
47 SubClassThisWindow
199 TZFindClose
197 TZFindNext
196 TZFindOpen
198 TZGetData
1005 UIHGetTextToStruct
1007 UIHLimitTextControls
1008 UIHSetHWNDToStruct
1006 UIHSetTextFromStruct
236 VerifyTrust
}
{$ifdef read_interface}
//*****************************************************************************
// consts
//*****************************************************************************
const
UserDLLAyg = 'aygshell';
CEM_UPCASEALLWORDS = (WM_USER + 1);
CEM_ENABLEUPCASE = (WM_USER + 2);
{Gesture notifications}
GN_CONTEXTMENU = 1000;
IDC_COMMANDBANDS = 100;
{Shell Menubar support}
// These defines MUST be < 100. This is so apps can use these defines
// to get strings from the shell.
IDS_SHNEW = 1;
IDS_SHEDIT = 2;
IDS_SHTOOLS = 3;
IDS_SHVIEW = 4;
IDS_SHFILE = 5;
IDS_SHGO = 6;
IDS_SHFAVORITES = 7;
IDS_SHOPEN = 8;
{Shared New menu support}
IDM_SHAREDNEW = 10;
IDM_SHAREDNEWDEFAULT = 11;
NOMENU = $FFFF;
SHA_INPUTDIALOG = $0001;
SHACTI_FSIPUP = $0001;
SHACTI_FSIPONDEACTIVATE = $0002;
SHACTI_FSIPRESERVED = $FFFF xor SHACTI_FSIPUP xor SHACTI_FSIPUP;
{Valid dwFlags}
SHCMBF_EMPTYBAR = $0001;
SHCMBF_HIDDEN = $0002; // create it hidden
SHCMBF_HIDESIPBUTTON = $0004;
SHCMBF_COLORBK = $0008;
SHCMBF_HMENU = $0010; // specify an hmenu for resource rather than toolbar info
SHCMBM_SETSUBMENU = (WM_USER + 400); // wparam == id of button, lParam == hmenu, return is old hmenu
SHCMBM_GETSUBMENU = (WM_USER + 401); // lParam == ID
SHCMBM_GETMENU = (WM_USER + 402); // get the owning hmenu (as specified in the load resource)
SHCMBM_OVERRIDEKEY = (WM_USER + 403);
SHCMBM_SETBKCOLOR = (WM_USER + 406); // lParam == COLORREF
{Valid mask values}
SHIDIM_FLAGS = $0001;
{Valid flags}
SHIDIF_DONEBUTTON = $0001;
SHIDIF_SIZEDLG = $0002;
SHIDIF_SIZEDLGFULLSCREEN = $0004;
SHIDIF_SIPDOWN = $0008;
SHIDIF_FULLSCREENNOMENUBAR = $0010;
SHIDIF_EMPTYMENU = $0020;
SHIDIF_WANTSCROLLBAR = $0040;
SHMBOF_NODEFAULT = $00000001; // do not do default handling of this key
SHMBOF_NOTIFY = $00000002; // send us the WM_* messages for this key
{Gesture flags}
SHRG_RETURNCMD = $00000001;
SHRG_NOTIFYPARENT = $00000002;
SHRG_LONGDELAY = $00000008;
SHRG_NOANIMATION = $00000010;
{Sip info}
SIP_STATUS_UNAVAILABLE = 0;
SIP_STATUS_AVAILABLE = 1;
SIPF_OFF = $00000000;
SIPF_ON = $00000001;
SIPF_DOCKED = $00000002;
SIPF_LOCKED = $00000004;
{Supported system parameters}
SPI_SETCOMPLETIONINFO = 223;
SPI_SETSIPINFO = 224;
SPI_GETSIPINFO = 225;
SPI_SETCURRENTIM = 226;
SPI_GETCURRENTIM = 227;
SPI_APPBUTTONCHANGE = 228;
SPI_RESERVED = 229;
SPI_SYNCSETTINGSCHANGE = 230;
WC_SIPPREF = 'SIPPREF';
{SHFullScreen - valide states}
SHFS_SHOWTASKBAR = $0001;
SHFS_HIDETASKBAR = $0002;
SHFS_SHOWSIPBUTTON = $0004;
SHFS_HIDESIPBUTTON = $0008;
SHFS_SHOWSTARTICON = $0010;
SHFS_HIDESTARTICON = $0020;
{ DoneButton - Valid state}
SHDB_SHOW = $0001;
SHDB_HIDE = $0002;
SHDB_SHOWCANCEL = $0004; // added by Windows Mobile 5.0
WS_NONAVDONEBUTTON = WS_MINIMIZEBOX;
//*****************************************************************************
// types
//*****************************************************************************
type
//Struct sent through WM_NOTIFY when SHRG_NOTIFYPARENT is used
NMRGINFO = record
hdr : NMHDR;
ptAction : POINT;
dwItemSpec : DWORD;
end;
PNMRGINFO=^NMRGINFO;
SHACTIVATEINFO = record
cbSize : DWORD;
hwndLastFocus : HWND ;
bits : Longint ;
end;
PSHACTIVATEINFO=^SHACTIVATEINFO;
SHINITDLGINFO = record
dwMask: DWORD;
hDlg: HWND;
dwFlags : DWORD ;
end;
PSHINITDLGINFO=^SHINITDLGINFO;
SHMENUBARINFO = record
cbSize : DWORD; // IN - Indicates which members of struct are valid
hwndParent : HWND ; // IN
dwFlags : DWORD ; // IN - Some features we want
nToolBarId : UINT ; // IN - Which toolbar are we using
hInstRes : HINST; // IN - Instance that owns the resources
nBmpId : Integer;
cBmpImages : Integer; // IN - Count of bitmap images
hwndMB : HWND ; // OUT
clrBk : COLORREF ; // IN - background color of the menu bar (excluding sip)
end;
PSHMENUBARINFO=^SHMENUBARINFO;
{SHRecognizeGesture}
SHRGI = record
cbSize : DWORD;
hwndClient : HWND ;
ptDown : POINT;
dwFlags : DWORD;
end;
SHRGINFO=SHRGI;
PSHRGINFO=^SHRGI;
{Sip info}
SIPINFO = record
cbSize : DWORD;
fdwFlags : DWORD;
rcVisibleDesktop : RECT;
rcSipRect : RECT;
dwImDataSize : DWORD;
pvImData : pointer;
end;
TSIPINFO=SIPINFO;
PSIPINFO=^SIPINFO;
SIPSTATE= (SIP_UP= 0,SIP_DOWN,SIP_FORCEDOWN,SIP_UNCHANGED,SIP_INPUTDIALOG);
//*****************************************************************************
// functions
//*****************************************************************************
function ExitWindowsEx(uFlags:UINT; dwReserved:DWORD):WINBOOL; external UserDLLAyg name 'ExitWindowsEx';
function SHCloseApps( dwMemSought : DWORD ): WINBOOL; external UserDLLAyg name 'SHCloseApps';
function SHCreateMenuBar(pmbi : PSHMENUBARINFO ): WINBOOL; external UserDLLAyg name 'SHCreateMenuBar';
function SHDoneButton(hwndRequester: HWND ; dwState : DWORD ): WINBOOL; external UserDLLAyg name 'SHDoneButton';
function SHFindMenuBar(hwnd:HWND) : HWND; external UserDLLAyg name 'SHFindMenuBar';
function SHFullScreen(hwmdRequester: hWnd; dwState: DWord): WINBOOL; external UserDLLAyg name 'SHFullScreen'; {Pocket PC special controls}
function SHGetAutoRunPath( pAutoRunPath : LPTSTR ): WINBOOL; external UserDLLAyg name 'SHGetAutoRunPath';
function SHHandleWMActivate(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO; dwFlags:DWORD ): WINBOOL; external UserDLLAyg name 'SHHandleWMActivate';
function SHHandleWMSettingChange(hwnd:HWND; wParam:WPARAM; lParam:LPARAM; psai: PSHACTIVATEINFO): WINBOOL; external UserDLLAyg name 'SHHandleWMSettingChange';
function SHInitDialog(pshidi: PSHINITDLGINFO): WINBOOL; external UserDLLAyg name 'SHInitDialog';
function SHInitExtraControls: WINBOOL; external UserDLLAyg name 'SHInitExtraControls';
procedure SHInputDialog(hwnd : HWND; uMsg : UINT; wParam: WPARAM ); external UserDLLAyg name 'SHInputDialog';
function SHGetAppKeyAssoc( ptszApp: LPCTSTR ): Byte; external UserDLLAyg name 'SHGetAppKeyAssoc';
{not exported on PocketPC 4.21 SE , may be smartphone only ? oro06 09-02-06
function SHLoadImageResource(hinst: HINST; uIdGif: UINT ): HBITMAP; external UserDLLAyg name 'SHLoadImageResource';
function SHLoadImageFile(pszFileName: LPCTSTR ) : HBITMAP; external UserDLLAyg name 'SHLoadImageFile';
procedure SHNavigateBack; external UserDLLAyg name 'SHNavigateBack';
}
function SHSetAppKeyWndAssoc( bVk: BYTE ; hwnd : HWND ): WINBOOL; external UserDLLAyg name 'SHSetAppKeyWndAssoc';
function SHSetNavBarText(hwndRequester : HWND; pszText : LPCTSTR): WINBOOL; external UserDLLAyg name 'SHSetNavBarText';
function SHSipInfo(uiAction: UINT; uiParam: UINT; pvParam: PVOID; fWinIni: UINT ): WINBOOL; external UserDLLAyg name 'SHSipInfo';
function SHSipPreference(hwnd: HWND ; st : SIPSTATE ) : WINBOOL; external UserDLLAyg name 'SHSipPreference';
function SHRecognizeGesture(var shrg : SHRGINFO): DWORD; external UserDLLAyg name 'SHRecognizeGesture';
{$endif read_interface}
{$ifdef read_implementation}
{$endif read_implementation}

1976
rtl/wince/wininc/base.inc
View File

File diff suppressed because it is too large Load Diff

1440
rtl/wince/wininc/commctrl.inc
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

8
rtl/wince/wininc/errors.inc
View File

@ -62,7 +62,7 @@
const
APPLICATION_ERROR_MASK = $20000000; //+winnt
LZERROR_UNKNOWNALG = -(8);
LZERROR_UNKNOWNALG = -(8);
LZERROR_BADVALUE = -(7);
LZERROR_GLOBLOCK = -(6);
LZERROR_GLOBALLOC = -(5);
@ -745,9 +745,9 @@
ERROR_REC_NON_EXISTENT = 4005;
ERROR_RPL_NOT_ALLOWED = 4006;
ERROR_SEVERITY_SUCCESS = $00000000; //+winnt
ERROR_SEVERITY_INFORMATIONAL = $40000000; //+winnt
ERROR_SEVERITY_WARNING = $80000000; //+winnt
ERROR_SEVERITY_ERROR = $C0000000; //+winnt
ERROR_SEVERITY_INFORMATIONAL = $40000000; //+winnt
ERROR_SEVERITY_WARNING = $80000000; //+winnt
ERROR_SEVERITY_ERROR = $C0000000; //+winnt
{ERROR_NO_BROWSER_SERVERS_FOUND = 6118; already above }
E_UNEXPECTED = DWORD($8000FFFF);

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

@ -1 +1 @@
WINDOWS_FILES=base errors defines struct redef aygshell cemiss ceshell commctrl coredll iphlpapi oleaut32
WINDOWS_FILES=base errors defines struct redef aygshell cemiss ceshell commctrl coredll iphlpapi oleaut32

2528
rtl/wince/wininc/messages.inc
View File

File diff suppressed because it is too large Load Diff

782
rtl/wince/wininc/redef.inc
View File

@ -1,391 +1,391 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2001 by the Free Pascal development team
This file defines type names as they are used by Delphi
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************
}
{$ifdef read_interface}
type
PIID = PGUID;
TIID = TGUID;
THANDLE = HANDLE;
PSmallRect = ^TSmallRect;
TSmallRect = SMALL_RECT;
PCharInfo = ^TCharInfo;
TCharInfo = _CHAR_INFO;
TFarProc = FARPROC;
TFNDlgProc = FARPROC;
TFNThreadStartRoutine = FARPROC;
TFNTimerAPCRoutine = FARPROC;
TFNFiberStartRoutine = FARPROC;
PObjectTypeList = ^TObjectTypeList;
_OBJECT_TYPE_LIST = record
Level: WORD;
Sbz: WORD;
ObjectType: PGUID;
end;
TObjectTypeList = _OBJECT_TYPE_LIST;
OBJECT_TYPE_LIST = _OBJECT_TYPE_LIST;
AUDIT_EVENT_TYPE = DWORD;
PBlendFunction = ^TBlendFunction;
_BLENDFUNCTION = packed record
BlendOp: BYTE;
BlendFlags: BYTE;
SourceConstantAlpha: BYTE;
AlphaFormat: BYTE;
end;
TBlendFunction = _BLENDFUNCTION;
BLENDFUNCTION = _BLENDFUNCTION;
_WIN_CERTIFICATE = Packed Record
dwLength : DWord;
wRevision : Word;
wCertificateType : Word;
bCertificate : Array[0..0] of Byte;
End;
TWinCertificate = _WIN_CERTIFICATE;
PWinCertificate = ^TWinCertificate;
TMaxLogPalette = Packed Record
palVersion : Word;
palNumEntries : Word;
palPalEntry : array[Byte] of TPaletteEntry;
end;
PMaxLogPalette = ^TMaxLogPalette;
//
// A language ID is a 16 bit value which is the combination of a
// primary language ID and a secondary language ID. The bits are
// allocated as follows:
//
// +-----------------------+-------------------------+
// | Sublanguage ID | Primary Language ID |
// +-----------------------+-------------------------+
// 15 10 9 0 bit
//
//
// Language ID creation/extraction macros:
//
// MAKELANGID - construct language id from a primary language id and
// a sublanguage id.
// PRIMARYLANGID - extract primary language id from a language id.
// SUBLANGID - extract sublanguage id from a language id.
//
function MAKELANGID(PrimaryLang, SubLang: USHORT): WORD;
function PRIMARYLANGID(LangId: WORD): WORD;
function SUBLANGID(LangId: WORD): WORD;
//
// A locale ID is a 32 bit value which is the combination of a
// language ID, a sort ID, and a reserved area. The bits are
// allocated as follows:
//
// +-------------+---------+-------------------------+
// | Reserved | Sort ID | Language ID |
// +-------------+---------+-------------------------+
// 31 20 19 16 15 0 bit
//
//
// Locale ID creation/extraction macros:
//
// MAKELCID - construct the locale id from a language id and a sort id.
// MAKESORTLCID - construct the locale id from a language id, sort id, and sort version.
// LANGIDFROMLCID - extract the language id from a locale id.
// SORTIDFROMLCID - extract the sort id from a locale id.
// SORTVERSIONFROMLCID - extract the sort version from a locale id.
//
const
NLS_VALID_LOCALE_MASK = $000fffff; //winnt
function MAKELCID(LangId, SortId: WORD): DWORD; //winnt
function MAKESORTLCID(LangId, SortId, SortVersion: WORD): DWORD; //winnt
function LANGIDFROMLCID(LocaleId: LCID): WORD; //winnt
function SORTIDFROMLCID(LocaleId: LCID): WORD; //winnt
function SORTVERSIONFROMLCID(LocaleId: LCID): WORD; //winnt
//
// Default System and User IDs for language and locale.
//
function LANG_SYSTEM_DEFAULT: WORD; //winnt
function LANG_USER_DEFAULT: WORD; //winnt
function LOCALE_SYSTEM_DEFAULT: DWORD; //+winnt
function LOCALE_USER_DEFAULT: DWORD; //+winnt
function LOCALE_NEUTRAL: DWORD; //winnt
function LOCALE_INVARIANT: DWORD; //winnt
function BeginPaint(hWnd: HWND; var lpPaint: TPaintStruct): HDC; external KernelDLL name 'BeginPaint';
function ChangeDisplaySettingsEx(lpszDeviceName: PWideChar; var lpDevMode: TDeviceMode; wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint;external KernelDLL name 'ChangeDisplaySettingsEx';
function ClearCommError(hFile: THandle; var lpErrors: DWORD; lpStat: PComStat): BOOL; external KernelDLL name 'ClearCommError';
function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; external KernelDLL name 'ClientToScreen';
function ClipCursor(var lpRect:RECT):WINBOOL; external KernelDLL name 'ClipCursor';
function CopyRect(var lprcDst: TRect; const lprcSrc: TRect): BOOL; external KernelDLL name 'CopyRect';
function CreateAcceleratorTable(var Accel; Count: Integer): HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
function CreateAcceleratorTableW(var Accel; Count: Integer): HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND;external KernelDLL name 'CreateDialogIndirectParamW';
function CreateFontIndirect(const p1: TLogFont): HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateFontIndirectW(const p1: TLogFontW): HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateIconIndirect(var piconinfo: TIconInfo): HICON; external KernelDLL name 'CreateIconIndirect';
function CreateProcess(lpApplicationName: LPTSTR; lpCommandLine: LPTSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPTSTR;
const lpStartupInfo: LPStartupInfo; var lpProcessInformation: TProcessInformation): BOOL;external KernelDLL name 'CreateProcessW';
function CreateProcess(lpApplicationName: LPTSTR; lpCommandLine: LPTSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPTSTR;
const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL;external KernelDLL name 'CreateProcessW';
function CreateProcessW(lpApplicationName: LPWSTR; lpCommandLine: LPWSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPWSTR;
const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; external KernelDLL name 'CreateProcessW';
procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'DeleteCriticalSection';
function DeviceIoControl(hDevice: THandle; dwIoControlCode: DWORD; lpInBuffer: Pointer; nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD; var lpBytesReturned: DWORD; lpOverlapped: POverlapped): BOOL;
external KernelDLL name 'DeviceIoControl';
function DispatchMessage(const lpMsg: TMsg): Longint; external KernelDLL name 'DispatchMessageW';
function DispatchMessageW(const lpMsg: TMsg): Longint; external KernelDLL name 'DispatchMessageW';
function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; external KernelDLL name 'DrawEdge';
function DrawFrameControl(DC: HDC; const Rect: TRect; uType, uState: UINT): BOOL; external KernelDLL name 'DrawFrameControl';
function DrawText(hDC: HDC; lpString: LPWSTR; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer; external KernelDLL name 'DrawTextW';
function DrawTextW(hDC: HDC; lpString: LPWSTR; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer; external KernelDLL name 'DrawTextW';
function EndPaint(hWnd: HWND; const lpPaint: TPaintStruct): BOOL; external KernelDLL name 'EndPaint';
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'EnterCriticalSection';
function EnumDisplaySettings(lpszDeviceName: PWideChar; iModeNum: DWORD; var lpDevMode: TDeviceMode): BOOL;external KernelDLL name 'EnumDisplaySettings';
function EnumDisplaySettingsW(lpszDeviceName: PWideChar; iModeNum: DWORD; var lpDevMode: TDeviceModeW): BOOL;external KernelDLL name 'EnumDisplaySettings';
function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; external KernelDLL name 'ExtCreateRegion';
function FileTimeToSystemTime(const lpFileTime: TFileTime; var lpSystemTime: TSystemTime): BOOL; external KernelDLL name 'FileTimeToSystemTime';
function FileTimeToLocalFileTime(const lpFileTime: TFileTime; var lpLocalFileTime: TFileTime): BOOL; external KernelDLL name 'FileTimeToLocalFileTime';
function FindFirstFile(lpFileName: LPTSTR; var lpFindFileData: TWIN32FindData): THandle; external KernelDLL name 'FindFirstFileW';
function FindFirstFileW(lpFileName: LPTSTR; var lpFindFileData: TWIN32FindDataW): THandle; external KernelDLL name 'FindFirstFileW';
function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; external KernelDLL name 'FindNextFileW';
function FindNextFileW(hFindFile: THandle; var lpFindFileData: TWIN32FindDataW): BOOL; external KernelDLL name 'FindNextFileW';
function GetCaretPos(var lpPoint: TPoint): BOOL; external KernelDLL name 'GetCaretPos';
function GetCharABCWidths(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL;external KernelDLL name 'GetCharABCWidths';
function GetCharABCWidthsW(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL;external KernelDLL name 'GetCharABCWidths';
function GetCharWidth32(DC: HDC; p2, p3: UINT; const Widths): BOOL;external KernelDLL name 'GetCharWidth32';
function GetCharWidth32W(DC: HDC; p2, p3: UINT; const Widths): BOOL;external KernelDLL name 'GetCharWidth32';
function GetClassInfo(hInstance: HINST; lpClassName: LPWSTR; var lpWndClass: TWndClassW): BOOL; external KernelDLL name 'GetClassInfoW';
function GetClassInfoW(hInstance: HINST; lpClassName: LPWSTR; var lpWndClass: TWndClassW): BOOL; external KernelDLL name 'GetClassInfoW';
function GetClientRect(hWnd: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'GetClientRect';
function GetClipBox(DC: HDC; var Rect: TRect): Integer; external KernelDLL name 'GetClipBox';
function GetClipCursor(var lpRect: TRect): BOOL; external KernelDLL name 'GetClipCursor';
function GetCommModemStatus(hFile: THandle; var lpModemStat: DWORD): BOOL; external KernelDLL name 'GetCommModemStatus';
function GetCommProperties(hFile: THandle; var lpCommProp: TCommProp): BOOL; external KernelDLL name 'GetCommProperties';
function GetCommState(hFile: THandle; var lpDCB: TDCB): BOOL; external KernelDLL name 'GetCommState';
function GetCommTimeouts(hFile: THandle; var lpCommTimeouts: TCommTimeouts): BOOL; external KernelDLL name 'GetCommTimeouts';
function GetCursorPos(var lpPoint: TPoint): BOOL; external KernelDLL name 'GetCursorPos';
function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL;external KernelDLL name 'GetCPInfo';
function GetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadStructs): UINT; external KernelDLL name 'GetDIBColorTable';
function GetDiskFreeSpaceEx(lpDirectoryName: PWideChar; var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: TLargeInteger; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;external KernelDLL name 'GetDiskFreeSpaceExW';
function GetDiskFreeSpaceExW(lpDirectoryName: PWideChar; var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: TLargeInteger; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;external KernelDLL name 'GetDiskFreeSpaceExW';
function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; external KernelDLL name 'GetExitCodeProcess';
function GetExitCodeThread(hThread: THandle; var lpExitCode: DWORD): BOOL; external KernelDLL name 'GetExitCodeThread';
function GetFileInformationByHandle(hFile: THandle; var lpFileInformation: TByHandleFileInformation): BOOL; external KernelDLL name 'GetFileInformationByHandle';
function GetKeyboardLayoutList(nBuff: Integer; var List): UINT; external KernelDLL name 'GetKeyboardLayoutList';
procedure GetLocalTime(var SystemTime: SYSTEMTIME); external KernelDLL name 'GetLocalTime';
function GetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfo): BOOL; external KernelDLL name 'GetMenuItemInfoW';
function GetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoW): BOOL; external KernelDLL name 'GetMenuItemInfoW';
function GetMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax: UINT): BOOL;external KernelDLL name 'GetMessageW';
function GetOpenFileName(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetOpenFileNameW';
function GetOpenFileNameW(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetOpenFileNameW';
function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'GetPaletteEntries';
function GetRgnBox(RGN: HRGN; var p2: TRect): Integer; external KernelDLL name 'GetRgnBox';
function GetSaveFileName(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetSaveFileNameW';
function GetSaveFileNameW(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetSaveFileNameW';
function GetScrollInfo(hWnd: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): BOOL; external KernelDLL name 'GetScrollInfo';
function GetStringType(dwInfoType: DWORD; const lpSrcStr: PWideChar; cchSrc: BOOL; var lpCharType: Word): BOOL;external KernelDLL name 'GetStringTypeW';
function GetStringTypeW(dwInfoType: DWORD; const lpSrcStr: PWideChar; cchSrc: BOOL; var lpCharType: Word): BOOL;external KernelDLL name 'GetStringTypeW';
function GetStringTypeEx(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; external KernelDLL name 'GetStringTypeExW';
function GetStringTypeExW(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; external KernelDLL name 'GetStringTypeExW';
procedure GetSystemInfo(var SystemInfo:SYSTEM_INFO); external KernelDLL name 'GetSystemInfo';
function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'GetSystemPaletteEntries';
procedure GetSystemTime(var lpSystemTime:SYSTEMTIME); external KernelDLL name 'GetSystemTime';
function GetTextExtentExPoint(DC: HDC; p2: LPWSTR; p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; external KernelDLL name 'GetTextExtentExPointW';
function GetTextExtentExPointW(DC: HDC; p2: LPWSTR; p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; external KernelDLL name 'GetTextExtentExPointW';
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetTextMetrics(DC: HDC; var TM: TTextMetric): BOOL;external KernelDLL name 'GetTextMetricsW';
function GetThreadContext(hThread: THandle; var lpContext: TContext): BOOL; external KernelDLL name 'GetThreadContext';
function GetThreadTimes(hThread: THandle; var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; external KernelDLL name 'GetThreadTimes';
function GetTimeZoneInformation(var lpTimeZoneInformation: TTimeZoneInformation): DWORD; external KernelDLL name 'GetTimeZoneInformation';
function GetUpdateRect(hWnd: HWND; var lpRect: TRect; bErase: BOOL): BOOL; external KernelDLL name 'GetUpdateRect';
function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL;external KernelDLL name 'GetVersionExW';
function GetVersionExW(var lpVersionInformation: TOSVersionInfoW): BOOL; external KernelDLL name 'GetVersionExW';
function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'GetWindowRect';
procedure GlobalMemoryStatus(var Buffer: MEMORYSTATUS); external KernelDLL name 'GlobalMemoryStatus';
function ImageList_GetDragImage(var ppt:POINT; var pptHotspot:POINT):HIMAGELIST; external KernelDLL name 'ImageList_GetDragImage';
function InflateRect(var lprc: TRect; dx, dy: Integer): BOOL; external KernelDLL name 'InflateRect';
procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'InitializeCriticalSection';
function IntersectRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'IntersectRect';
function IsDialogMessage(hDlg: HWND; var lpMsg: TMsg): BOOL; external KernelDLL name 'IsDialogMessageW';
function IsDialogMessageW(hDlg: HWND; var lpMsg: TMsg): BOOL; external KernelDLL name 'IsDialogMessageW';
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'LeaveCriticalSection';
function LocalFileTimeToFileTime(const lpLocalFileTime: TFileTime; var lpFileTime: TFileTime): BOOL; external KernelDLL name 'LocalFileTimeToFileTime';
function MapDialogRect(hDlg: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'MapDialogRect';
function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer; external KernelDLL name 'MapWindowPoints';
//redirected to MsgWaitForMultipleObjectsEx
function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles; fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD;
function OffsetRect(var lprc: TRect; dx, dy: Integer): BOOL; external KernelDLL name 'OffsetRect';
function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL;external KernelDLL name 'PeekMessageW';
function PeekMessageW(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external KernelDLL name 'PeekMessageW';
function Polygon(DC: HDC; var Points; Count: Integer): BOOL; external KernelDLL name 'Polygon';
function Polyline(DC: HDC; var Points; Count: Integer): BOOL; external KernelDLL name 'Polyline';
function PtInRect(const lprc:TRect; pt:POINT):WINBOOL; external KernelDLL name 'PtInRect';
function QueryPerformanceCounter(var lpPerformanceCount: TLargeInteger): BOOL; external KernelDLL name 'QueryPerformanceCounter';
function QueryPerformanceFrequency(var lpFrequency: TLargeInteger): BOOL; external KernelDLL name 'QueryPerformanceFrequency';
procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; var lpArguments:DWORD); external KernelDLL name 'RaiseException';
function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD; var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'ReadFile';
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; external KernelDLL name 'ReadProcessMemory';
function RegCreateKeyEx(hKey: HKEY; lpSubKey: LPWSTR; Reserved: DWORD; lpClass: LPWSTR; dwOptions: DWORD; samDesired: REGSAM; lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY; lpdwDisposition: PDWORD): Longint; external KERNELDLL name 'RegCreateKeyExW';
function RegCreateKeyExW(hKey: HKEY; lpSubKey: LPWSTR; Reserved: DWORD; lpClass: LPWSTR; dwOptions: DWORD; samDesired: REGSAM; lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY; lpdwDisposition: PDWORD): Longint; external KERNELDLL name 'RegCreateKeyExW';
function RegEnumKeyEx(hKey: HKEY; dwIndex: DWORD; lpName: LPWSTR; var lpcbName: DWORD; lpReserved: Pointer; lpClass: LPWSTR; lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; external KernelDLL name 'RegEnumKeyExW';
function RegEnumKeyExW(hKey: HKEY; dwIndex: DWORD; lpName: LPWSTR; var lpcbName: DWORD; lpReserved: Pointer; lpClass: LPWSTR; lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; external KernelDLL name 'RegEnumKeyExW';
function RegEnumValue(hKey: HKEY; dwIndex: DWORD; lpValueName: LPWSTR; var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; external KernelDLL name 'RegEnumValueW';
function RegEnumValueW(hKey: HKEY; dwIndex: DWORD; lpValueName: LPWSTR; var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; external KernelDLL name 'RegEnumValueW';
function RegisterClass(const lpWndClass: TWndClass): ATOM;external KernelDLL name 'RegisterClassW';
function RegisterClassW(const lpWndClass: TWndClassW): ATOM; external KernelDLL name 'RegisterClassW';
function RegOpenKeyEx(hKey: HKEY; lpSubKey: LPWSTR; ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; external KernelDLL name 'RegOpenKeyExW';
function RegOpenKeyExW(hKey: HKEY; lpSubKey: LPWSTR; ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; external KernelDLL name 'RegOpenKeyExW';
function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL; external KernelDLL name 'ScreenToClient';
function ScrollWindowEx(hWnd:HWND; dx:longint; dy:longint; prcScroll:lpRECT; prcClip:lpRECT;hrgnUpdate:HRGN; prcUpdate:LPRECT; flags:UINT):longint; external KernelDLL name 'ScrollWindowEx';
function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT;external KernelDLL name 'SendMessageTimeout';
function SendMessageTimeoutW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT;external KernelDLL name 'SendMessageTimeout';
function SetCommState(hFile: THandle; const lpDCB: TDCB): BOOL; external KernelDLL name 'SetCommState';
function SetCommTimeouts(hFile: THandle; const lpCommTimeouts: TCommTimeouts): BOOL; external KernelDLL name 'SetCommTimeouts';
function SetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; external KernelDLL name 'SetDIBColorTable';
function SetDIBits(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT; Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; external KernelDLL name 'SetDIBits';
function SetFileTime(hFile:HANDLE; var lpCreationTime:FILETIME; var lpLastAccessTime:FILETIME; var lpLastWriteTime:FILETIME):WINBOOL; external KernelDLL name 'SetFileTime';
function SetLocalTime(var lpSystemTime:SYSTEMTIME):WINBOOL; external KernelDLL name 'SetLocalTime';
function SetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; external KernelDLL name 'SetMenuItemInfoW';
function SetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; external KernelDLL name 'SetMenuItemInfoW';
function SetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'SetPaletteEntries';
function SetRect(var lprc:TRect; xLeft:longint; yTop:longint; xRight:longint; yBottom:longint):WINBOOL; external KernelDLL name 'SetRect';
function SetRectEmpty(var lprc: TRect): BOOL; external KernelDLL name 'SetRectEmpty';
function SetScrollInfo(hWnd: HWND; BarFlag: Integer; const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; external KernelDLL name 'SetScrollInfo';
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): BOOL; external KernelDLL name 'SetSysColors';
function SetSystemTime(var lpSystemTime:SYSTEMTIME):WINBOOL; external KernelDLL name 'SetSystemTime';
function SetThreadContext(hThread: THandle; const lpContext: TContext): BOOL; external KernelDLL name 'SetThreadContext';
function SHFileOperation(const lpFileOp:SHFILEOPSTRUCTW): longint; external ShellDLL name 'SHFileOperationW';
function SHFileOperationW(const lpFileOp:SHFILEOPSTRUCTW): longint; external ShellDLL name 'SHFileOperationW';
function StartDoc(DC: HDC; const p2: TDocInfo): Integer;external KernelDLL name 'StartDocW';
function StartDocW(DC: HDC; const p2: TDocInfoW): Integer;external KernelDLL name 'StartDocW';
function SubtractRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'SubtractRect';
function SystemTimeToFileTime(const lpSystemTime: TSystemTime; var lpFileTime: TFileTime): BOOL; external KernelDLL name 'SystemTimeToFileTime';
function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; external KernelDLL name 'TranslateAcceleratorW';
function TranslateAcceleratorW(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; external KernelDLL name 'TranslateAcceleratorW';
function TranslateCharsetInfo(var lpSrc: DWORD; var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; external KernelDLL name 'TranslateCharsetInfo';
function TranslateMessage(const lpMsg: TMsg): BOOL; external KernelDLL name 'TranslateMessage';
function TryEnterCriticalSection(var CriticalSection : TRTLCriticalSection) : BOOL; external KernelDLL name 'TryEnterCriticalSection';
function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'UnionRect';
function VirtualProtect(lpAddress:LPVOID; dwSize:DWORD; flNewProtect:DWORD; var lpflOldProtect:DWORD):WINBOOL; external KernelDLL name 'VirtualProtect';
function VirtualQuery(lpAddress: Pointer; var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; external KernelDLL name 'VirtualQuery';
function WaitCommEvent(hFile: THandle; var lpEvtMask: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'WaitCommEvent';
function WaitForDebugEvent(var lpDebugEvent: TDebugEvent; dwMilliseconds: DWORD): BOOL; external KernelDLL name 'WaitForDebugEvent';
function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'WriteFile';
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; external KernelDLL name 'WriteProcessMemory';
{$endif read_interface}
{$ifdef read_implementation}
function MAKELANGID(PrimaryLang, SubLang: USHORT): WORD;
begin
MAKELANGID := (SubLang shl 10) or PrimaryLang;
end;
function PRIMARYLANGID(LangId: WORD): WORD;
begin
PRIMARYLANGID := LangId and $3FF;
end;
function SUBLANGID(LangId: WORD): WORD;
begin
SUBLANGID := LangId shr 10;
end;
function MAKELCID(LangId, SortId: WORD): DWORD;
begin
MAKELCID := (DWORD(SortId) shl 16) or DWORD(LangId);
end;
function MAKESORTLCID(LangId, SortId, SortVersion: WORD): DWORD;
begin
MAKESORTLCID := MAKELCID(LangId, SortId) or (SortVersion shl 20);
end;
function LANGIDFROMLCID(LocaleId: LCID): WORD;
begin
LANGIDFROMLCID := WORD(LocaleId);
end;
function SORTIDFROMLCID(LocaleId: LCID): WORD;
begin
SORTIDFROMLCID := WORD((DWORD(LocaleId) shr 16) and $F);
end;
function SORTVERSIONFROMLCID(LocaleId: LCID): WORD;
begin
SORTVERSIONFROMLCID := WORD((DWORD(LocaleId) shr 20) and $F);
end;
function LANG_SYSTEM_DEFAULT: WORD;
begin
LANG_SYSTEM_DEFAULT := MAKELANGID(LANG_NEUTRAL, SUBLANG_SYS_DEFAULT);
end;
function LANG_USER_DEFAULT: WORD;
begin
LANG_USER_DEFAULT := MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT);
end;
function LOCALE_USER_DEFAULT: DWORD;
begin
LOCALE_USER_DEFAULT:= MAKELCID(LANG_USER_DEFAULT, SORT_DEFAULT);
end;
function LOCALE_SYSTEM_DEFAULT: DWORD;
begin
LOCALE_SYSTEM_DEFAULT:= MAKELCID(LANG_SYSTEM_DEFAULT, SORT_DEFAULT);
end;
function LOCALE_NEUTRAL: DWORD;
begin
LOCALE_NEUTRAL := MAKELCID(MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL), SORT_DEFAULT);
end;
function LOCALE_INVARIANT: DWORD;
begin
LOCALE_INVARIANT := MAKELCID(MAKELANGID(LANG_INVARIANT, SUBLANG_NEUTRAL), SORT_DEFAULT);
end;
function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles; fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD;
begin
MsgWaitForMultipleObjects:=MsgWaitForMultipleObjectsEx(nCount,@pHandles,dwMilliseconds,dwWakeMask,0);
end;
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
{$endif read_implementation}
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2001 by the Free Pascal development team
This file defines type names as they are used by Delphi
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************
}
{$ifdef read_interface}
type
PIID = PGUID;
TIID = TGUID;
THANDLE = HANDLE;
PSmallRect = ^TSmallRect;
TSmallRect = SMALL_RECT;
PCharInfo = ^TCharInfo;
TCharInfo = _CHAR_INFO;
TFarProc = FARPROC;
TFNDlgProc = FARPROC;
TFNThreadStartRoutine = FARPROC;
TFNTimerAPCRoutine = FARPROC;
TFNFiberStartRoutine = FARPROC;
PObjectTypeList = ^TObjectTypeList;
_OBJECT_TYPE_LIST = record
Level: WORD;
Sbz: WORD;
ObjectType: PGUID;
end;
TObjectTypeList = _OBJECT_TYPE_LIST;
OBJECT_TYPE_LIST = _OBJECT_TYPE_LIST;
AUDIT_EVENT_TYPE = DWORD;
PBlendFunction = ^TBlendFunction;
_BLENDFUNCTION = packed record
BlendOp: BYTE;
BlendFlags: BYTE;
SourceConstantAlpha: BYTE;
AlphaFormat: BYTE;
end;
TBlendFunction = _BLENDFUNCTION;
BLENDFUNCTION = _BLENDFUNCTION;
_WIN_CERTIFICATE = Packed Record
dwLength : DWord;
wRevision : Word;
wCertificateType : Word;
bCertificate : Array[0..0] of Byte;
End;
TWinCertificate = _WIN_CERTIFICATE;
PWinCertificate = ^TWinCertificate;
TMaxLogPalette = Packed Record
palVersion : Word;
palNumEntries : Word;
palPalEntry : array[Byte] of TPaletteEntry;
end;
PMaxLogPalette = ^TMaxLogPalette;
//
// A language ID is a 16 bit value which is the combination of a
// primary language ID and a secondary language ID. The bits are
// allocated as follows:
//
// +-----------------------+-------------------------+
// | Sublanguage ID | Primary Language ID |
// +-----------------------+-------------------------+
// 15 10 9 0 bit
//
//
// Language ID creation/extraction macros:
//
// MAKELANGID - construct language id from a primary language id and
// a sublanguage id.
// PRIMARYLANGID - extract primary language id from a language id.
// SUBLANGID - extract sublanguage id from a language id.
//
function MAKELANGID(PrimaryLang, SubLang: USHORT): WORD;
function PRIMARYLANGID(LangId: WORD): WORD;
function SUBLANGID(LangId: WORD): WORD;
//
// A locale ID is a 32 bit value which is the combination of a
// language ID, a sort ID, and a reserved area. The bits are
// allocated as follows:
//
// +-------------+---------+-------------------------+
// | Reserved | Sort ID | Language ID |
// +-------------+---------+-------------------------+
// 31 20 19 16 15 0 bit
//
//
// Locale ID creation/extraction macros:
//
// MAKELCID - construct the locale id from a language id and a sort id.
// MAKESORTLCID - construct the locale id from a language id, sort id, and sort version.
// LANGIDFROMLCID - extract the language id from a locale id.
// SORTIDFROMLCID - extract the sort id from a locale id.
// SORTVERSIONFROMLCID - extract the sort version from a locale id.
//
const
NLS_VALID_LOCALE_MASK = $000fffff; //winnt
function MAKELCID(LangId, SortId: WORD): DWORD; //winnt
function MAKESORTLCID(LangId, SortId, SortVersion: WORD): DWORD; //winnt
function LANGIDFROMLCID(LocaleId: LCID): WORD; //winnt
function SORTIDFROMLCID(LocaleId: LCID): WORD; //winnt
function SORTVERSIONFROMLCID(LocaleId: LCID): WORD; //winnt
//
// Default System and User IDs for language and locale.
//
function LANG_SYSTEM_DEFAULT: WORD; //winnt
function LANG_USER_DEFAULT: WORD; //winnt
function LOCALE_SYSTEM_DEFAULT: DWORD; //+winnt
function LOCALE_USER_DEFAULT: DWORD; //+winnt
function LOCALE_NEUTRAL: DWORD; //winnt
function LOCALE_INVARIANT: DWORD; //winnt
function BeginPaint(hWnd: HWND; var lpPaint: TPaintStruct): HDC; external KernelDLL name 'BeginPaint';
function ChangeDisplaySettingsEx(lpszDeviceName: PWideChar; var lpDevMode: TDeviceMode; wnd: HWND; dwFlags: DWORD; lParam: Pointer): Longint;external KernelDLL name 'ChangeDisplaySettingsEx';
function ClearCommError(hFile: THandle; var lpErrors: DWORD; lpStat: PComStat): BOOL; external KernelDLL name 'ClearCommError';
function ClientToScreen(hWnd: HWND; var lpPoint: TPoint): BOOL; external KernelDLL name 'ClientToScreen';
function ClipCursor(var lpRect:RECT):WINBOOL; external KernelDLL name 'ClipCursor';
function CopyRect(var lprcDst: TRect; const lprcSrc: TRect): BOOL; external KernelDLL name 'CopyRect';
function CreateAcceleratorTable(var Accel; Count: Integer): HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
function CreateAcceleratorTableW(var Accel; Count: Integer): HACCEL; external KernelDLL name 'CreateAcceleratorTableW';
function CreateDialogIndirectParam(hInstance: HINST; const lpTemplate: TDlgTemplate; hWndParent: HWND; lpDialogFunc: TFNDlgProc; dwInitParam: LPARAM): HWND;external KernelDLL name 'CreateDialogIndirectParamW';
function CreateFontIndirect(const p1: TLogFont): HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateFontIndirectW(const p1: TLogFontW): HFONT; external KernelDLL name 'CreateFontIndirectW';
function CreateIconIndirect(var piconinfo: TIconInfo): HICON; external KernelDLL name 'CreateIconIndirect';
function CreateProcess(lpApplicationName: LPTSTR; lpCommandLine: LPTSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPTSTR;
const lpStartupInfo: LPStartupInfo; var lpProcessInformation: TProcessInformation): BOOL;external KernelDLL name 'CreateProcessW';
function CreateProcess(lpApplicationName: LPTSTR; lpCommandLine: LPTSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPTSTR;
const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL;external KernelDLL name 'CreateProcessW';
function CreateProcessW(lpApplicationName: LPWSTR; lpCommandLine: LPWSTR; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; lpCurrentDirectory: LPWSTR;
const lpStartupInfo: TStartupInfo; var lpProcessInformation: TProcessInformation): BOOL; external KernelDLL name 'CreateProcessW';
procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'DeleteCriticalSection';
function DeviceIoControl(hDevice: THandle; dwIoControlCode: DWORD; lpInBuffer: Pointer; nInBufferSize: DWORD; lpOutBuffer: Pointer; nOutBufferSize: DWORD; var lpBytesReturned: DWORD; lpOverlapped: POverlapped): BOOL;
external KernelDLL name 'DeviceIoControl';
function DispatchMessage(const lpMsg: TMsg): Longint; external KernelDLL name 'DispatchMessageW';
function DispatchMessageW(const lpMsg: TMsg): Longint; external KernelDLL name 'DispatchMessageW';
function DrawEdge(hdc: HDC; var qrc: TRect; edge: UINT; grfFlags: UINT): BOOL; external KernelDLL name 'DrawEdge';
function DrawFrameControl(DC: HDC; const Rect: TRect; uType, uState: UINT): BOOL; external KernelDLL name 'DrawFrameControl';
function DrawText(hDC: HDC; lpString: LPWSTR; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer; external KernelDLL name 'DrawTextW';
function DrawTextW(hDC: HDC; lpString: LPWSTR; nCount: Integer; var lpRect: TRect; uFormat: UINT): Integer; external KernelDLL name 'DrawTextW';
function EndPaint(hWnd: HWND; const lpPaint: TPaintStruct): BOOL; external KernelDLL name 'EndPaint';
procedure EnterCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'EnterCriticalSection';
function EnumDisplaySettings(lpszDeviceName: PWideChar; iModeNum: DWORD; var lpDevMode: TDeviceMode): BOOL;external KernelDLL name 'EnumDisplaySettings';
function EnumDisplaySettingsW(lpszDeviceName: PWideChar; iModeNum: DWORD; var lpDevMode: TDeviceModeW): BOOL;external KernelDLL name 'EnumDisplaySettings';
function ExtCreateRegion(p1: PXForm; p2: DWORD; const p3: TRgnData): HRGN; external KernelDLL name 'ExtCreateRegion';
function FileTimeToSystemTime(const lpFileTime: TFileTime; var lpSystemTime: TSystemTime): BOOL; external KernelDLL name 'FileTimeToSystemTime';
function FileTimeToLocalFileTime(const lpFileTime: TFileTime; var lpLocalFileTime: TFileTime): BOOL; external KernelDLL name 'FileTimeToLocalFileTime';
function FindFirstFile(lpFileName: LPTSTR; var lpFindFileData: TWIN32FindData): THandle; external KernelDLL name 'FindFirstFileW';
function FindFirstFileW(lpFileName: LPTSTR; var lpFindFileData: TWIN32FindDataW): THandle; external KernelDLL name 'FindFirstFileW';
function FindNextFile(hFindFile: THandle; var lpFindFileData: TWIN32FindData): BOOL; external KernelDLL name 'FindNextFileW';
function FindNextFileW(hFindFile: THandle; var lpFindFileData: TWIN32FindDataW): BOOL; external KernelDLL name 'FindNextFileW';
function GetCaretPos(var lpPoint: TPoint): BOOL; external KernelDLL name 'GetCaretPos';
function GetCharABCWidths(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL;external KernelDLL name 'GetCharABCWidths';
function GetCharABCWidthsW(DC: HDC; p2, p3: UINT; const ABCStructs): BOOL;external KernelDLL name 'GetCharABCWidths';
function GetCharWidth32(DC: HDC; p2, p3: UINT; const Widths): BOOL;external KernelDLL name 'GetCharWidth32';
function GetCharWidth32W(DC: HDC; p2, p3: UINT; const Widths): BOOL;external KernelDLL name 'GetCharWidth32';
function GetClassInfo(hInstance: HINST; lpClassName: LPWSTR; var lpWndClass: TWndClassW): BOOL; external KernelDLL name 'GetClassInfoW';
function GetClassInfoW(hInstance: HINST; lpClassName: LPWSTR; var lpWndClass: TWndClassW): BOOL; external KernelDLL name 'GetClassInfoW';
function GetClientRect(hWnd: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'GetClientRect';
function GetClipBox(DC: HDC; var Rect: TRect): Integer; external KernelDLL name 'GetClipBox';
function GetClipCursor(var lpRect: TRect): BOOL; external KernelDLL name 'GetClipCursor';
function GetCommModemStatus(hFile: THandle; var lpModemStat: DWORD): BOOL; external KernelDLL name 'GetCommModemStatus';
function GetCommProperties(hFile: THandle; var lpCommProp: TCommProp): BOOL; external KernelDLL name 'GetCommProperties';
function GetCommState(hFile: THandle; var lpDCB: TDCB): BOOL; external KernelDLL name 'GetCommState';
function GetCommTimeouts(hFile: THandle; var lpCommTimeouts: TCommTimeouts): BOOL; external KernelDLL name 'GetCommTimeouts';
function GetCursorPos(var lpPoint: TPoint): BOOL; external KernelDLL name 'GetCursorPos';
function GetCPInfo(CodePage: UINT; var lpCPInfo: TCPInfo): BOOL;external KernelDLL name 'GetCPInfo';
function GetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadStructs): UINT; external KernelDLL name 'GetDIBColorTable';
function GetDiskFreeSpaceEx(lpDirectoryName: PWideChar; var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: TLargeInteger; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;external KernelDLL name 'GetDiskFreeSpaceExW';
function GetDiskFreeSpaceExW(lpDirectoryName: PWideChar; var lpFreeBytesAvailableToCaller, lpTotalNumberOfBytes: TLargeInteger; lpTotalNumberOfFreeBytes: PLargeInteger): BOOL;external KernelDLL name 'GetDiskFreeSpaceExW';
function GetExitCodeProcess(hProcess: THandle; var lpExitCode: DWORD): BOOL; external KernelDLL name 'GetExitCodeProcess';
function GetExitCodeThread(hThread: THandle; var lpExitCode: DWORD): BOOL; external KernelDLL name 'GetExitCodeThread';
function GetFileInformationByHandle(hFile: THandle; var lpFileInformation: TByHandleFileInformation): BOOL; external KernelDLL name 'GetFileInformationByHandle';
function GetKeyboardLayoutList(nBuff: Integer; var List): UINT; external KernelDLL name 'GetKeyboardLayoutList';
procedure GetLocalTime(var SystemTime: SYSTEMTIME); external KernelDLL name 'GetLocalTime';
function GetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfo): BOOL; external KernelDLL name 'GetMenuItemInfoW';
function GetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; var p4: TMenuItemInfoW): BOOL; external KernelDLL name 'GetMenuItemInfoW';
function GetMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax: UINT): BOOL;external KernelDLL name 'GetMessageW';
function GetOpenFileName(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetOpenFileNameW';
function GetOpenFileNameW(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetOpenFileNameW';
function GetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'GetPaletteEntries';
function GetRgnBox(RGN: HRGN; var p2: TRect): Integer; external KernelDLL name 'GetRgnBox';
function GetSaveFileName(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetSaveFileNameW';
function GetSaveFileNameW(var OpenFile:TOPENFILENAMEW):WINBOOL; external KernelDLL name 'GetSaveFileNameW';
function GetScrollInfo(hWnd: HWND; BarFlag: Integer; var ScrollInfo: TScrollInfo): BOOL; external KernelDLL name 'GetScrollInfo';
function GetStringType(dwInfoType: DWORD; const lpSrcStr: PWideChar; cchSrc: BOOL; var lpCharType: Word): BOOL;external KernelDLL name 'GetStringTypeW';
function GetStringTypeW(dwInfoType: DWORD; const lpSrcStr: PWideChar; cchSrc: BOOL; var lpCharType: Word): BOOL;external KernelDLL name 'GetStringTypeW';
function GetStringTypeEx(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; external KernelDLL name 'GetStringTypeExW';
function GetStringTypeExW(Locale: LCID; dwInfoType: DWORD; lpSrcStr: PWideChar; cchSrc: Integer; var lpCharType): BOOL; external KernelDLL name 'GetStringTypeExW';
procedure GetSystemInfo(var SystemInfo:SYSTEM_INFO); external KernelDLL name 'GetSystemInfo';
function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'GetSystemPaletteEntries';
procedure GetSystemTime(var lpSystemTime:SYSTEMTIME); external KernelDLL name 'GetSystemTime';
function GetTextExtentExPoint(DC: HDC; p2: LPWSTR; p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; external KernelDLL name 'GetTextExtentExPointW';
function GetTextExtentExPointW(DC: HDC; p2: LPWSTR; p3, p4: Integer; p5, p6: PInteger; var p7: TSize): BOOL; external KernelDLL name 'GetTextExtentExPointW';
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
function GetTextMetrics(DC: HDC; var TM: TTextMetric): BOOL;external KernelDLL name 'GetTextMetricsW';
function GetThreadContext(hThread: THandle; var lpContext: TContext): BOOL; external KernelDLL name 'GetThreadContext';
function GetThreadTimes(hThread: THandle; var lpCreationTime, lpExitTime, lpKernelTime, lpUserTime: TFileTime): BOOL; external KernelDLL name 'GetThreadTimes';
function GetTimeZoneInformation(var lpTimeZoneInformation: TTimeZoneInformation): DWORD; external KernelDLL name 'GetTimeZoneInformation';
function GetUpdateRect(hWnd: HWND; var lpRect: TRect; bErase: BOOL): BOOL; external KernelDLL name 'GetUpdateRect';
function GetVersionEx(var lpVersionInformation: TOSVersionInfo): BOOL;external KernelDLL name 'GetVersionExW';
function GetVersionExW(var lpVersionInformation: TOSVersionInfoW): BOOL; external KernelDLL name 'GetVersionExW';
function GetWindowRect(hWnd: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'GetWindowRect';
procedure GlobalMemoryStatus(var Buffer: MEMORYSTATUS); external KernelDLL name 'GlobalMemoryStatus';
function ImageList_GetDragImage(var ppt:POINT; var pptHotspot:POINT):HIMAGELIST; external KernelDLL name 'ImageList_GetDragImage';
function InflateRect(var lprc: TRect; dx, dy: Integer): BOOL; external KernelDLL name 'InflateRect';
procedure InitializeCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'InitializeCriticalSection';
function IntersectRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'IntersectRect';
function IsDialogMessage(hDlg: HWND; var lpMsg: TMsg): BOOL; external KernelDLL name 'IsDialogMessageW';
function IsDialogMessageW(hDlg: HWND; var lpMsg: TMsg): BOOL; external KernelDLL name 'IsDialogMessageW';
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external KernelDLL name 'LeaveCriticalSection';
function LocalFileTimeToFileTime(const lpLocalFileTime: TFileTime; var lpFileTime: TFileTime): BOOL; external KernelDLL name 'LocalFileTimeToFileTime';
function MapDialogRect(hDlg: HWND; var lpRect: TRect): BOOL; external KernelDLL name 'MapDialogRect';
function MapWindowPoints(hWndFrom, hWndTo: HWND; var lpPoints; cPoints: UINT): Integer; external KernelDLL name 'MapWindowPoints';
//redirected to MsgWaitForMultipleObjectsEx
function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles; fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD;
function OffsetRect(var lprc: TRect; dx, dy: Integer): BOOL; external KernelDLL name 'OffsetRect';
function PeekMessage(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL;external KernelDLL name 'PeekMessageW';
function PeekMessageW(var lpMsg: TMsg; hWnd: HWND; wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; external KernelDLL name 'PeekMessageW';
function Polygon(DC: HDC; var Points; Count: Integer): BOOL; external KernelDLL name 'Polygon';
function Polyline(DC: HDC; var Points; Count: Integer): BOOL; external KernelDLL name 'Polyline';
function PtInRect(const lprc:TRect; pt:POINT):WINBOOL; external KernelDLL name 'PtInRect';
function QueryPerformanceCounter(var lpPerformanceCount: TLargeInteger): BOOL; external KernelDLL name 'QueryPerformanceCounter';
function QueryPerformanceFrequency(var lpFrequency: TLargeInteger): BOOL; external KernelDLL name 'QueryPerformanceFrequency';
procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; var lpArguments:DWORD); external KernelDLL name 'RaiseException';
function ReadFile(hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD; var lpNumberOfBytesRead: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'ReadFile';
function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; external KernelDLL name 'ReadProcessMemory';
function RegCreateKeyEx(hKey: HKEY; lpSubKey: LPWSTR; Reserved: DWORD; lpClass: LPWSTR; dwOptions: DWORD; samDesired: REGSAM; lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY; lpdwDisposition: PDWORD): Longint; external KERNELDLL name 'RegCreateKeyExW';
function RegCreateKeyExW(hKey: HKEY; lpSubKey: LPWSTR; Reserved: DWORD; lpClass: LPWSTR; dwOptions: DWORD; samDesired: REGSAM; lpSecurityAttributes: PSecurityAttributes; var phkResult: HKEY; lpdwDisposition: PDWORD): Longint; external KERNELDLL name 'RegCreateKeyExW';
function RegEnumKeyEx(hKey: HKEY; dwIndex: DWORD; lpName: LPWSTR; var lpcbName: DWORD; lpReserved: Pointer; lpClass: LPWSTR; lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; external KernelDLL name 'RegEnumKeyExW';
function RegEnumKeyExW(hKey: HKEY; dwIndex: DWORD; lpName: LPWSTR; var lpcbName: DWORD; lpReserved: Pointer; lpClass: LPWSTR; lpcbClass: PDWORD; lpftLastWriteTime: PFileTime): Longint; external KernelDLL name 'RegEnumKeyExW';
function RegEnumValue(hKey: HKEY; dwIndex: DWORD; lpValueName: LPWSTR; var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; external KernelDLL name 'RegEnumValueW';
function RegEnumValueW(hKey: HKEY; dwIndex: DWORD; lpValueName: LPWSTR; var lpcbValueName: DWORD; lpReserved: Pointer; lpType: PDWORD; lpData: PByte; lpcbData: PDWORD): Longint; external KernelDLL name 'RegEnumValueW';
function RegisterClass(const lpWndClass: TWndClass): ATOM;external KernelDLL name 'RegisterClassW';
function RegisterClassW(const lpWndClass: TWndClassW): ATOM; external KernelDLL name 'RegisterClassW';
function RegOpenKeyEx(hKey: HKEY; lpSubKey: LPWSTR; ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; external KernelDLL name 'RegOpenKeyExW';
function RegOpenKeyExW(hKey: HKEY; lpSubKey: LPWSTR; ulOptions: DWORD; samDesired: REGSAM; var phkResult: HKEY): Longint; external KernelDLL name 'RegOpenKeyExW';
function ScreenToClient(hWnd: HWND; var lpPoint: TPoint): BOOL; external KernelDLL name 'ScreenToClient';
function ScrollWindowEx(hWnd:HWND; dx:longint; dy:longint; prcScroll:lpRECT; prcClip:lpRECT;hrgnUpdate:HRGN; prcUpdate:LPRECT; flags:UINT):longint; external KernelDLL name 'ScrollWindowEx';
function SendMessageTimeout(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT;external KernelDLL name 'SendMessageTimeout';
function SendMessageTimeoutW(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM; fuFlags, uTimeout: UINT; var lpdwResult: DWORD): LRESULT;external KernelDLL name 'SendMessageTimeout';
function SetCommState(hFile: THandle; const lpDCB: TDCB): BOOL; external KernelDLL name 'SetCommState';
function SetCommTimeouts(hFile: THandle; const lpCommTimeouts: TCommTimeouts): BOOL; external KernelDLL name 'SetCommTimeouts';
function SetDIBColorTable(DC: HDC; p2, p3: UINT; var RGBQuadSTructs): UINT; external KernelDLL name 'SetDIBColorTable';
function SetDIBits(DC: HDC; Bitmap: HBITMAP; StartScan, NumScans: UINT; Bits: Pointer; var BitsInfo: TBitmapInfo; Usage: UINT): Integer; external KernelDLL name 'SetDIBits';
function SetFileTime(hFile:HANDLE; var lpCreationTime:FILETIME; var lpLastAccessTime:FILETIME; var lpLastWriteTime:FILETIME):WINBOOL; external KernelDLL name 'SetFileTime';
function SetLocalTime(var lpSystemTime:SYSTEMTIME):WINBOOL; external KernelDLL name 'SetLocalTime';
function SetMenuItemInfo(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfo): BOOL; external KernelDLL name 'SetMenuItemInfoW';
function SetMenuItemInfoW(p1: HMENU; p2: UINT; p3: BOOL; const p4: TMenuItemInfoW): BOOL; external KernelDLL name 'SetMenuItemInfoW';
function SetPaletteEntries(Palette: HPALETTE; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external KernelDLL name 'SetPaletteEntries';
function SetRect(var lprc:TRect; xLeft:longint; yTop:longint; xRight:longint; yBottom:longint):WINBOOL; external KernelDLL name 'SetRect';
function SetRectEmpty(var lprc: TRect): BOOL; external KernelDLL name 'SetRectEmpty';
function SetScrollInfo(hWnd: HWND; BarFlag: Integer; const ScrollInfo: TScrollInfo; Redraw: BOOL): Integer; external KernelDLL name 'SetScrollInfo';
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): BOOL; external KernelDLL name 'SetSysColors';
function SetSystemTime(var lpSystemTime:SYSTEMTIME):WINBOOL; external KernelDLL name 'SetSystemTime';
function SetThreadContext(hThread: THandle; const lpContext: TContext): BOOL; external KernelDLL name 'SetThreadContext';
function SHFileOperation(const lpFileOp:SHFILEOPSTRUCTW): longint; external ShellDLL name 'SHFileOperationW';
function SHFileOperationW(const lpFileOp:SHFILEOPSTRUCTW): longint; external ShellDLL name 'SHFileOperationW';
function StartDoc(DC: HDC; const p2: TDocInfo): Integer;external KernelDLL name 'StartDocW';
function StartDocW(DC: HDC; const p2: TDocInfoW): Integer;external KernelDLL name 'StartDocW';
function SubtractRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'SubtractRect';
function SystemTimeToFileTime(const lpSystemTime: TSystemTime; var lpFileTime: TFileTime): BOOL; external KernelDLL name 'SystemTimeToFileTime';
function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; external KernelDLL name 'TranslateAcceleratorW';
function TranslateAcceleratorW(hWnd: HWND; hAccTable: HACCEL; var lpMsg: TMsg): Integer; external KernelDLL name 'TranslateAcceleratorW';
function TranslateCharsetInfo(var lpSrc: DWORD; var lpCs: TCharsetInfo; dwFlags: DWORD): BOOL; external KernelDLL name 'TranslateCharsetInfo';
function TranslateMessage(const lpMsg: TMsg): BOOL; external KernelDLL name 'TranslateMessage';
function TryEnterCriticalSection(var CriticalSection : TRTLCriticalSection) : BOOL; external KernelDLL name 'TryEnterCriticalSection';
function UnionRect(var lprcDst: TRect; const lprcSrc1, lprcSrc2: TRect): BOOL; external KernelDLL name 'UnionRect';
function VirtualProtect(lpAddress:LPVOID; dwSize:DWORD; flNewProtect:DWORD; var lpflOldProtect:DWORD):WINBOOL; external KernelDLL name 'VirtualProtect';
function VirtualQuery(lpAddress: Pointer; var lpBuffer: TMemoryBasicInformation; dwLength: DWORD): DWORD; external KernelDLL name 'VirtualQuery';
function WaitCommEvent(hFile: THandle; var lpEvtMask: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'WaitCommEvent';
function WaitForDebugEvent(var lpDebugEvent: TDebugEvent; dwMilliseconds: DWORD): BOOL; external KernelDLL name 'WaitForDebugEvent';
function WriteFile(hFile: THandle; const Buffer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; external KernelDLL name 'WriteFile';
function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; external KernelDLL name 'WriteProcessMemory';
{$endif read_interface}
{$ifdef read_implementation}
function MAKELANGID(PrimaryLang, SubLang: USHORT): WORD;
begin
MAKELANGID := (SubLang shl 10) or PrimaryLang;
end;
function PRIMARYLANGID(LangId: WORD): WORD;
begin
PRIMARYLANGID := LangId and $3FF;
end;
function SUBLANGID(LangId: WORD): WORD;
begin
SUBLANGID := LangId shr 10;
end;
function MAKELCID(LangId, SortId: WORD): DWORD;
begin
MAKELCID := (DWORD(SortId) shl 16) or DWORD(LangId);
end;
function MAKESORTLCID(LangId, SortId, SortVersion: WORD): DWORD;
begin
MAKESORTLCID := MAKELCID(LangId, SortId) or (SortVersion shl 20);
end;
function LANGIDFROMLCID(LocaleId: LCID): WORD;
begin
LANGIDFROMLCID := WORD(LocaleId);
end;
function SORTIDFROMLCID(LocaleId: LCID): WORD;
begin
SORTIDFROMLCID := WORD((DWORD(LocaleId) shr 16) and $F);
end;
function SORTVERSIONFROMLCID(LocaleId: LCID): WORD;
begin
SORTVERSIONFROMLCID := WORD((DWORD(LocaleId) shr 20) and $F);
end;
function LANG_SYSTEM_DEFAULT: WORD;
begin
LANG_SYSTEM_DEFAULT := MAKELANGID(LANG_NEUTRAL, SUBLANG_SYS_DEFAULT);
end;
function LANG_USER_DEFAULT: WORD;
begin
LANG_USER_DEFAULT := MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT);
end;
function LOCALE_USER_DEFAULT: DWORD;
begin
LOCALE_USER_DEFAULT:= MAKELCID(LANG_USER_DEFAULT, SORT_DEFAULT);
end;
function LOCALE_SYSTEM_DEFAULT: DWORD;
begin
LOCALE_SYSTEM_DEFAULT:= MAKELCID(LANG_SYSTEM_DEFAULT, SORT_DEFAULT);
end;
function LOCALE_NEUTRAL: DWORD;
begin
LOCALE_NEUTRAL := MAKELCID(MAKELANGID(LANG_NEUTRAL, SUBLANG_NEUTRAL), SORT_DEFAULT);
end;
function LOCALE_INVARIANT: DWORD;
begin
LOCALE_INVARIANT := MAKELCID(MAKELANGID(LANG_INVARIANT, SUBLANG_NEUTRAL), SORT_DEFAULT);
end;
function MsgWaitForMultipleObjects(nCount: DWORD; var pHandles; fWaitAll: BOOL; dwMilliseconds, dwWakeMask: DWORD): DWORD;
begin
MsgWaitForMultipleObjects:=MsgWaitForMultipleObjectsEx(nCount,@pHandles,dwMilliseconds,dwWakeMask,0);
end;
function GetTextExtentPoint32(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
function GetTextExtentPoint32W(DC: HDC; Str: LPWSTR; Count: Integer; var Size: TSize): BOOL;
begin
Result:=GetTextExtentExPoint(DC, Str, Count, 0, nil, nil, @Size);
end;
{$endif read_implementation}

1080
rtl/wince/wininc/simmgr.inc
View File

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

3614
rtl/wince/wininc/tapi.inc
View File

File diff suppressed because it is too large Load Diff