func.inc 168 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545
  1. {
  2. This file is part of the Free Pascal run time library.
  3. This unit contains the record definition for the Win32 API
  4. Copyright (c) 1999-2000 by Florian KLaempfl,
  5. member of the Free Pascal development team.
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. {
  13. Functions.h
  14. Declarations for all the Windows32 API Functions
  15. Copyright (C) 1996, 1997 Free Software Foundation, Inc.
  16. Author: Scott Christley <[email protected]>
  17. This file is part of the Windows32 API Library.
  18. This library is free software; you can redistribute it and/or
  19. modify it under the terms of the GNU Library General Public
  20. License as published by the Free Software Foundation; either
  21. version 2 of the License, or (at your option) any later version.
  22. This library is distributed in the hope that it will be useful,
  23. but WITHOUT ANY WARRANTY; without even the implied warranty of
  24. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  25. Library General Public License for more details.
  26. If you are interested in a warranty or support for this source code,
  27. contact Scott Christley <[email protected]> for more information.
  28. You should have received a copy of the GNU Library General Public
  29. License along with this library; see the file COPYING.LIB.
  30. If not, write to the Free Software Foundation,
  31. 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  32. Changes :
  33. 08/22/2005 update for wince4.2 port, [email protected]
  34. }
  35. {$ifdef read_interface}
  36. //begin common win32 & wince
  37. function AbortDoc(_para1:HDC):Integer; external GdiDLL name 'AbortDoc';
  38. function AdjustWindowRectEx(lpRect:LPRECT; dwStyle:DWORD; bMenu:WINBOOL; dwExStyle:DWORD):WINBOOL; external UserDLLCore name 'AdjustWindowRectEx';
  39. function BeginDeferWindowPos(nNumWindows:Integer):HDWP; external UserDLLCore name 'BeginDeferWindowPos';
  40. function BeginPaint(hWnd:HWND; lpPaint:LPPAINTSTRUCT):HDC; external UserDLLCore name 'BeginPaint';
  41. function BitBlt(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:HDC; _para7:Integer; _para8:Integer; _para9:DWORD):WINBOOL; external GdiDLL name 'BitBlt';
  42. function BringWindowToTop(hWnd:HWND):WINBOOL; external UserDLLCore name 'BringWindowToTop';
  43. function CallNextHookEx(hhk:HHOOK; nCode:Integer; wParam:WPARAM; lParam:LPARAM):LRESULT; external UserDLLCore name 'CallNextHookEx';
  44. function CheckMenuItem(hMenu:HMENU; uIDCheckItem:UINT; uCheck:UINT):DWORD; external UserDLLCore name 'CheckMenuItem';
  45. function CheckMenuRadioItem(_para1:HMENU; _para2:UINT; _para3:UINT; _para4:UINT; _para5:UINT):WINBOOL; external UserDLLCore name 'CheckMenuRadioItem';
  46. function CheckRadioButton(hDlg:HWND; nIDFirstButton:Integer; nIDLastButton:Integer; nIDCheckButton:Integer):WINBOOL; external UserDLLCore name 'CheckRadioButton';
  47. function ClearCommBreak(hFile:HANDLE):WINBOOL; external KernelDLL name 'ClearCommBreak';
  48. function ClearCommError(hFile:HANDLE; lpErrors:LPDWORD; lpStat:LPCOMSTAT):WINBOOL; external KernelDLL name 'ClearCommError';
  49. function ClientToScreen(hWnd:HWND; lpPoint:LPPOINT):WINBOOL; external UserDLLCore name 'ClientToScreen';
  50. function ClipCursor(lpRect:LPRECT):WINBOOL; external UserDLLCore name 'ClipCursor';
  51. function CloseClipboard:WINBOOL; external UserDLLCore name 'CloseClipboard';
  52. function CloseEnhMetaFile(_para1:HDC):HENHMETAFILE; external GdiDLL name 'CloseEnhMetaFile';
  53. function CloseHandle(hObject:HANDLE):WINBOOL; external KernelDLL name 'CloseHandle';
  54. function CombineRgn(_para1:HRGN; _para2:HRGN; _para3:HRGN; _para4:Integer):Integer; external GdiDLL name 'CombineRgn';
  55. function CommDlgExtendedError : DWORD; external ComdlgDLL name 'CommDlgExtendedError';
  56. //to move to ascfun
  57. function CommDlg_OpenSave_GetSpecA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  58. //to move to unifun
  59. function CommDlg_OpenSave_GetSpecW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  60. {$ifndef Unicode}
  61. //to move to ascdef
  62. function CommDlg_OpenSave_GetSpec(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  63. {$endif Unicode}
  64. //to move to ascfun
  65. function CommDlg_OpenSave_GetFilePathA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  66. //to move to unifun
  67. function CommDlg_OpenSave_GetFilePathW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  68. {$ifndef Unicode}
  69. //to move to ascdef
  70. function CommDlg_OpenSave_GetFilePath(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  71. {$endif Unicode}
  72. //to move to ascfun
  73. function CommDlg_OpenSave_GetFolderPathA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  74. //to move to unifun
  75. function CommDlg_OpenSave_GetFolderPathW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  76. {$ifndef Unicode}
  77. //to move to ascdef
  78. function CommDlg_OpenSave_GetFolderPath(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  79. {$endif Unicode}
  80. //begin moved to unidef
  81. //function CommDlg_OpenSave_GetSpec(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  82. //function CommDlg_OpenSave_GetFilePath(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  83. //function CommDlg_OpenSave_GetFolderPath(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  84. //end moved to unidef
  85. function CommDlg_OpenSave_GetFolderIDList(_hdlg:HWND;_pidl:LPVOID;_cbmax : Integer) : LRESULT;
  86. function CommDlg_OpenSave_SetControlText(_hdlg:HWND;_id : Integer;_text : LPSTR) : LRESULT;
  87. function CommDlg_OpenSave_HideControl(_hdlg:HWND;_id : Integer) : LRESULT;
  88. function CommDlg_OpenSave_SetDefExt(_hdlg:HWND;_pszext : LPSTR) : LRESULT;
  89. function CompareFileTime(lpFileTime1:LPFILETIME; lpFileTime2:LPFILETIME):LONG; external KernelDLL name 'CompareFileTime';
  90. function ContinueDebugEvent(dwProcessId:DWORD; dwThreadId:DWORD; dwContinueStatus:DWORD):WINBOOL; external KernelDLL name 'ContinueDebugEvent';
  91. function ConvertDefaultLocale(Locale:LCID):LCID; external KernelDLL name 'ConvertDefaultLocale';
  92. procedure CopyMemory(Destination:PVOID; Source:pointer; Length:DWORD);
  93. function CopyRect(lprcDst:LPRECT; var lprcSrc:RECT):WINBOOL; external UserDLLCore name 'CopyRect';
  94. function CountClipboardFormats:Integer; external UserDLLCore name 'CountClipboardFormats';
  95. function CreateBitmap(_para1:Integer; _para2:Integer; _para3:UINT; _para4:UINT; _para5:pointer):HBITMAP; external GdiDLL name 'CreateBitmap';
  96. function CreateCaret(hWnd:HWND; hBitmap:HBITMAP; nWidth:Integer; nHeight:Integer):WINBOOL; external UserDLLCore name 'CreateCaret';
  97. function CreateCompatibleBitmap(_para1:HDC; _para2:Integer; _para3:Integer):HBITMAP; external GdiDLL name 'CreateCompatibleBitmap';
  98. function CreateCompatibleDC(_para1:HDC):HDC; external GdiDLL name 'CreateCompatibleDC';
  99. function CreateDIBPatternBrushPt(_para1:pointer; _para2:UINT):HBRUSH; external GdiDLL name 'CreateDIBPatternBrushPt';
  100. function CreateDIBSection(_para1:HDC; var _para2:BITMAPINFO; _para3:UINT; var _para4:pointer; _para5:HANDLE;_para6:DWORD):HBITMAP; external GdiDLL name 'CreateDIBSection';
  101. function CreateIconIndirect(piconinfo:PICONINFO):HICON; external UserDLLCore name 'CreateIconIndirect';
  102. function CreateMenu:HMENU; external UserDLLCore name 'CreateMenu';
  103. function CreatePopupMenu:HMENU; external UserDLLCore name 'CreatePopupMenu';
  104. function CreatePalette(var _para1:LOGPALETTE):HPALETTE; external GdiDLL name 'CreatePalette';
  105. function CreatePatternBrush(_para1:HBITMAP):HBRUSH; external GdiDLL name 'CreatePatternBrush';
  106. function CreatePen(_para1:Integer; _para2:Integer; _para3:COLORREF):HPEN; external GdiDLL name 'CreatePen';
  107. function CreatePenIndirect(var _para1:LOGPEN):HPEN; external GdiDLL name 'CreatePenIndirect';
  108. function CreateRectRgn(_para1:Integer; _para2:Integer; _para3:Integer; _para4:Integer):HRGN; external GdiDLL name 'CreateRectRgn';
  109. function CreateRectRgnIndirect(var _para1:RECT):HRGN; external GdiDLL name 'CreateRectRgnIndirect';
  110. function CreateSolidBrush(_para1:COLORREF):HBRUSH; external GdiDLL name 'CreateSolidBrush';
  111. function CreateToolbarEx(hwnd:HWND; ws:DWORD; wID:UINT; nBitmaps:Integer; hBMInst:HINST;wBMID:UINT; lpButtons:LPCTBBUTTON; iNumButtons:Integer; dxButton:Integer; dyButton:Integer;dxBitmap:Integer;
  112. dyBitmap:Integer; uStructSize:UINT):HWND; external ComctlDLL name 'CreateToolbarEx';
  113. function CreateUpDownControl(dwStyle:DWORD; x:Integer; y:Integer; cx:Integer; cy:Integer;hParent:HWND; nID:Integer; hInst:HINST; hBuddy:HWND; nUpper:Integer;nLower:Integer; nPos:Integer):HWND; external ComctlDLL name 'CreateUpDownControl';
  114. function DebugActiveProcess(dwProcessId:DWORD):WINBOOL; external KernelDLL name 'DebugActiveProcess';
  115. function DeferWindowPos(hWinPosInfo:HDWP; hWnd:HWND; hWndInsertAfter:HWND; x:Integer; y:Integer;cx:Integer; cy:Integer; uFlags:UINT):HDWP; external UserDLLCore name 'DeferWindowPos';
  116. procedure DeleteCriticalSection(lpCriticalSection:LPCRITICAL_SECTION); external KernelDLL name 'DeleteCriticalSection';
  117. function DeleteDC(_para1:HDC):WINBOOL; external GdiDLL name 'DeleteDC';
  118. function DeleteEnhMetaFile(_para1:HENHMETAFILE):WINBOOL; external GdiDLL name 'DeleteEnhMetaFile';
  119. function DeleteMenu(hMenu:HMENU; uPosition:UINT; uFlags:UINT):WINBOOL; external UserDLLCore name 'DeleteMenu';
  120. function DeleteObject(_para1:HGDIOBJ):WINBOOL; external GdiDLL name 'DeleteObject';
  121. function DestroyAcceleratorTable(hAccel:HACCEL):WINBOOL; external UserDLLCore name 'DestroyAcceleratorTable';
  122. function DestroyCaret:WINBOOL; external UserDLLCore name 'DestroyCaret';
  123. function DestroyIcon(hIcon:HICON):WINBOOL; external UserDLLCore name 'DestroyIcon';
  124. function DestroyMenu(hMenu:HMENU):WINBOOL; external UserDLLCore name 'DestroyMenu';
  125. function DestroyPropertySheetPage(hPSPage:HPROPSHEETPAGE):WINBOOL; external ComctlDLL name 'DestroyPropertySheetPage';
  126. function DestroyWindow(hWnd:HWND):WINBOOL; external UserDLLCore name 'DestroyWindow';
  127. function DeviceIoControl(hDevice:HANDLE; dwIoControlCode:DWORD; lpInBuffer:LPVOID; nInBufferSize:DWORD; lpOutBuffer:LPVOID;nOutBufferSize:DWORD; lpBytesReturned:LPDWORD; lpOverlapped:LPOVERLAPPED):WINBOOL; external KernelDLL name 'DeviceIoControl';
  128. function DisableThreadLibraryCalls(hLibModule:HMODULE):WINBOOL; external KernelDLL name 'DisableThreadLibraryCalls';
  129. function DrawEdge(hdc:HDC; qrc:LPRECT; edge:UINT; grfFlags:UINT):WINBOOL; external UserDLLCore name 'DrawEdge';
  130. function DrawFocusRect(hDC:HDC; var lprc:RECT):WINBOOL; external UserDLLCore name 'DrawFocusRect';
  131. function DrawFrameControl(_para1:HDC; _para2:LPRECT; _para3:UINT; _para4:UINT):WINBOOL; external UserDLLCore name 'DrawFrameControl';
  132. function DrawIconEx(hdc:HDC; xLeft:Integer; yTop:Integer; hIcon:HICON; cxWidth:Integer;cyWidth:Integer; istepIfAniCur:UINT; hbrFlickerFreeDraw:HBRUSH; diFlags:UINT):WINBOOL; external UserDLLCore name 'DrawIconEx';
  133. function DrawMenuBar(hWnd:HWND):WINBOOL; external UserDLLCore name 'DrawMenuBar';
  134. function DuplicateHandle(hSourceProcessHandle:HANDLE; hSourceHandle:HANDLE; hTargetProcessHandle:HANDLE; lpTargetHandle:LPHANDLE; dwDesiredAccess:DWORD;bInheritHandle:WINBOOL; dwOptions:DWORD):WINBOOL; external KernelDLL name 'DuplicateHandle';
  135. function Ellipse(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer):WINBOOL; external GdiDLL name 'Ellipse';
  136. function EqualRgn(_para1:HRGN; _para2:HRGN):WINBOOL; external GdiDLL name 'EqualRgn';
  137. function EmptyClipboard:WINBOOL; external UserDLLCore name 'EmptyClipboard';
  138. function EnableMenuItem(hMenu:HMENU; uIDEnableItem:UINT; uEnable:UINT):WINBOOL; external UserDLLCore name 'EnableMenuItem';
  139. function EnableWindow(hWnd:HWND; bEnable:WINBOOL):WINBOOL; external UserDLLCore name 'EnableWindow';
  140. function EndDeferWindowPos(hWinPosInfo:HDWP):WINBOOL; external UserDLLCore name 'EndDeferWindowPos';
  141. function EndDialog(hDlg:HWND; nResult:Integer):WINBOOL; external UserDLLCore name 'EndDialog';
  142. function EndDoc(_para1:HDC):Integer; external GdiDLL name 'EndDoc';
  143. function EndPage(_para1:HDC):Integer; external GdiDLL name 'EndPage';
  144. function EndPaint(hWnd:HWND; lpPaint:LPPAINTSTRUCT):WINBOOL; external UserDLLCore name 'EndPaint';
  145. procedure EnterCriticalSection(lpCriticalSection:LPCRITICAL_SECTION); external KernelDLL name 'EnterCriticalSection';
  146. function EnumClipboardFormats(format:UINT):UINT; external UserDLLCore name 'EnumClipboardFormats';
  147. function EnumWindows(lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external UserDLLCore name 'EnumWindows';
  148. function EqualRect(var lprc1:RECT; var lprc2:RECT):WINBOOL; external UserDLLCore name 'EqualRect';
  149. function EscapeCommFunction(hFile:HANDLE; dwFunc:DWORD):WINBOOL; external KernelDLL name 'EscapeCommFunction';
  150. procedure ExitThread(dwExitCode:DWORD); external KernelDLL name 'ExitThread';
  151. function ExitWindowsEx(uFlags:UINT; dwReserved:DWORD):WINBOOL; external UserDLLAyg name 'ExitWindowsEx';
  152. function ExtCreateRegion(var _para1:XFORM; _para2:DWORD; var _para3:RGNDATA):HRGN; external GdiDLL name 'ExtCreateRegion';
  153. function ExtEscape(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPCSTR; _para5:Integer;_para6:LPSTR):Integer; external GdiDLL name 'ExtEscape';
  154. function ExcludeClipRect(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer):Integer; external GdiDLL name 'ExcludeClipRect';
  155. function FileTimeToLocalFileTime(lpFileTime:LPFILETIME; lpLocalFileTime:LPFILETIME):WINBOOL; external KernelDLL name 'FileTimeToLocalFileTime';
  156. function FileTimeToSystemTime(lpFileTime:LPFILETIME; lpSystemTime:LPSYSTEMTIME):WINBOOL; external KernelDLL name 'FileTimeToSystemTime';
  157. procedure FillMemory(Destination:PVOID; Length:DWORD; Fill:BYTE);
  158. function FillRect(hDC:HDC; const lprc:RECT; hbr:HBRUSH):Integer; external UserDLLCore name 'FillRect';
  159. function FindClose(hFindFile:HANDLE):WINBOOL; external KernelDLL name 'FindClose';
  160. function FindCloseChangeNotification(hChangeHandle:HANDLE):WINBOOL; external KernelDLL name 'FindCloseChangeNotification';
  161. function FindNextChangeNotification(hChangeHandle:HANDLE):WINBOOL; external KernelDLL name 'FindNextChangeNotification';
  162. function FlushFileBuffers(hFile:HANDLE):WINBOOL; external KernelDLL name 'FlushFileBuffers';
  163. function FlushInstructionCache(hProcess:HANDLE; lpBaseAddress:LPCVOID; dwSize:DWORD):WINBOOL; external KernelDLL name 'FlushInstructionCache';
  164. function FlushViewOfFile(lpBaseAddress:LPCVOID; dwNumberOfBytesToFlush:DWORD):WINBOOL; external KernelDLL name 'FlushViewOfFile';
  165. function FreeLibrary(hLibModule:HMODULE):WINBOOL; external KernelDLL name 'FreeLibrary';
  166. procedure FreeLibraryAndExitThread(hLibModule:HMODULE; dwExitCode:DWORD); external KernelDLL name 'FreeLibraryAndExitThread';
  167. function GetActiveWindow:HWND; external UserDLLCore name 'GetActiveWindow';
  168. function GetACP:UINT; external KernelDLL name 'GetACP';
  169. function GetAsyncKeyState(vKey:Integer):SHORT; external UserDLLCore name 'GetAsyncKeyState';
  170. function GetBkColor(_para1:HDC):COLORREF; external GdiDLL name 'GetBkColor';
  171. function GetBkMode(_para1:HDC):Integer; external GdiDLL name 'GetBkMode';
  172. function GetCapture:HWND; external UserDLLCore name 'GetCapture';
  173. function GetCaretBlinkTime:UINT; external UserDLLCore name 'GetCaretBlinkTime';
  174. function GetCaretPos(lpPoint:LPPOINT):WINBOOL; external UserDLLCore name 'GetCaretPos';
  175. function GetClientRect(hWnd:HWND; lpRect:LPRECT):WINBOOL; external UserDLLCore name 'GetClientRect';
  176. function GetClipboardOwner:HWND; external UserDLLCore name 'GetClipboardOwner';
  177. function GetClipboardData(uFormat:UINT):HANDLE; external UserDLLCore name 'GetClipboardData';
  178. function GetClipBox(_para1:HDC; _para2:LPRECT):Integer; external GdiDLL name 'GetClipBox';
  179. function GetClipCursor(lpRect:LPRECT):WINBOOL; external UserDLLCore name 'GetClipCursor';
  180. function GetClipRgn(_para1:HDC; _para2:HRGN):Integer; external GdiDLL name 'GetClipRgn';
  181. function GetCommProperties(hFile:HANDLE; lpCommProp:LPCOMMPROP):WINBOOL; external KernelDLL name 'GetCommProperties';
  182. function GetCommModemStatus(hFile:HANDLE; lpModemStat:PDWORD):WINBOOL; external KernelDLL name 'GetCommModemStatus';
  183. function GetCommState(hFile:HANDLE; lpDCB:PDCB):WINBOOL; external KernelDLL name 'GetCommState';
  184. function GetCommTimeouts(hFile:HANDLE; lpCommTimeouts:PCOMMTIMEOUTS):WINBOOL; external KernelDLL name 'GetCommTimeouts';
  185. function GetCPInfo(_para1:UINT; _para2:LPCPINFO):WINBOOL; external KernelDLL name 'GetCPInfo';
  186. function GetCursor:HCURSOR; external UserDLLCore name 'GetCursor';
  187. function GetCursorPos(lpPoint:LPPOINT):WINBOOL; external UserDLLCore name 'GetCursorPos';
  188. function GetCurrentObject(_para1:HDC; _para2:UINT):HGDIOBJ; external GdiDLL name 'GetCurrentObject';
  189. function GetCurrentPositionEx(_para1:HDC; _para2:LPPOINT):WINBOOL; external GdiDLL name 'GetCurrentPositionEx';
  190. function GetDC(hWnd:HWND):HDC; external UserDLLCore name 'GetDC';
  191. function GetDCEx(hWnd:HWND; hrgnClip:HRGN; flags:DWORD):HDC; external UserDLLCore name 'GetDCEx';
  192. function GetDesktopWindow:HWND; external UserDLLCore name 'GetDesktopWindow';
  193. function GetDeviceCaps(_para1:HDC; _para2:Integer):Integer; external GdiDLL name 'GetDeviceCaps';
  194. function GetDialogBaseUnits:Integer; external UserDLLCore name 'GetDialogBaseUnits';
  195. function GetDIBColorTable(_para1:HDC; _para2:UINT; _para3:UINT; var _para4:RGBQUAD):UINT; external GdiDLL name 'GetDIBColorTable';
  196. function GetDlgCtrlID(hWnd:HWND):Integer; external UserDLLCore name 'GetDlgCtrlID';
  197. function GetDlgItem(hDlg:HWND; nIDDlgItem:Integer):HWND; external UserDLLCore name 'GetDlgItem';
  198. function GetDlgItemInt(hDlg:HWND; nIDDlgItem:Integer; var lpTranslated:WINBOOL; bSigned:WINBOOL):UINT; external UserDLLCore name 'GetDlgItemInt';
  199. function GetDoubleClickTime:UINT; external UserDLLCore name 'GetDoubleClickTime';
  200. function GetExitCodeProcess(hProcess:HANDLE; lpExitCode:LPDWORD):WINBOOL; external KernelDLL name 'GetExitCodeProcess';
  201. function GetExitCodeThread(hThread:HANDLE; lpExitCode:LPDWORD):WINBOOL; external KernelDLL name 'GetExitCodeThread';
  202. function GetFocus:HWND; external UserDLLCore name 'GetFocus';
  203. function GetForegroundWindow:HWND; external UserDLLCore name 'GetForegroundWindow';
  204. function GetFileInformationByHandle(hFile:HANDLE; lpFileInformation:LPBY_HANDLE_FILE_INFORMATION):WINBOOL; external KernelDLL name 'GetFileInformationByHandle';
  205. function GetFileTime(hFile:HANDLE; lpCreationTime:LPFILETIME; lpLastAccessTime:LPFILETIME; lpLastWriteTime:LPFILETIME):WINBOOL; external KernelDLL name 'GetFileTime';
  206. function GetFileSize(hFile:HANDLE; lpFileSizeHigh:LPDWORD):DWORD; external KernelDLL name 'GetFileSize';
  207. function GetKeyboardLayout(dwLayout:DWORD):HKL; external UserDLLCore name 'GetKeyboardLayout';
  208. function GetKeyboardLayoutList(nBuff:Integer; var lpList:HKL):UINT; external UserDLLCore name 'GetKeyboardLayoutList';
  209. function GetKeyboardType(nTypeFlag:Integer):Integer; external UserDLLCore name 'GetKeyboardType';
  210. function GetKeyState(nVirtKey:Integer):SHORT; external UserDLLCore name 'GetKeyState';
  211. function GetLastError:DWORD; external KernelDLL name 'GetLastError';
  212. procedure GetLocalTime(lpSystemTime:LPSYSTEMTIME); external KernelDLL name 'GetLocalTime';
  213. function GetMessagePos:DWORD; external UserDLLCore name 'GetMessagePos';
  214. function GetNearestColor(_para1:HDC; _para2:COLORREF):COLORREF; external GdiDLL name 'GetNearestColor';
  215. function GetNearestPaletteIndex(_para1:HPALETTE; _para2:COLORREF):UINT; external GdiDLL name 'GetNearestPaletteIndex';
  216. function GetNextDlgGroupItem(hDlg:HWND; hCtl:HWND; bPrevious:WINBOOL):HWND; external UserDLLCore name 'GetNextDlgGroupItem';
  217. function GetNextDlgTabItem(hDlg:HWND; hCtl:HWND; bPrevious:WINBOOL):HWND; external UserDLLCore name 'GetNextDlgTabItem';
  218. function GetObjectType(h:HGDIOBJ):DWORD; external GdiDLL name 'GetObjectType';
  219. function GetOEMCP:UINT; external KernelDLL name 'GetOEMCP';
  220. function GetOpenClipboardWindow:HWND; external UserDLLCore name 'GetOpenClipboardWindow';
  221. function GetPaletteEntries(_para1:HPALETTE; _para2:UINT; _para3:UINT; _para4:LPPALETTEENTRY):UINT; external GdiDLL name 'GetPaletteEntries';
  222. function GetParent(hWnd:HWND):HWND; external UserDLLCore name 'GetParent';
  223. function GetPriorityClipboardFormat(var paFormatPriorityList:UINT; cFormats:Integer):Integer; external UserDLLCore name 'GetPriorityClipboardFormat';
  224. function GetPixel(_para1:HDC; _para2:Integer; _para3:Integer):COLORREF; external GdiDLL name 'GetPixel';
  225. function GetProcessHeap:HANDLE; external KernelDLL name 'GetProcessHeap';
  226. function GetQueueStatus(flags:UINT):DWORD; external UserDLLCore name 'GetQueueStatus';
  227. function GetRegionData(_para1:HRGN; _para2:DWORD; _para3:LPRGNDATA):DWORD; external GdiDLL name 'GetRegionData';
  228. function GetRgnBox(_para1:HRGN; _para2:LPRECT):Integer; external GdiDLL name 'GetRgnBox';
  229. function GetScrollInfo(_para1:HWND; _para2:Integer; _para3:LPSCROLLINFO):WINBOOL; external UserDLLCore name 'GetScrollInfo';
  230. function GetStockObject(_para1:Integer):HGDIOBJ; external GdiDLL name 'GetStockObject';
  231. function GetSubMenu(hMenu:HMENU; nPos:Integer):HMENU; external UserDLLCore name 'GetSubMenu';
  232. function GetSysColor(nIndex:Integer):DWORD; external UserDLLCore name 'GetSysColor';
  233. function GetSysColorBrush(nIndex:Integer):HBRUSH; external UserDLLCore name 'GetSysColorBrush';
  234. function GetSystemDefaultLangID:LANGID; external KernelDLL name 'GetSystemDefaultLangID';
  235. function GetSystemDefaultLCID:LCID; external KernelDLL name 'GetSystemDefaultLCID';
  236. procedure GetSystemInfo(lpSystemInfo:LPSYSTEM_INFO); external KernelDLL name 'GetSystemInfo';
  237. function GetSystemMetrics(nIndex:Integer):Integer; external UserDLLCore name 'GetSystemMetrics';
  238. procedure GetSystemTime(lpSystemTime:LPSYSTEMTIME); external KernelDLL name 'GetSystemTime';
  239. function GetSystemPaletteEntries(_para1:HDC; _para2:UINT; _para3:UINT; _para4:LPPALETTEENTRY):UINT; external GdiDLL name 'GetSystemPaletteEntries';
  240. function GetTextAlign(_para1:HDC):UINT; external GdiDLL name 'GetTextAlign';
  241. function GetTextColor(_para1:HDC):COLORREF; external GdiDLL name 'GetTextColor';
  242. function GetThreadContext(hThread:HANDLE; lpContext:LPCONTEXT):WINBOOL; external KernelDLL name 'GetThreadContext';
  243. function GetThreadPriority(hThread:HANDLE):Integer; external KernelDLL name 'GetThreadPriority';
  244. function GetThreadTimes(hThread:HANDLE; lpCreationTime:LPFILETIME; lpExitTime:LPFILETIME; lpKernelTime:LPFILETIME; lpUserTime:LPFILETIME):WINBOOL; external KernelDLL name 'GetThreadTimes';
  245. function GetTickCount:DWORD; external KernelDLL name 'GetTickCount';
  246. function GetTimeZoneInformation(lpTimeZoneInformation:LPTIME_ZONE_INFORMATION):DWORD; external KernelDLL name 'GetTimeZoneInformation';
  247. function GetUpdateRect(hWnd:HWND; lpRect:LPRECT; bErase:WINBOOL):WINBOOL; external UserDLLCore name 'GetUpdateRect';
  248. function GetUpdateRgn(hWnd:HWND; hRgn:HRGN; bErase:WINBOOL):Integer; external UserDLLCore name 'GetUpdateRgn';
  249. function GetUserDefaultLangID:LANGID; external KernelDLL name 'GetUserDefaultLangID';
  250. function GetUserDefaultLCID:LCID; external KernelDLL name 'GetUserDefaultLCID';
  251. function GetWindow(hWnd:HWND; uCmd:UINT):HWND; external UserDLLCore name 'GetWindow';
  252. function GetWindowDC(hWnd:HWND):HDC; external UserDLLCore name 'GetWindowDC';
  253. function GetWindowRgn(hWnd:HWND; hRgn:HRGN):Integer; external UserDLLCore name 'GetWindowRgn';
  254. function GetWindowRect(hWnd:HWND; lpRect:LPRECT):WINBOOL; external UserDLLCore name 'GetWindowRect';
  255. function GetWindowThreadProcessId(hWnd:HWND; lpdwProcessId:LPDWORD):DWORD; external UserDLLCore name 'GetWindowThreadProcessId';
  256. function GlobalAllocPtr(flags,cb:DWord):Pointer;
  257. function GlobalFreePtr(lp:Pointer):Pointer;
  258. function GlobalDiscard(hglbMem:HGLOBAL):HGLOBAL;
  259. function GlobalLockPtr(lp:pointer):Pointer;
  260. function GlobalPtrHandle(lp:pointer):Pointer;
  261. function GlobalUnlockPtr(lp:pointer):Pointer;
  262. function GlobalDeleteAtom(nAtom:ATOM):ATOM; external KernelDLL name 'GlobalDeleteAtom';
  263. procedure GlobalMemoryStatus(lpBuffer:LPMEMORYSTATUS); external KernelDLL name 'GlobalMemoryStatus';
  264. function Header_DeleteItem(hwndHD:HWND;index : Integer) : WINBOOL;
  265. function Header_GetItem(hwndHD:HWND;index:Integer;var hdi : HD_ITEM) : WINBOOL;
  266. function Header_GetItemCount(hwndHD : HWND) : Integer;
  267. function Header_InsertItem(hwndHD:HWND;index : Integer;var hdi : HD_ITEM) : Integer;
  268. function Header_Layout(hwndHD:HWND;var layout : HD_LAYOUT) : WINBOOL;
  269. function Header_SetItem(hwndHD:HWND;index : Integer;var hdi : HD_ITEM) : WINBOOL;
  270. function HeapAlloc(hHeap:HANDLE; dwFlags:DWORD; dwBytes:DWORD):LPVOID; external KernelDLL name 'HeapAlloc';
  271. function HeapAllocTrace(hHeap:HANDLE; dwFlags:DWORD; dwBytes:DWORD; dwLineNum:DWORD; szFileName:PCHAR):LPVOID; external KernelDLL name 'HeapAllocTrace'; //+winbase
  272. function HeapCreate(flOptions:DWORD; dwInitialSize:DWORD; dwMaximumSize:DWORD):HANDLE; external KernelDLL name 'HeapCreate';
  273. function HeapDestroy(hHeap:HANDLE):WINBOOL; external KernelDLL name 'HeapDestroy';
  274. function HeapFree(hHeap:HANDLE; dwFlags:DWORD; lpMem:LPVOID):WINBOOL; external KernelDLL name 'HeapFree';
  275. function HeapReAlloc(hHeap:HANDLE; dwFlags:DWORD; lpMem:LPVOID; dwBytes:DWORD):LPVOID; external KernelDLL name 'HeapReAlloc';
  276. function HeapSize(hHeap:HANDLE; dwFlags:DWORD; lpMem:LPCVOID):DWORD; external KernelDLL name 'HeapSize';
  277. function HeapValidate(hHeap:HANDLE; dwFlags:DWORD; lpMem:LPCVOID):WINBOOL; external KernelDLL name 'HeapValidate';
  278. function HideCaret(hWnd:HWND):WINBOOL; external UserDLLCore name 'HideCaret';
  279. function ImageList_Add(himl:HIMAGELIST; hbmImage:HBITMAP; hbmMask:HBITMAP):Integer; external ComctlDLLCore name 'ImageList_Add';
  280. function ImageList_AddIcon(himl:HIMAGELIST; hicon:HICON):Integer;
  281. function ImageList_AddMasked(himl:HIMAGELIST; hbmImage:HBITMAP; crMask:COLORREF):Integer; external ComctlDLLCore name 'ImageList_AddMasked';
  282. function ImageList_BeginDrag(himlTrack:HIMAGELIST; iTrack:Integer; dxHotspot:Integer; dyHotspot:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_BeginDrag';
  283. function ImageList_Create(cx:Integer; cy:Integer; flags:UINT; cInitial:Integer; cGrow:Integer):HIMAGELIST; external ComctlDLLCore name 'ImageList_Create';
  284. function ImageList_Destroy(himl:HIMAGELIST):WINBOOL; external ComctlDLLCore name 'ImageList_Destroy';
  285. function ImageList_DragEnter(hwndLock:HWND; x:Integer; y:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_DragEnter';
  286. function ImageList_DragLeave(hwndLock:HWND):WINBOOL; external ComctlDLLCore name 'ImageList_DragLeave';
  287. function ImageList_DragMove(x:Integer; y:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_DragMove';
  288. function ImageList_DragShowNolock(fShow:WINBOOL):WINBOOL; external ComctlDLLCore name 'ImageList_DragShowNolock';
  289. function ImageList_Draw(himl:HIMAGELIST; i:Integer; hdcDst:HDC; x:Integer; y:Integer;fStyle:UINT):WINBOOL; external ComctlDLLCore name 'ImageList_Draw';
  290. function ImageList_DrawEx(himl:HIMAGELIST; i:Integer; hdcDst:HDC; x:Integer; y:Integer;dx:Integer; dy:Integer; rgbBk:COLORREF; rgbFg:COLORREF; fStyle:UINT):WINBOOL; external ComctlDLLCore name 'ImageList_DrawEx';
  291. function ImageList_DrawIndirect(pimldp:PIMAGELISTDRAWPARAMS):WINBOOL; external ComctlDLLCore name 'ImageList_DrawIndirect'; //+commctrl
  292. procedure ImageList_EndDrag; external ComctlDLLCore name 'ImageList_EndDrag';
  293. function ImageList_GetBkColor(himl:HIMAGELIST):COLORREF; external ComctlDLLCore name 'ImageList_GetBkColor';
  294. function ImageList_GetDragImage(ppt:LPPOINT; pptHotspot:LPPOINT):HIMAGELIST; external ComctlDLLCore name 'ImageList_GetDragImage';
  295. function ImageList_GetIcon(himl:HIMAGELIST; i:Integer; flags:UINT):HICON; external ComctlDLLCore name 'ImageList_GetIcon';
  296. function ImageList_GetIconSize(himl:HIMAGELIST; var cx:Integer; var cy:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_GetIconSize';
  297. function ImageList_GetImageCount(himl:HIMAGELIST):Integer; external ComctlDLLCore name 'ImageList_GetImageCount';
  298. function ImageList_GetImageInfo(himl:HIMAGELIST; i:Integer; var pImageInfo:IMAGEINFO):WINBOOL; external ComctlDLLCore name 'ImageList_GetImageInfo';
  299. function ImageList_Merge(himl1:HIMAGELIST; i1:Integer; himl2:HIMAGELIST; i2:Integer; dx:Integer;dy:Integer):HIMAGELIST; external ComctlDLLCore name 'ImageList_Merge';
  300. function ImageList_Replace(himl:HIMAGELIST; i:Integer; hbmImage:HBITMAP; hbmMask:HBITMAP):WINBOOL; external ComctlDLLCore name 'ImageList_Replace';
  301. function ImageList_ReplaceIcon(himl:HIMAGELIST; i:Integer; hicon:HICON):Integer; external ComctlDLLCore name 'ImageList_ReplaceIcon';
  302. function ImageList_Remove(himl:HIMAGELIST; i:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_Remove';
  303. function ImageList_SetBkColor(himl:HIMAGELIST; clrBk:COLORREF):COLORREF; external ComctlDLLCore name 'ImageList_SetBkColor';
  304. function ImageList_SetDragCursorImage(himlDrag:HIMAGELIST; iDrag:Integer; dxHotspot:Integer; dyHotspot:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_SetDragCursorImage';
  305. function ImageList_SetIconSize(himl:HIMAGELIST; cx:Integer; cy:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_SetIconSize';
  306. function ImageList_SetImageCount(himl: HIMAGELIST; uNewCount: UINT): Integer; external ComctlDLLCore name 'ImageList_SetImageCount';
  307. function ImageList_SetOverlayImage(himl:HIMAGELIST; iImage:Integer; iOverlay:Integer):WINBOOL; external ComctlDLLCore name 'ImageList_SetOverlayImage';
  308. function InflateRect(lprc:LPRECT; dx:Integer; dy:Integer):WINBOOL; external UserDLLCore name 'InflateRect';
  309. procedure InitCommonControls; external ComctlDLL name 'InitCommonControls';
  310. //function InitCommonControlsEx(_para1:LPINITCOMMONCONTROLSEX):WINBOOL; external ComctlDLL name 'InitCommonControlsEx'; //- conflict with other def
  311. procedure InitializeCriticalSection(lpCriticalSection:LPCRITICAL_SECTION); external KernelDLL name 'InitializeCriticalSection';
  312. function InSendMessage:WINBOOL; external UserDLLCore name 'InSendMessage';
  313. function InterlockedIncrement(lpAddend:LPLONG):LONG; external KernelDLL name 'InterlockedIncrement';
  314. function InterlockedDecrement(lpAddend:LPLONG):LONG; external KernelDLL name 'InterlockedDecrement';
  315. function InterlockedCompareExchange( var Destination:LPLONG; Exchange:LONG; Comperand:LONG):LONG; external KernelDLL name 'InterlockedCompareExchange';
  316. function InterlockedExchange(Target:LPLONG; Value:LONG):LONG; external KernelDLL name 'InterlockedExchange';
  317. function InterlockedExchangeAdd( Addend:LPLONG; Value:LONG):LONG; external KernelDLL name 'InterlockedExchangeAdd';
  318. function InterlockedTestExchange( Target:LPLONG; oldValue:LONG; newValue:LONG):LONG; external KernelDLL name 'InterlockedTestExchange';
  319. function IntersectClipRect(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer):Integer; external GdiDLL name 'IntersectClipRect';
  320. function IntersectRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external UserDLLCore name 'IntersectRect';
  321. function InvalidateRect(hWnd:HWND; var lpRect:RECT; bErase:WINBOOL):WINBOOL; external UserDLLCore name 'InvalidateRect';
  322. function InvalidateRect(hWnd:HWND;lpRect:LPRECT; bErase:WINBOOL):WINBOOL; external UserDLLCore name 'InvalidateRect';
  323. function InvalidateRgn(hWnd:HWND; hRgn:HRGN; bErase:WINBOOL):WINBOOL; external UserDLLCore name 'InvalidateRgn';
  324. function InvertRect(hDC:HDC; var lprc:RECT):WINBOOL; external UserDLLCore name 'InvertRect';
  325. function IsBadReadPtr(lp:LPVOID; ucb:UINT):WINBOOL; external Kerneldll name 'IsBadReadPtr';
  326. function IsBadWritePtr(lp:LPVOID; ucb:UINT):WINBOOL; external Kerneldll name 'IsBadWritePtr';
  327. function IsBadCodePtr(lpfn:FARPROC):WINBOOL; external Kerneldll name 'IsBadCodePtr';
  328. function IsChild(hWndParent:HWND; hWnd:HWND):WINBOOL; external UserDLLCore name 'IsChild';
  329. function IsClipboardFormatAvailable(format:UINT):WINBOOL; external UserDLLCore name 'IsClipboardFormatAvailable';
  330. function IsDBCSLeadByte(TestChar:BYTE):WINBOOL; external KernelDLL name 'IsDBCSLeadByte';
  331. function IsDBCSLeadByteEx(CodePage:UINT; TestChar:BYTE):WINBOOL; external KernelDLL name 'IsDBCSLeadByteEx';
  332. function IsRectEmpty(var lprc:RECT):WINBOOL; external UserDLLCore name 'IsRectEmpty';
  333. function IsValidCodePage(CodePage:UINT):WINBOOL; external KernelDLL name 'IsValidCodePage';
  334. function IsValidLocale(Locale:LCID; dwFlags:DWORD):WINBOOL; external KernelDLL name 'IsValidLocale';
  335. function IsWindow(hWnd:HWND):WINBOOL; external UserDLLCore name 'IsWindow';
  336. function IsWindowEnabled(hWnd:HWND):WINBOOL; external UserDLLCore name 'IsWindowEnabled';
  337. function IsWindowVisible(hWnd:HWND):WINBOOL; external UserDLLCore name 'IsWindowVisible';
  338. procedure keybd_event(bVk:BYTE; bScan:BYTE; dwFlags:DWORD; dwExtraInfo:DWORD); external UserDLLCore name 'keybd_event';
  339. function KillTimer(hWnd:HWND; uIDEvent:UINT):WINBOOL; external UserDLLCore name 'KillTimer';
  340. procedure LeaveCriticalSection(lpCriticalSection:LPCRITICAL_SECTION); external KernelDLL name 'LeaveCriticalSection';
  341. function LineTo(_para1:HDC; _para2:Integer; _para3:Integer):WINBOOL; external GdiDLL name 'LineTo';
  342. function ListView_Arrange(hwndLV:HWND;code : UINT) : LRESULT;
  343. function ListView_CreateDragImage(hwnd:HWND;i : Integer;lpptUpLeft : LPPOINT) : LRESULT;
  344. function ListView_DeleteAllItems(hwnd : HWND) : LRESULT;
  345. function ListView_DeleteColumn(hwnd:HWND;iCol : Integer) : LRESULT;
  346. function ListView_DeleteItem(hwnd:HWND;iItem : Integer) : LRESULT;
  347. function ListView_EditLabel(hwndLV:HWND;i : Integer) : LRESULT;
  348. function ListView_EnsureVisible(hwndLV:HWND;i,fPartialOK : Integer) : LRESULT;
  349. function ListView_FindItem(hwnd:HWND;iStart : Integer;var lvfi : LV_FINDINFO) : Integer;
  350. function ListView_GetBkColor(hwnd : HWND) : LRESULT;
  351. function ListView_GetCallbackMask(hwnd : HWND) : LRESULT;
  352. function ListView_GetColumn(hwnd:HWND;iCol : Integer;var col : LV_COLUMN) : LRESULT;
  353. function ListView_GetColumnWidth(hwnd:HWND;iCol : Integer) : LRESULT;
  354. function ListView_GetCountPerPage(hwndLV : HWND) : LRESULT;
  355. function ListView_GetEditControl(hwndLV : HWND) : LRESULT;
  356. function ListView_GetImageList(hwnd:HWND;iImageList : wINT) : LRESULT;
  357. function ListView_GetISearchString(hwndLV:HWND;lpsz : LPTSTR) : LRESULT;
  358. function ListView_GetItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  359. function ListView_GetItemCount(hwnd : HWND) : LRESULT;
  360. function ListView_GetItemPosition(hwndLV:HWND;i : Integer;var pt : POINT) : Integer;
  361. function ListView_GetItemSpacing(hwndLV:HWND;fSmall : Integer) : LRESULT;
  362. function ListView_GetItemState(hwndLV:HWND;i,mask : Integer) : LRESULT;
  363. function ListView_GetNextItem(hwnd:HWND; iStart, flags : Integer) : LRESULT;
  364. function ListView_GetOrigin(hwndLV:HWND;var pt : POINT) : LRESULT;
  365. function ListView_GetSelectedCount(hwndLV : HWND) : LRESULT;
  366. function ListView_GetStringWidth(hwndLV:HWND;psz : LPCTSTR) : LRESULT;
  367. function ListView_GetTextBkColor(hwnd : HWND) : LRESULT;
  368. function ListView_GetTextColor(hwnd : HWND) : LRESULT;
  369. function ListView_GetTopIndex(hwndLV : HWND) : LRESULT;
  370. function ListView_GetViewRect(hwnd:HWND;var rc : RECT) : LRESULT;
  371. function ListView_HitTest(hwndLV:HWND;var info : LV_HITTESTINFO) : LRESULT;
  372. function ListView_InsertColumn(hwnd:HWND;iCol : Integer;var col : LV_COLUMN) : LRESULT;
  373. function ListView_InsertItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  374. function ListView_RedrawItems(hwndLV:HWND;iFirst,iLast : Integer) : LRESULT;
  375. function ListView_Scroll(hwndLV:HWND;dx,dy : Integer) : LRESULT;
  376. function ListView_SetBkColor(hwnd:HWND;clrBk : COLORREF) : LRESULT;
  377. function ListView_SetCallbackMask(hwnd:HWND;mask : UINT) : LRESULT;
  378. function ListView_SetColumn(hwnd:HWND;iCol : Integer; var col : LV_COLUMN) : LRESULT;
  379. function ListView_SetColumnWidth(hwnd:HWND;iCol,cx : Integer) : LRESULT;
  380. function ListView_SetImageList(hwnd:HWND;himl : Integer;iImageList : HIMAGELIST) : LRESULT;
  381. function ListView_SetItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  382. function ListView_SetItemCount(hwndLV:HWND;cItems : Integer) : LRESULT;
  383. function ListView_SetItemPosition(hwndLV:HWND;i,x,y : Integer) : LRESULT;
  384. function ListView_SetItemPosition32(hwndLV:HWND;i,x,y : Integer) : LRESULT;
  385. function ListView_SetItemState(hwndLV:HWND; i, data, mask:Integer) : LRESULT;
  386. function ListView_SetItemText(hwndLV:HWND; i, iSubItem_:Integer;pszText_ : LPTSTR) : LRESULT;
  387. function ListView_SetTextBkColor(hwnd:HWND;clrTextBk : COLORREF) : LRESULT;
  388. function ListView_SetTextColor(hwnd:HWND;clrText : COLORREF) : LRESULT;
  389. function ListView_SortItems(hwndLV:HWND;_pfnCompare:PFNLVCOMPARE;_lPrm : LPARAM) : LRESULT;
  390. function ListView_Update(hwndLV:HWND;i : Integer) : LRESULT;
  391. function LoadResource(hModule:HINST; hResInfo:HRSRC):HGLOBAL; external KernelDLL name 'LoadResource';
  392. function LocalAlloc(uFlags:UINT; uBytes:UINT):HLOCAL; external KernelDLL name 'LocalAlloc';
  393. function LocalDiscard(hlocMem:HLOCAL):HLOCAL;
  394. function LocalFileTimeToFileTime(lpLocalFileTime:LPFILETIME; lpFileTime:LPFILETIME):WINBOOL; external KernelDLL name 'LocalFileTimeToFileTime';
  395. function LocalFree(hMem:HLOCAL):HLOCAL; external KernelDLL name 'LocalFree';
  396. function LocalReAlloc(hMem:HLOCAL; uBytes:UINT; uFlags:UINT):HLOCAL; external KernelDLL name 'LocalReAlloc';
  397. function LocalSize(hMem:HLOCAL):UINT; external KernelDLL name 'LocalSize';
  398. function MapDialogRect(hDlg:HWND; lpRect:LPRECT):WINBOOL; external UserDLLCore name 'MapDialogRect';
  399. function MapWindowPoints(hWndFrom:HWND; hWndTo:HWND; lpPoints:LPPOINT; cPoints:UINT):Integer; external UserDLLCore name 'MapWindowPoints';
  400. function MaskBlt(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:HDC; _para7:Integer; _para8:Integer; _para9:HBITMAP; _para10:Integer;_para11:Integer; _para12:DWORD):WINBOOL; external GdiDLL name 'MaskBlt';
  401. function MessageBeep(uType:UINT):WINBOOL; external UserDLLCore name 'MessageBeep';
  402. procedure mouse_event(dwFlags:DWORD; dx:DWORD; dy:DWORD; cButtons:DWORD; dwExtraInfo:DWORD); external UserDLLCore name 'mouse_event';
  403. function MoveToEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external GdiDLL name 'MoveToEx';
  404. procedure MoveMemory(Destination:PVOID; Source:pointer; Length:DWORD);
  405. function MoveWindow(hWnd:HWND; X:Integer; Y:Integer; nWidth:Integer; nHeight:Integer;bRepaint:WINBOOL):WINBOOL; external UserDLLCore name 'MoveWindow';
  406. function MsgWaitForMultipleObjectsEx(nCount:DWORD; pHandles:LPHANDLE ; dwMilliseconds:DWORD; dwWakeMask:DWORD; dwFlags:DWORD):DWORD; external UserDLLCore name 'MsgWaitForMultipleObjectsEx'; //+winuser
  407. function MultiByteToWideChar(CodePage:UINT; dwFlags:DWORD; lpMultiByteStr:LPCSTR; cchMultiByte:Integer; lpWideCharStr:LPWSTR;cchWideChar:Integer):Integer; external KernelDLL name 'MultiByteToWideChar';
  408. function OffsetRect(lprc:LPRECT; dx:Integer; dy:Integer):WINBOOL; external UserDLLCore name 'OffsetRect';
  409. function OffsetRgn(_para1:HRGN; _para2:Integer; _para3:Integer):Integer; external GdiDLL name 'OffsetRgn';
  410. function OpenClipboard(hWndNewOwner:HWND):WINBOOL; external UserDLLCore name 'OpenClipboard';
  411. function OpenProcess(dwDesiredAccess:DWORD; bInheritHandle:WINBOOL; dwProcessId:DWORD):HANDLE; external KernelDLL name 'OpenProcess';
  412. function PatBlt(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:DWORD):WINBOOL; external GdiDLL name 'PatBlt';
  413. procedure PostQuitMessage(nExitCode:Integer); external UserDLLCore name 'PostQuitMessage';
  414. function PlayEnhMetaFile(_para1:HDC; _para2:HENHMETAFILE; var _para3:RECT):WINBOOL; external GdiDLL name 'PlayEnhMetaFile';
  415. function Polygon(_para1:HDC; _para2:LPPOINT; _para3:Integer):WINBOOL; external GdiDLL name 'Polygon';
  416. function Polyline(_para1:HDC; _para2:LPPOINT; _para3:Integer):WINBOOL; external GdiDLL name 'Polyline';
  417. function PropSheet_AddPage(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE) : LRESULT;
  418. function PropSheet_Apply(hPropSheetDlg : HWND) : LRESULT;
  419. function PropSheet_CancelToClose(hPropSheetDlg : HWND) : LRESULT;
  420. function PropSheet_Changed(hPropSheetDlg,hwndPage : HWND) : LRESULT;
  421. function PropSheet_GetCurrentPageHwnd(hDlg : HWND) : LRESULT;
  422. function PropSheet_GetTabControl(hPropSheetDlg : HWND) : LRESULT;
  423. function PropSheet_IsDialogMessage(hDlg : HWND;pMsg : Integer) : LRESULT;
  424. function PropSheet_PressButton(hPropSheetDlg : HWND;iButton : Integer) : LRESULT;
  425. function PropSheet_QuerySiblings(hPropSheetDlg : HWND;param1,param2 : Integer) : LRESULT;
  426. function PropSheet_RebootSystem(hPropSheetDlg : HWND) : LRESULT;
  427. function PropSheet_RemovePage(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE; index : Integer) : LRESULT;
  428. function PropSheet_RestartWindows(hPropSheetDlg : HWND) : LRESULT;
  429. function PropSheet_SetCurSel(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE; index : Integer) : LRESULT;
  430. function PropSheet_SetCurSelByID(hPropSheetDlg : HWND; id : Integer) : LRESULT;
  431. function PropSheet_SetFinishText(hPropSheetDlg:HWND;lpszText : LPTSTR) : LRESULT;
  432. function PropSheet_SetTitle(hPropSheetDlg:HWND;dwStyle:DWORD;lpszText : LPCTSTR) : LRESULT;
  433. function PropSheet_SetWizButtons(hPropSheetDlg:HWND;dwFlags : DWORD) : LRESULT;
  434. function PropSheet_UnChanged(hPropSheetDlg:HWND;hwndPage : HWND) : LRESULT;
  435. function PtInRect(lprc:LPRECT; pt:POINT):WINBOOL; external UserDLLCore name 'PtInRect';
  436. function PtInRegion(_para1:HRGN; _para2:Integer; _para3:Integer):WINBOOL; external GdiDLL name 'PtInRegion';
  437. function PurgeComm(hFile:HANDLE; dwFlags:DWORD):WINBOOL; external KernelDLL name 'PurgeComm';
  438. function QueryPerformanceCounter(lpPerformanceCount:PLARGE_INTEGER):WINBOOL; external Kerneldll name 'QueryPerformanceCounter';
  439. function QueryPerformanceFrequency(lpFrequency:PLARGE_INTEGER):WINBOOL; external Kerneldll name 'QueryPerformanceFrequency';
  440. procedure RaiseException(dwExceptionCode:DWORD; dwExceptionFlags:DWORD; nNumberOfArguments:DWORD; lpArguments:LPDWORD); external KernelDLL name 'RaiseException';
  441. function ReadProcessMemory(hProcess:HANDLE; lpBaseAddress:LPCVOID; lpBuffer:LPVOID; nSize:DWORD; lpNumberOfBytesRead:LPDWORD):WINBOOL; external KernelDLL name 'ReadProcessMemory';
  442. function RealizePalette(_para1:HDC):UINT; external GdiDLL name 'RealizePalette';
  443. function RectInRegion(_para1:HRGN; var _para2:RECT):WINBOOL; external GdiDLL name 'RectInRegion';
  444. function RectVisible(_para1:HDC; var _para2:RECT):WINBOOL; external GdiDLL name 'RectVisible';
  445. function Rectangle(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer):WINBOOL; external GdiDLL name 'Rectangle';
  446. function RedrawWindow(hWnd:HWND; var lprcUpdate:RECT; hrgnUpdate:HRGN; flags:UINT):WINBOOL; external UserDLLCore name 'RedrawWindow';
  447. function RedrawWindow(hWnd:HWND; lprcUpdate:LPRECT; hrgnUpdate:HRGN; flags:UINT):WINBOOL; external UserDLLCore name 'RedrawWindow';
  448. function RegisterHotKey(hWnd:HWND; anID:Integer; fsModifiers:UINT; vk:UINT):WINBOOL; external UserDLLCore name 'RegisterHotKey';
  449. function RegCloseKey(hKey:HKEY):LONG; external AdvApiDLLCore name 'RegCloseKey';
  450. function RegFlushKey(hKey:HKEY):LONG; external AdvApiDLLCore name 'RegFlushKey';
  451. function ReleaseCapture:WINBOOL; external UserDLLCore name 'ReleaseCapture';
  452. function ReleaseDC(hWnd:HWND; hDC:HDC):Integer; external UserDLLCore name 'ReleaseDC';
  453. function ReleaseSemaphore(hSemaphore:HANDLE; lReleaseCount:LONG; lpPreviousCount:LPLONG):WINBOOL; external KernelDLL name 'ReleaseSemaphore';
  454. function ReleaseMutex(hMutex:HANDLE):WINBOOL; external KernelDLL name 'ReleaseMutex';
  455. function RemoveMenu(hMenu:HMENU; uPosition:UINT; uFlags:UINT):WINBOOL; external UserDLLCore name 'RemoveMenu';
  456. function RestoreDC(_para1:HDC; _para2:Integer):WINBOOL; external GdiDLL name 'RestoreDC';
  457. function ResumeThread(hThread:HANDLE):DWORD; external KernelDLL name 'ResumeThread';
  458. function RoundRect(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer):WINBOOL; external GdiDLL name 'RoundRect';
  459. function SaveDC(_para1:HDC):Integer; external GdiDLL name 'SaveDC';
  460. function ScreenToClient(hWnd:HWND; lpPoint:LPPOINT):WINBOOL; external UserDLLCore name 'ScreenToClient';
  461. function ScrollDC(hDC:HDC; dx:Integer; dy:Integer; var lprcScroll:RECT; var lprcClip:RECT;hrgnUpdate:HRGN; lprcUpdate:LPRECT):WINBOOL; external UserDLLCore name 'ScrollDC';
  462. function ScrollWindowEx(hWnd:HWND; dx:Integer; dy:Integer; var prcScroll:RECT; var prcClip:RECT;hrgnUpdate:HRGN; prcUpdate:LPRECT; flags:UINT):Integer; external UserDLLCore name 'ScrollWindowEx';
  463. function SelectClipRgn(_para1:HDC; _para2:HRGN):Integer; external GdiDLL name 'SelectClipRgn';
  464. function SelectObject(_para1:HDC; _para2:HGDIOBJ):HGDIOBJ; external GdiDLL name 'SelectObject';
  465. function SelectPalette(_para1:HDC; _para2:HPALETTE; _para3:WINBOOL):HPALETTE; external GdiDLL name 'SelectPalette';
  466. function SNDMSG(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
  467. function SetAbortProc(_para1:HDC; _para2:TABORTPROC):Integer; external GdiDLL name 'SetAbortProc';
  468. function SetActiveWindow(hWnd:HWND):HWND; external UserDLLCore name 'SetActiveWindow';
  469. function SetBkColor(_para1:HDC; _para2:COLORREF):COLORREF; external GdiDLL name 'SetBkColor';
  470. function SetBkMode(_para1:HDC; _para2:Integer):Integer; external GdiDLL name 'SetBkMode';
  471. function SetBitmapBits(_para1:HBITMAP; _para2:DWORD; _para3:pointer):LONG; external GdiDLL name 'SetBitmapBits';
  472. function SetBrushOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external GdiDLL name 'SetBrushOrgEx';
  473. function SetCapture(hWnd:HWND):HWND; external UserDLLCore name 'SetCapture';
  474. function SetCaretBlinkTime(uMSeconds:UINT):WINBOOL; external UserDLLCore name 'SetCaretBlinkTime';
  475. function SetCaretPos(X:Integer; Y:Integer):WINBOOL; external UserDLLCore name 'SetCaretPos';
  476. function SetClipboardData(uFormat:UINT; hMem:HANDLE):HANDLE; external UserDLLCore name 'SetClipboardData';
  477. function SetCommBreak(hFile:HANDLE):WINBOOL; external KernelDLL name 'SetCommBreak';
  478. function SetCommMask(hFile:HANDLE; dwEvtMask:DWORD):WINBOOL; external KernelDLL name 'SetCommMask';
  479. function SetCommState(hFile:HANDLE; lpDCB:LPDCB):WINBOOL; external KernelDLL name 'SetCommState';
  480. function SetCommTimeouts(hFile:HANDLE; lpCommTimeouts:LPCOMMTIMEOUTS):WINBOOL; external KernelDLL name 'SetCommTimeouts';
  481. function SetCursor(hCursor:HCURSOR):HCURSOR; external UserDLLCore name 'SetCursor';
  482. function SetCursorPos(X:Integer; Y:Integer):WINBOOL; external UserDLLCore name 'SetCursorPos';
  483. function SetDIBColorTable(_para1:HDC; _para2:UINT; _para3:UINT; var _para4:RGBQUAD):UINT; external GdiDLL name 'SetDIBColorTable';
  484. function SetDIBitsToDevice(_para1:HDC; _para2:Integer; _para3:Integer; _para4:DWORD; _para5:DWORD;_para6:Integer; _para7:Integer; _para8:UINT; _para9:UINT; _para10:pointer;var _para11:BITMAPINFO; _para12:UINT):Integer;
  485. external GdiDLL name 'SetDIBitsToDevice';
  486. function SetDlgItemInt(hDlg:HWND; nIDDlgItem:Integer; uValue:UINT; bSigned:WINBOOL):WINBOOL; external UserDLLCore name 'SetDlgItemInt';
  487. function SetEndOfFile(hFile:HANDLE):WINBOOL; external KernelDLL name 'SetEndOfFile';
  488. function SetFilePointer(hFile:HANDLE; lDistanceToMove:LONG; lpDistanceToMoveHigh:PLONG; dwMoveMethod:DWORD):DWORD; external KernelDLL name 'SetFilePointer';
  489. function SetFileTime(hFile:HANDLE; lpCreationTime:LPFILETIME; lpLastAccessTime:LPFILETIME; lpLastWriteTime:LPFILETIME):WINBOOL; external KernelDLL name 'SetFileTime';
  490. function SetFocus(hWnd:HWND):HWND; external UserDLLCore name 'SetFocus';
  491. function SetForegroundWindow(hWnd:HWND):WINBOOL; external UserDLLCore name 'SetForegroundWindow';
  492. procedure SetLastError(dwErrCode:DWORD); external KernelDLL name 'SetLastError';
  493. function SetLocalTime(lpSystemTime:LPSYSTEMTIME):WINBOOL; external KernelDLL name 'SetLocalTime';
  494. function SetPaletteEntries(_para1:HPALETTE; _para2:UINT; _para3:UINT; var _para4:PALETTEENTRY):UINT; external GdiDLL name 'SetPaletteEntries';
  495. function SetParent(hWndChild:HWND; hWndNewParent:HWND):HWND; external UserDLLCore name 'SetParent';
  496. function SetPixel(_para1:HDC; _para2:Integer; _para3:Integer; _para4:COLORREF):COLORREF; external GdiDLL name 'SetPixel';
  497. function SetRect(lprc:LPRECT; xLeft:Integer; yTop:Integer; xRight:Integer; yBottom:Integer):WINBOOL; external UserDLLCore name 'SetRect';
  498. function SetRectEmpty(lprc:LPRECT):WINBOOL; external UserDLLCore name 'SetRectEmpty';
  499. function SetRectRgn(_para1:HRGN; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer):WINBOOL; external GdiDLL name 'SetRectRgn';
  500. function SetROP2(_para1:HDC; _para2:Integer):Integer; external GdiDLL name 'SetROP2';
  501. function SetScrollInfo(_para1:HWND; _para2:Integer; _para3:LPCSCROLLINFO; _para4:WINBOOL):Integer; external UserDLLCore name 'SetScrollInfo';
  502. function SetScrollPos(hWnd:HWND; nBar:Integer; nPos:Integer; bRedraw:WINBOOL):Integer; external UserDLLCore name 'SetScrollPos';
  503. function SetScrollRange(hWnd:HWND; nBar:Integer; nMinPos:Integer; nMaxPos:Integer; bRedraw:WINBOOL):WINBOOL; external UserDLLCore name 'SetScrollRange';
  504. function SetSysColors(cElements:Integer; var lpaElements:wINT; var lpaRgbValues:COLORREF):WINBOOL; external UserDLLCore name 'SetSysColors';
  505. function SetSystemTime(lpSystemTime:LPSYSTEMTIME):WINBOOL; external KernelDLL name 'SetSystemTime';
  506. function SetTextColor(_para1:HDC; _para2:COLORREF):COLORREF; external GdiDLL name 'SetTextColor';
  507. function SetTextAlign(_para1:HDC; _para2:UINT):UINT; external GdiDLL name 'SetTextAlign';
  508. function SetTimer(hWnd:HWND; nIDEvent:UINT; uElapse:UINT; lpTimerFunc:TIMERPROC):UINT; external UserDLLCore name 'SetTimer';
  509. function SetTimeZoneInformation(lpTimeZoneInformation:LPTIME_ZONE_INFORMATION):WINBOOL; external KernelDLL name 'SetTimeZoneInformation';
  510. function SetThreadPriority(hThread:HANDLE; nPriority:Integer):WINBOOL; external KernelDLL name 'SetThreadPriority';
  511. function SetupComm(hFile:HANDLE; dwInQueue:DWORD; dwOutQueue:DWORD):WINBOOL; external KernelDLL name 'SetupComm';
  512. function SetViewportOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external GdiDLL name 'SetViewportOrgEx';
  513. function SetWindowPos(hWnd:HWND; hWndInsertAfter:HWND; X:Integer; Y:Integer; cx:Integer;cy:Integer; uFlags:UINT):WINBOOL; external UserDLLCore name 'SetWindowPos';
  514. function SetWindowRgn(hWnd:HWND; hRgn:HRGN; bRedraw:WINBOOL):Integer; external UserDLLCore name 'SetWindowRgn';
  515. procedure SHAddToRecentDocs(_para1:UINT; _para2:LPCVOID); external ShellDLLCore name 'SHAddToRecentDocs';
  516. function SHGetFileInfo(_para1:LPCTSTR; _para2:DWORD; var _para3:SHFILEINFO; _para4:UINT; _para5:UINT):DWORD; external ShellDLLCore name 'SHGetFileInfo';
  517. function SHGetPathFromIDList(_para1:LPCITEMIDLIST; _para2:LPTSTR):WINBOOL; external ShellDLL name 'SHGetPathFromIDList';
  518. function SHGetSpecialFolderLocation(_para1:HWND; _para2:Integer; var _para3:LPITEMIDLIST):HRESULT; external ShellDLL name 'SHGetSpecialFolderLocation';
  519. function ShowCursor(bShow:WINBOOL):Integer; external UserDLLCore name 'ShowCursor';
  520. function ShowCaret(hWnd:HWND):WINBOOL; external UserDLLCore name 'ShowCaret';
  521. function ShowWindow(hWnd:HWND; nCmdShow:Integer):WINBOOL; external UserDLLCore name 'ShowWindow';
  522. function SizeofResource(hModule:HINST; hResInfo:HRSRC):DWORD; external KernelDLL name 'SizeofResource';
  523. procedure Sleep(dwMilliseconds:DWORD); external KernelDLL name 'Sleep';
  524. function StartPage(_para1:HDC):Integer; external GdiDLL name 'StartPage';
  525. function StretchBlt(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:HDC; _para7:Integer; _para8:Integer; _para9:Integer; _para10:Integer;_para11:DWORD):WINBOOL; external GdiDLL name 'StretchBlt';
  526. function StretchDIBits(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:Integer; _para9:Integer; _para10:pointer;var _para11:BITMAPINFO; _para12:UINT; _para13:DWORD):Integer;
  527. external GdiDLL name 'StretchDIBits';
  528. function SubtractRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external UserDLLCore name 'SubtractRect';
  529. function SuspendThread(hThread:HANDLE):DWORD; external KernelDLL name 'SuspendThread';
  530. function SystemTimeToFileTime(lpSystemTime:LPSYSTEMTIME; lpFileTime:LPFILETIME):WINBOOL; external KernelDLL name 'SystemTimeToFileTime';
  531. function TabCtrl_GetImageList(hwnd : HWND) : LRESULT;
  532. function TabCtrl_SetImageList(hwnd:HWND;himl : HIMAGELIST) : LRESULT;
  533. function TabCtrl_GetItemCount(hwnd : HWND) : LRESULT;
  534. function TabCtrl_GetItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  535. function TabCtrl_SetItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  536. function TabCtrl_InsertItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  537. function TabCtrl_DeleteItem(hwnd:HWND;i : Integer) : LRESULT;
  538. function TabCtrl_DeleteAllItems(hwnd : HWND) : LRESULT;
  539. function TabCtrl_GetItemRect(hwnd:HWND;i : Integer;var rc : RECT) : LRESULT;
  540. function TabCtrl_GetCurSel(hwnd : HWND) : LRESULT;
  541. function TabCtrl_SetCurSel(hwnd:HWND;i : Integer) : LRESULT;
  542. function TabCtrl_HitTest(hwndTC:HWND;var info : TC_HITTESTINFO) : LRESULT;
  543. function TabCtrl_SetItemExtra(hwndTC:HWND;cb : Integer) : LRESULT;
  544. function TabCtrl_AdjustRect(hwnd:HWND;bLarger:WINBOOL;var rc : RECT) : LRESULT;
  545. function TabCtrl_SetItemSize(hwnd:HWND;x,y : Integer) : LRESULT;
  546. function TabCtrl_RemoveImage(hwnd:HWND;i : WPARAM) : LRESULT;
  547. function TabCtrl_SetPadding(hwnd:HWND;cx,cy : Integer) : LRESULT;
  548. function TabCtrl_GetRowCount(hwnd : HWND) : LRESULT;
  549. function TabCtrl_GetToolTips(hwnd : HWND) : LRESULT;
  550. function TabCtrl_SetToolTips(hwnd:HWND;hwndTT : Integer) : LRESULT;
  551. function TabCtrl_GetCurFocus(hwnd : HWND) : LRESULT;
  552. function TabCtrl_SetCurFocus(hwnd:HWND;i : Integer) : LRESULT;
  553. function TerminateProcess(hProcess:HANDLE; uExitCode:UINT):WINBOOL; external KernelDLL name 'TerminateProcess';
  554. function TerminateThread(hThread:HANDLE; dwExitCode:DWORD):WINBOOL; external KernelDLL name 'TerminateThread';
  555. function TlsGetValue(dwTlsIndex:DWORD):LPVOID; external KernelDLL name 'TlsGetValue';
  556. function TlsSetValue(dwTlsIndex:DWORD; lpTlsValue:LPVOID):WINBOOL; external KernelDLL name 'TlsSetValue';
  557. function TrackPopupMenuEx(_para1:HMENU; _para2:UINT; _para3:Integer; _para4:Integer; _para5:HWND;_para6:LPTPMPARAMS):WINBOOL; external UserDLLCore name 'TrackPopupMenuEx';
  558. function TranslateCharsetInfo(var lpSrc:DWORD; lpCs:LPCHARSETINFO; dwFlags:DWORD):WINBOOL; external GdiDLL name 'TranslateCharsetInfo';
  559. function TranslateMessage(lpMsg:LPMSG):WINBOOL; external UserDLLCore name 'TranslateMessage';
  560. function TransmitCommChar(hFile:HANDLE; cChar:char):WINBOOL; external KernelDLL name 'TransmitCommChar';
  561. function TreeView_InsertItem(hwnd:HWND;lpis : LPTV_INSERTSTRUCT) : LRESULT;
  562. function TreeView_DeleteItem(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  563. function TreeView_DeleteAllItems(hwnd : HWND) : LRESULT;
  564. function TreeView_Expand(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  565. function TreeView_GetCount(hwnd : HWND) : LRESULT;
  566. function TreeView_GetIndent(hwnd : HWND) : LRESULT;
  567. function TreeView_SetIndent(hwnd:HWND;indent : Integer) : LRESULT;
  568. function TreeView_GetImageList(hwnd:HWND;iImage : WPARAM) : LRESULT;
  569. function TreeView_SetImageList(hwnd:HWND;himl:HIMAGELIST;iImage : WPARAM) : LRESULT;
  570. function TreeView_GetNextItem(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  571. function TreeView_GetChild(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  572. function TreeView_GetNextSibling(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  573. function TreeView_GetPrevSibling(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  574. function TreeView_GetParent(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  575. function TreeView_GetFirstVisible(hwnd : HWND) : LRESULT;
  576. function TreeView_GetNextVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  577. function TreeView_GetPrevVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  578. function TreeView_GetSelection(hwnd : HWND) : LRESULT;
  579. function TreeView_GetDropHilight(hwnd : HWND) : LRESULT;
  580. function TreeView_GetRoot(hwnd : HWND) : LRESULT;
  581. function TreeView_Select(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  582. function TreeView_SelectItem(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  583. function TreeView_SelectDropTarget(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  584. function TreeView_SelectSetFirstVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  585. function TreeView_GetItem(hwnd:HWND;var item : TV_ITEM) : LRESULT;
  586. function TreeView_SetItem(hwnd:HWND;var item : TV_ITEM) : LRESULT;
  587. function TreeView_EditLabel(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  588. function TreeView_GetEditControl(hwnd : HWND) : LRESULT;
  589. function TreeView_GetVisibleCount(hwnd : HWND) : LRESULT;
  590. function TreeView_HitTest(hwnd:HWND;lpht : LPTV_HITTESTINFO) : LRESULT;
  591. function TreeView_CreateDragImage(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  592. function TreeView_SortChildren(hwnd:HWND;hitem:HTREEITEM;recurse : Integer) : LRESULT;
  593. function TreeView_EnsureVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  594. function TreeView_SortChildrenCB(hwnd:HWND;psort:LPTV_SORTCB;recurse : Integer) : LRESULT;
  595. function TreeView_EndEditLabelNow(hwnd:HWND;fCancel : Integer) : LRESULT;
  596. function TreeView_GetISearchString(hwndTV:HWND;lpsz : LPTSTR) : LRESULT;
  597. function TryEnterCriticalSection(lpCriticalSection:LPCRITICAL_SECTION):WINBOOL; external KernelDLL name 'TryEnterCriticalSection'; //+winbase
  598. function UnhookWindowsHookEx(hhk:HHOOK):WINBOOL; external UserDLLCore name 'UnhookWindowsHookEx';
  599. function UnionRect(lprcDst:LPRECT; var lprcSrc1:RECT; var lprcSrc2:RECT):WINBOOL; external UserDLLCore name 'UnionRect';
  600. function UnmapViewOfFile(lpBaseAddress:LPVOID):WINBOOL; external KernelDLL name 'UnmapViewOfFile';
  601. function UnregisterHotKey(hWnd:HWND; anID:iNTEGER):WINBOOL; external UserDLLCore name 'UnregisterHotKey';
  602. function UpdateWindow(hWnd:HWND):WINBOOL; external UserDLLCore name 'UpdateWindow';
  603. function ValidateRect(hWnd:HWND; var lpRect:RECT):WINBOOL; external UserDLLCore name 'ValidateRect';
  604. function ValidateRect(hWnd:HWND;lpRect:LPRECT):WINBOOL; external UserDLLCore name 'ValidateRect';
  605. function ValidateRgn(hWnd:HWND; hRgn:HRGN):WINBOOL; external UserDLLCore name 'ValidateRgn';
  606. function VirtualAlloc(lpAddress:LPVOID; dwSize:DWORD; flAllocationType:DWORD; flProtect:DWORD):LPVOID; external KernelDLL name 'VirtualAlloc';
  607. function VirtualProtect(lpAddress:LPVOID; dwSize:DWORD; flNewProtect:DWORD; lpflOldProtect:PDWORD):WINBOOL; external KernelDLL name 'VirtualProtect';
  608. function VirtualQuery(lpAddress:LPCVOID; lpBuffer:PMEMORY_BASIC_INFORMATION; dwLength:DWORD):DWORD; external KernelDLL name 'VirtualQuery';
  609. function VirtualFree(lpAddress:LPVOID; dwSize:DWORD; dwFreeType:DWORD):WINBOOL; external KernelDLL name 'VirtualFree';
  610. function WriteProcessMemory(hProcess:HANDLE; lpBaseAddress:LPVOID; lpBuffer:LPVOID; nSize:DWORD; lpNumberOfBytesWritten:LPDWORD):WINBOOL; external KernelDLL name 'WriteProcessMemory';
  611. function WaitCommEvent(hFile:HANDLE; lpEvtMask:LPDWORD; lpOverlapped:LPOVERLAPPED):WINBOOL; external KernelDLL name 'WaitCommEvent';
  612. function WaitForDebugEvent(lpDebugEvent:LPDEBUG_EVENT; dwMilliseconds:DWORD):WINBOOL; external KernelDLL name 'WaitForDebugEvent';
  613. function WaitForSingleObject(hHandle:HANDLE; dwMilliseconds:DWORD):DWORD; external KernelDLL name 'WaitForSingleObject';
  614. function WaitForMultipleObjects(nCount:DWORD; lpHandles : PWOHandleArray; bWaitAll:WINBOOL; dwMilliseconds:DWORD):DWORD; external KernelDLL name 'WaitForMultipleObjects';
  615. function WideCharToMultiByte(CodePage:UINT; dwFlags:DWORD; lpWideCharStr:LPCWSTR; cchWideChar:Integer; lpMultiByteStr:LPSTR;cchMultiByte:Integer; lpDefaultChar:LPCSTR; lpUsedDefaultChar:LPBOOL):Integer; external KernelDLL name 'WideCharToMultiByte';
  616. function WNetCloseEnum(hEnum:HANDLE):DWORD; external MprDLLCore name 'WNetCloseEnum';
  617. function WNetDisconnectDialog(hwnd:HWND; dwType:DWORD):DWORD; external MprDLLCore name 'WNetDisconnectDialog';
  618. procedure ZeroMemory(Destination:PVOID; Length:DWORD);
  619. //end common win32 & wince
  620. {$ifdef WINCE}
  621. //begin wince only
  622. function ActivateKeyboardLayout(hkl:HKL; Flags:UINT):HKL; external UserDLLCore name 'ActivateKeyboardLayout';
  623. //redirected to SendDlgItemMessage
  624. function CheckDlgButton(hDlg:HWND; nIDButton:Integer; uCheck:UINT):WINBOOL;
  625. //win32 version redirected
  626. function ChildWindowFromPoint(hWndParent:HWND; Point:POINT):HWND; external UserDLLCore name 'ChildWindowFromPoint';
  627. //redirected to DrawInconEx
  628. function DrawIcon(hDC:HDC; X:Integer; Y:Integer; hIcon:HICON):WINBOOL;
  629. function EventModify(hEvent:HANDLE; func:DWORD ):WINBOOL; external KernelDLL name 'EventModify'; //+kfuncs
  630. //redirected to TerminateProcess
  631. procedure ExitProcess(uExitCode:UINT);
  632. //calculated value
  633. function GetCurrentProcess:HANDLE;
  634. //calculated value
  635. function GetCurrentProcessId:DWORD;
  636. //calculated value
  637. function GetCurrentThread:HANDLE;
  638. //calculated value
  639. function GetCurrentThreadId:DWORD;
  640. //redirected to LocalAlloc
  641. function GlobalAlloc(uFlags:UINT; dwBytes:DWORD):HGLOBAL;
  642. //redirected to LocalHandle
  643. function GlobalHandle(pMem:LPCVOID):HGLOBAL;
  644. //redirected to LocalFree
  645. function GlobalFree(hMem:HGLOBAL):HGLOBAL;
  646. //redirected to LocalLock
  647. function GlobalLock(hMem:HGLOBAL):LPVOID;
  648. //redirected to LocalRealloc
  649. function GlobalReAlloc(hMem:HGLOBAL; dwBytes:DWORD; uFlags:UINT):HGLOBAL;
  650. //redirected to LocalSize
  651. function GlobalSize(hMem:HGLOBAL):DWORD;
  652. //redirected to LocalUnlock
  653. function GlobalUnlock(hMem:HGLOBAL):WINBOOL;
  654. //empty
  655. function LocalLock(hMem:HLOCAL):LPVOID;
  656. //empty
  657. function LocalUnlock(hMem:HLOCAL):WINBOOL;
  658. //empty
  659. function LocalHandle(pMem:LPCVOID):HLOCAL;
  660. //redirected to TlsCall
  661. function TlsAlloc:DWORD;
  662. function TlsCall(p1:DWORD; p2:DWORD):DWORD; external KernelDLL name 'TlsCall';
  663. //redirected to TlsCall
  664. function TlsFree(dwTlsIndex:DWORD):WINBOOL;
  665. //redirected to MsgWaitForMultipleObjectsEx
  666. function MsgWaitForMultipleObjects(nCount:DWORD; pHandles:LPHANDLE; fWaitAll:WINBOOL; dwMilliseconds:DWORD; dwWakeMask:DWORD):DWORD;
  667. //redirected to TrackPopupMenuEx
  668. function TrackPopupMenu(hMenu:HMENU; uFlags:UINT; x:Integer; y:Integer; nReserved:Integer;hWnd:HWND; var prcRect:RECT):WINBOOL;
  669. //redirected to EventModify
  670. function PulseEvent(hEvent:HANDLE):WINBOOL;
  671. //redirected to EventModify
  672. function ResetEvent(hEvent:HANDLE):WINBOOL;
  673. //redirected to EventModify
  674. function SetEvent(hEvent:HANDLE):WINBOOL;
  675. //win32 version redirected
  676. function WindowFromPoint(Point:POINT):HWND; external UserDLLCore name 'WindowFromPoint';
  677. // SHGetSpecialFolderPath consts
  678. const
  679. CSIDL_PROGRAMS = $0002;
  680. CSIDL_CONTROLS = $0003;
  681. CSIDL_PRINTERS = $0004;
  682. CSIDL_PERSONAL = $0005;
  683. CSIDL_FAVORITES = $0006;
  684. CSIDL_STARTUP = $0007;
  685. CSIDL_RECENT = $0008;
  686. CSIDL_SENDTO = $0009;
  687. CSIDL_BITBUCKET = $000a;
  688. CSIDL_STARTMENU = $000b;
  689. CSIDL_DESKTOPDIRECTORY = $0010;
  690. CSIDL_DRIVES = $0011;
  691. CSIDL_NETWORK = $0012;
  692. CSIDL_NETHOOD = $0013;
  693. CSIDL_FONTS = $0014;
  694. CSIDL_TEMPLATES = $0015;
  695. CSIDL_APPDATA = $001a;
  696. function SHGetSpecialFolderPath(hwndOwner: HWND; lpszPath: LPTSTR; nFolder: LongInt; fCreate: BOOL): BOOL;
  697. external 'coredll' name 'SHGetSpecialFolderPath';
  698. //end wince only
  699. {$endif WINCE}
  700. {$ifdef WIN32}
  701. //begin win32 only
  702. {function AbortPath(_para1:HDC):WINBOOL; external 'gdi32' name 'AbortPath';}
  703. function AccessCheck(pSecurityDescriptor:PSECURITY_DESCRIPTOR; ClientToken:HANDLE; DesiredAccess:DWORD; GenericMapping:PGENERIC_MAPPING; PrivilegeSet:PPRIVILEGE_SET;PrivilegeSetLength:LPDWORD;
  704. GrantedAccess:LPDWORD; AccessStatus:LPBOOL):WINBOOL; external 'advapi32' name 'AccessCheck';
  705. {$ifdef WIN95}
  706. function ActivateKeyboardLayout(hkl:HKL; Flags:UINT):HKL; external 'user32' name 'ActivateKeyboardLayout';
  707. {$else}
  708. function ActivateKeyboardLayout(hkl:HKL; Flags:UINT):WINBOOL; external 'user32' name 'ActivateKeyboardLayout';
  709. {$endif}
  710. function AddAccessAllowedAce(pAcl:PACL; dwAceRevision:DWORD; AccessMask:DWORD; pSid:PSID):WINBOOL; external 'advapi32' name 'AddAccessAllowedAce';
  711. function AddAccessDeniedAce(pAcl:PACL; dwAceRevision:DWORD; AccessMask:DWORD; pSid:PSID):WINBOOL; external 'advapi32' name 'AddAccessDeniedAce';
  712. function AddAce(pAcl:PACL; dwAceRevision:DWORD; dwStartingAceIndex:DWORD; pAceList:LPVOID; nAceListLength:DWORD):WINBOOL; external 'advapi32' name 'AddAce';
  713. function AddAuditAccessAce(pAcl:PACL; dwAceRevision:DWORD; dwAccessMask:DWORD; pSid:PSID; bAuditSuccess:WINBOOL;bAuditFailure:WINBOOL):WINBOOL; external 'advapi32' name 'AddAuditAccessAce';
  714. function AdjustTokenPrivileges(TokenHandle:HANDLE; DisableAllPrivileges:WINBOOL; NewState:PTOKEN_PRIVILEGES; BufferLength:DWORD; PreviousState:PTOKEN_PRIVILEGES;ReturnLength:PDWORD):WINBOOL; external 'advapi32' name 'AdjustTokenPrivileges';
  715. function AdjustTokenGroups(TokenHandle:HANDLE; ResetToDefault:WINBOOL; NewState:PTOKEN_GROUPS; BufferLength:DWORD; PreviousState:PTOKEN_GROUPS;ReturnLength:PDWORD):WINBOOL; external 'advapi32' name 'AdjustTokenGroups';
  716. function AdjustWindowRect(lpRect:LPRECT; dwStyle:DWORD; bMenu:WINBOOL):WINBOOL; external 'user32' name 'AdjustWindowRect';
  717. function AllocateAndInitializeSid(pIdentifierAuthority:PSID_IDENTIFIER_AUTHORITY; nSubAuthorityCount:BYTE; nSubAuthority0:DWORD; nSubAuthority1:DWORD; nSubAuthority2:DWORD;nSubAuthority3:DWORD; nSubAuthority4:DWORD;
  718. nSubAuthority5:DWORD; nSubAuthority6:DWORD; nSubAuthority7:DWORD;var pSid:PSID):WINBOOL; external 'advapi32' name 'AllocateAndInitializeSid';
  719. function AllocateLocallyUniqueId(Luid:PLUID):WINBOOL; external 'advapi32' name 'AllocateLocallyUniqueId';
  720. function AllocConsole:WINBOOL; external 'kernel32' name 'AllocConsole';
  721. function AngleArc(_para1:HDC; _para2:Integer; _para3:Integer; _para4:DWORD; _para5:Single;_para6:Single):WINBOOL; external 'gdi32' name 'AngleArc';
  722. function AnimatePalette(_para1:HPALETTE; _para2:UINT; _para3:UINT; var _para4:PALETTEENTRY):WINBOOL; external 'gdi32' name 'AnimatePalette';
  723. function Animate_Create(hWndP:HWND; id:HMENU;dwStyle:DWORD;hInstance:HINST):HWND;
  724. function Animate_Open(hwnd : HWND;szName : LPTSTR) : LRESULT;
  725. function Animate_Play(hwnd : HWND;from,_to : Integer;rep : UINT) : LRESULT;
  726. function Animate_Stop(hwnd : HWND) : LRESULT;
  727. function Animate_Close(hwnd : HWND) : LRESULT;
  728. function Animate_Seek(hwnd : HWND;frame : Integer) : LRESULT;
  729. function AnyPopup:WINBOOL; external 'user32' name 'AnyPopup';
  730. function Arc(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:Integer; _para9:Integer):WINBOOL; external 'gdi32' name 'Arc';
  731. function ArcTo(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:Integer; _para9:Integer):WINBOOL; external 'gdi32' name 'ArcTo';
  732. function AreAllAccessesGranted(GrantedAccess:DWORD; DesiredAccess:DWORD):WINBOOL; external 'advapi32' name 'AreAllAccessesGranted';
  733. function AreAnyAccessesGranted(GrantedAccess:DWORD; DesiredAccess:DWORD):WINBOOL; external 'advapi32' name 'AreAnyAccessesGranted';
  734. function AreFileApisANSI:WINBOOL; external 'kernel32' name 'AreFileApisANSI';
  735. function ArrangeIconicWindows(hWnd:HWND):UINT; external 'user32' name 'ArrangeIconicWindows';
  736. function AttachThreadInput(idAttach:DWORD; idAttachTo:DWORD; fAttach:WINBOOL):WINBOOL; external 'user32' name 'AttachThreadInput';
  737. function BackupRead(hFile:HANDLE; lpBuffer:LPBYTE; nNumberOfBytesToRead:DWORD; lpNumberOfBytesRead:LPDWORD; bAbort:WINBOOL;bProcessSecurity:WINBOOL; var lpContext:LPVOID):WINBOOL; external 'kernel32' name 'BackupRead';
  738. function BackupSeek(hFile:HANDLE; dwLowBytesToSeek:DWORD; dwHighBytesToSeek:DWORD; lpdwLowByteSeeked:LPDWORD; lpdwHighByteSeeked:LPDWORD;var lpContext:LPVOID):WINBOOL; external 'kernel32' name 'BackupSeek';
  739. function BackupWrite(hFile:HANDLE; lpBuffer:LPBYTE; nNumberOfBytesToWrite:DWORD; lpNumberOfBytesWritten:LPDWORD; bAbort:WINBOOL;bProcessSecurity:WINBOOL; var lpContext:LPVOID):WINBOOL; external 'kernel32' name 'BackupWrite';
  740. function Beep(dwFreq:DWORD; dwDuration:DWORD):WINBOOL; external 'kernel32' name 'Beep';
  741. function BeginPath(_para1:HDC):WINBOOL; external 'gdi32' name 'BeginPath';
  742. function BroadcastSystemMessage(_para1:DWORD; _para2:LPDWORD; _para3:UINT; _para4:WPARAM; _para5:LPARAM):Integer; external 'user32' name 'BroadcastSystemMessage';
  743. function CancelDC(_para1:HDC):WINBOOL; external 'gdi32' name 'CancelDC';
  744. function CascadeWindows(hwndParent:HWND; wHow:UINT; var lpRect:RECT; cKids:UINT; var lpKids:HWND):WORD; external 'user32' name 'CascadeWindows';
  745. function ChangeClipboardChain(hWndRemove:HWND; hWndNewNext:HWND):WINBOOL; external 'user32' name 'ChangeClipboardChain';
  746. //to move in ascfun.inc
  747. function CharNextExA(CodePage:WORD; lpCurrentChar:LPCSTR; dwFlags:DWORD):LPSTR; external 'user32' name 'CharNextExA';
  748. //to move in ascfun.inc
  749. function CharPrevExA(CodePage:WORD; lpStart:LPCSTR; lpCurrentChar:LPCSTR; dwFlags:DWORD):LPSTR; external 'user32' name 'CharPrevExA';
  750. function CheckColorsInGamut(_para1:HDC; _para2:LPVOID; _para3:LPVOID; _para4:DWORD):WINBOOL; external 'gdi32' name 'CheckColorsInGamut';
  751. function CheckDlgButton(hDlg:HWND; nIDButton:Integer; uCheck:UINT):WINBOOL; external 'user32' name 'CheckDlgButton';
  752. function ChildWindowFromPoint(hWndParent:HWND; Point:POINT):HWND; { external 'user32' name 'ChildWindowFromPoint';bug 1807 }
  753. function ChildWindowFromPointEx(_para1:HWND; _para2:POINT; _para3:UINT):HWND; {external 'user32' name 'ChildWindowFromPointEx';}
  754. function ChoosePixelFormat(_para1:HDC; _para2:PPIXELFORMATDESCRIPTOR):Integer; external 'gdi32' name 'ChoosePixelFormat';
  755. function Chord(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:Integer; _para9:Integer):WINBOOL; external 'gdi32' name 'Chord';
  756. function CloseDesktop(hDesktop:HDESK):WINBOOL; external 'user32' name 'CloseDesktop';
  757. function CloseEventLog(hEventLog:HANDLE):WINBOOL; external 'advapi32' name 'CloseEventLog';
  758. function CloseFigure(_para1:HDC):WINBOOL; external 'gdi32' name 'CloseFigure';
  759. function CloseMetaFile(_para1:HDC):HMETAFILE; external 'gdi32' name 'CloseMetaFile';
  760. function CloseServiceHandle(hSCObject:SC_HANDLE):WINBOOL; external 'advapi32' name 'CloseServiceHandle';
  761. function CloseWindow(hWnd:HWND):WINBOOL; external 'user32' name 'CloseWindow';
  762. function CloseWindowStation(hWinSta:HWINSTA):WINBOOL; external 'user32' name 'CloseWindowStation';
  763. function ColorMatchToTarget(_para1:HDC; _para2:HDC; _para3:DWORD):WINBOOL; external 'gdi32' name 'ColorMatchToTarget';
  764. function CombineTransform(_para1:LPXFORM; var _para2:XFORM; var _para3:XFORM):WINBOOL; external 'gdi32' name 'CombineTransform';
  765. function ConnectNamedPipe(hNamedPipe:HANDLE; lpOverlapped:LPOVERLAPPED):WINBOOL; external 'kernel32' name 'ConnectNamedPipe';
  766. function ControlService(hService:SC_HANDLE; dwControl:DWORD; lpServiceStatus:LPSERVICE_STATUS):WINBOOL; external 'advapi32' name 'ControlService';
  767. function CopyIcon(hIcon:HICON):HICON; external 'user32' name 'CopyIcon';
  768. function CopyImage(_para1:HANDLE; _para2:UINT; _para3:Integer; _para4:Integer; _para5:UINT):HICON; external 'user32' name 'CopyImage';
  769. function CopySid(nDestinationSidLength:DWORD; pDestinationSid:PSID; pSourceSid:PSID):WINBOOL; external 'advapi32' name 'CopySid';
  770. function CreateBitmapIndirect(var _para1:BITMAP):HBITMAP; external 'gdi32' name 'CreateBitmapIndirect';
  771. function CreateBrushIndirect(var _para1:LOGBRUSH):HBRUSH; external 'gdi32' name 'CreateBrushIndirect';
  772. function CreateCursor(hInst:HINST; xHotSpot:Integer; yHotSpot:Integer; nWidth:Integer; nHeight:Integer;pvANDPlane:pointer; pvXORPlane:pointer):HCURSOR; external 'user32' name 'CreateCursor';
  773. function CreateConsoleScreenBuffer(dwDesiredAccess:DWORD; dwShareMode:DWORD; var lpSecurityAttributes:SECURITY_ATTRIBUTES; dwFlags:DWORD; lpScreenBufferData:LPVOID):HANDLE; external 'kernel32' name 'CreateConsoleScreenBuffer';
  774. function CreateDiscardableBitmap(_para1:HDC; _para2:Integer; _para3:Integer):HBITMAP; external 'gdi32' name 'CreateDiscardableBitmap';
  775. function CreateDIBitmap(_para1:HDC; var _para2:BITMAPINFOHEADER; _para3:DWORD; _para4:pointer; var _para5:BITMAPINFO;_para6:UINT):HBITMAP; external 'gdi32' name 'CreateDIBitmap';
  776. function CreateDIBPatternBrush(_para1:HGLOBAL; _para2:UINT):HBRUSH; external 'gdi32' name 'CreateDIBPatternBrush';
  777. function CreateEllipticRgn(_para1:Integer; _para2:Integer; _para3:Integer; _para4:Integer):HRGN; external 'gdi32' name 'CreateEllipticRgn';
  778. function CreateEllipticRgnIndirect(var _para1:RECT):HRGN; external 'gdi32' name 'CreateEllipticRgnIndirect';
  779. function CreateHalftonePalette(_para1:HDC):HPALETTE; external 'gdi32' name 'CreateHalftonePalette';
  780. function CreateHatchBrush(_para1:Integer; _para2:COLORREF):HBRUSH; external 'gdi32' name 'CreateHatchBrush';
  781. function CreateIcon(hInstance:HINST; nWidth:Integer; nHeight:Integer; cPlanes:BYTE; cBitsPixel:BYTE;var lpbANDbits:BYTE; var lpbXORbits:BYTE):HICON; external 'user32' name 'CreateIcon';
  782. function CreateIconFromResource(presbits:PBYTE; dwResSize:DWORD; fIcon:WINBOOL; dwVer:DWORD):HICON; external 'user32' name 'CreateIconFromResource';
  783. function CreateIconFromResourceEx(presbits:PBYTE; dwResSize:DWORD; fIcon:WINBOOL; dwVer:DWORD; cxDesired:Integer;cyDesired:Integer; Flags:UINT):HICON; external 'user32' name 'CreateIconFromResourceEx';
  784. function CreateIoCompletionPort(FileHandle:HANDLE; ExistingCompletionPort:HANDLE; CompletionKey:DWORD; NumberOfConcurrentThreads:DWORD):HANDLE; external 'kernel32' name 'CreateIoCompletionPort';
  785. function CreateMappedBitmap(hInstance:HINST; idBitmap:Integer; wFlags:UINT; lpColorMap:LPCOLORMAP; iNumMaps:Integer):HBITMAP; external 'comctl32' name 'CreateMappedBitmap';
  786. function CreatePipe(hReadPipe:PHANDLE; hWritePipe:PHANDLE; lpPipeAttributes:LPSECURITY_ATTRIBUTES; nSize:DWORD):WINBOOL; external 'kernel32' name 'CreatePipe';
  787. function CreatePolyPolygonRgn(var _para1:POINT; var _para2:wINT; _para3:Integer; _para4:Integer):HRGN; external 'gdi32' name 'CreatePolyPolygonRgn';
  788. function CreatePolygonRgn(var _para1:POINT; _para2:Integer; _para3:Integer):HRGN; external 'gdi32' name 'CreatePolygonRgn';
  789. function CreatePrivateObjectSecurity(ParentDescriptor:PSECURITY_DESCRIPTOR; CreatorDescriptor:PSECURITY_DESCRIPTOR; var NewDescriptor:PSECURITY_DESCRIPTOR;
  790. IsDirectoryObject:WINBOOL; Token:HANDLE;GenericMapping:PGENERIC_MAPPING):WINBOOL; external 'advapi32' name 'CreatePrivateObjectSecurity';
  791. //to move to ascfun.inc
  792. function CreatePropertySheetPageA(lppsp:LPCPROPSHEETPAGE):HPROPSHEETPAGE; external 'comctl32' name 'CreatePropertySheetPageA';
  793. function CreateRemoteThread(hProcess:HANDLE; lpThreadAttributes:LPSECURITY_ATTRIBUTES; dwStackSize:DWORD; lpStartAddress:LPTHREAD_START_ROUTINE; lpParameter:LPVOID;
  794. dwCreationFlags:DWORD; lpThreadId:LPDWORD):HANDLE; external 'kernel32' name 'CreateRemoteThread';
  795. function CreateRoundRectRgn(_para1:Integer; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer):HRGN; external 'gdi32' name 'CreateRoundRectRgn';
  796. function CreateTapePartition(hDevice:HANDLE; dwPartitionMethod:DWORD; dwCount:DWORD; dwSize:DWORD):DWORD; external 'kernel32' name 'CreateTapePartition';
  797. function DdeAbandonTransaction(_para1:DWORD; _para2:HCONV; _para3:DWORD):BOOL;external 'user32' name 'DdeAbandonTransaction';
  798. function DdeAccessData(_para1:HDDEDATA; _para2:PDWORD):PBYTE;external 'user32' name 'DdeAccessData';
  799. function DdeAddData(_para1:HDDEDATA; _para2:PBYTE; _para3:DWORD; _para4:DWORD):HDDEDATA;external 'user32' name 'DdeAddData';
  800. { This is only a prototype PM
  801. function DdeCallback(_para1, _para2:UINT; _para3:HCONV; _para4, _para5:HSZ;_para6: HDDEDATA; _para7, _para8:PDWORD):HDDEDATA;external 'user32' name 'DdeCallback';}
  802. function DdeClientTransaction(_para1:PBYTE; _para2:DWORD; _para3:HCONV; _para4:HSZ; _para5:UINT;
  803. _para6:UINT; _para7:DWORD; _para8:PDWORD):HDDEDATA;external 'user32' name 'DdeClientTransaction';
  804. function DdeCmpStringHandles(_para1:HSZ; _para2:HSZ):Integer; external 'user32' name 'DdeCmpStringHandles';
  805. function DdeConnect(_para1:DWORD; _para2:HSZ; _para3:HSZ; var _para4:CONVCONTEXT):HCONV; external 'user32' name 'DdeConnect';
  806. function DdeConnectList(_para1:DWORD; _para2:HSZ; _para3:HSZ; _para4:HCONVLIST; _para5:PCONVCONTEXT):HCONVLIST;external 'user32' name 'DdeConnectList';
  807. function DdeCreateDataHandle(_para1:DWORD; _para2:LPBYTE; _para3:DWORD; _para4:DWORD; _para5:HSZ;_para6:UINT; _para7:UINT):HDDEDATA; external 'user32' name 'DdeCreateDataHandle';
  808. function DdeDisconnect(_para1:HCONV):WINBOOL; external 'user32' name 'DdeDisconnect';
  809. function DdeDisconnectList(_para1:HCONVLIST):BOOL;external 'user32' name 'DdeDisconnectList';
  810. function DdeEnableCallback(_para1:DWORD; _para2:HCONV; _para3:UINT):BOOL;external 'user32' name 'DdeEnableCallback';
  811. function DdeFreeDataHandle(_para1:HDDEDATA):WINBOOL; external 'user32' name 'DdeFreeDataHandle';
  812. function DdeFreeStringHandle(_para1:DWORD;_para2:HSZ):WINBOOL; external 'user32' name 'DdeFreeStringHandle';
  813. function DdeGetData(_para1:HDDEDATA;_para2:LPBYTE; _para3:DWORD; _para4:DWORD):DWORD; external 'user32' name 'DdeGetData';
  814. function DdeGetLastError(_para1:DWORD):UINT; external 'user32' name 'DdeGetLastError';
  815. function DdeImpersonateClient(_para1:HCONV):BOOL;external 'user32' name 'DdeImpersonateClient';
  816. function DdeKeepStringHandle(_para1:DWORD; _para2:HSZ):BOOL;external 'user32' name 'DdeKeepStringHandle';
  817. function DdeNameService(_para1:DWORD; _para2:HSZ; _para3:HSZ; _para4:UINT):HDDEDATA; external 'user32' name 'DdeNameService';
  818. function DdePostAdvise(_para1:DWORD; _para2:HSZ; _para3:HSZ):WINBOOL; external 'user32' name 'DdePostAdvise';
  819. function DdeQueryConvInfo(_para1:HCONV; _para2:DWORD; _para3:PCONVINFO):UINT;external 'user32' name 'DdeQueryConvInfo';
  820. function DdeQueryNextServer(_para1:HCONVLIST; _para2:HCONV):HCONV;external 'user32' name 'DdeQueryNextServer';
  821. function DdeReconnect(_para1:HCONV):HCONV; external 'user32' name 'DdeReconnect';
  822. function DdeSetUserHandle(_para1:HCONV; _para2:DWORD; _para3:DWORD):BOOL;external 'user32' name 'DdeSetUserHandle';
  823. function DdeUnaccessData(_para1:HDDEDATA):BOOL;external 'user32' name 'DdeUnaccessData';
  824. function DdeUninitialize(_para1:DWORD):WINBOOL; external 'user32' name 'DdeUninitialize';
  825. procedure DebugBreak; external 'kernel32' name 'DebugBreak';
  826. function DeleteAce(pAcl:PACL; dwAceIndex:DWORD):WINBOOL; external 'advapi32' name 'DeleteAce';
  827. function DeleteAtom(nAtom:ATOM):ATOM; external 'kernel32' name 'DeleteAtom';
  828. function DeleteColorSpace(_para1:HCOLORSPACE):WINBOOL; external 'gdi32' name 'DeleteColorSpace';
  829. function DeleteMetaFile(_para1:HMETAFILE):WINBOOL; external 'gdi32' name 'DeleteMetaFile';
  830. function DeleteService(hService:SC_HANDLE):WINBOOL; external 'advapi32' name 'DeleteService';
  831. function DeregisterEventSource(hEventLog:HANDLE):WINBOOL; external 'advapi32' name 'DeregisterEventSource';
  832. function DescribePixelFormat(_para1:HDC; _para2:Integer; _para3:UINT; _para4:LPPIXELFORMATDESCRIPTOR):Integer; external 'gdi32' name 'DescribePixelFormat';
  833. function DestroyCursor(hCursor:HCURSOR):WINBOOL; external 'user32' name 'DestroyCursor';
  834. function DestroyPrivateObjectSecurity(ObjectDescriptor:PSECURITY_DESCRIPTOR):WINBOOL; external 'advapi32' name 'DestroyPrivateObjectSecurity';
  835. function DisconnectNamedPipe(hNamedPipe:HANDLE):WINBOOL; external 'kernel32' name 'DisconnectNamedPipe';
  836. function DosDateTimeToFileTime(wFatDate:WORD; wFatTime:WORD; lpFileTime:LPFILETIME):WINBOOL; external 'kernel32' name 'DosDateTimeToFileTime';
  837. function DPtoLP(_para1:HDC; _para2:LPPOINT; _para3:Integer):WINBOOL; external 'gdi32' name 'DPtoLP';
  838. procedure DragAcceptFiles(_para1:HWND; _para2:WINBOOL); external 'shell32' name 'DragAcceptFiles';
  839. function DragDetect(hwnd:HWND; pt:POINT):WINBOOL; {external 'user32' name 'DragDetect';bug 1807 }
  840. procedure DragFinish(_para1:HDROP); external 'shell32' name 'DragFinish';
  841. function DragObject(_para1:HWND; _para2:HWND; _para3:UINT; _para4:DWORD; _para5:HCURSOR):DWORD; external 'user32' name 'DragObject';
  842. function DragQueryPoint(_para1:HDROP; _para2:LPPOINT):WINBOOL; external 'shell32' name 'DragQueryPoint';
  843. function DrawAnimatedRects(hwnd:HWND; idAni:Integer; var lprcFrom:RECT; var lprcTo:RECT):WINBOOL; external 'user32' name 'DrawAnimatedRects';
  844. function DrawCaption(_para1:HWND; _para2:HDC; var _para3:RECT; _para4:UINT):WINBOOL; external 'user32' name 'DrawCaption';
  845. function DrawEscape(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPCSTR):Integer; external 'gdi32' name 'DrawEscape';
  846. function DrawIcon(hDC:HDC; X:Integer; Y:Integer; hIcon:HICON):WINBOOL; external 'user32' name 'DrawIcon';
  847. procedure DrawInsert(handParent:HWND; hLB:HWND; nItem:Integer); external 'comctl32' name 'DrawInsert';
  848. function DuplicateIcon(_para1:HINST; _para2:HICON):HICON; external 'shell32' name 'DuplicateIcon';
  849. function DuplicateToken(ExistingTokenHandle:HANDLE; ImpersonationLevel:SECURITY_IMPERSONATION_LEVEL; DuplicateTokenHandle:PHANDLE):WINBOOL; external 'advapi32' name 'DuplicateToken';
  850. function EndPath(_para1:HDC):WINBOOL; external 'gdi32' name 'EndPath';
  851. function EnumDesktopWindows(hDesktop:HDESK; lpfn:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumDesktopWindows';
  852. function EnumObjects(_para1:HDC; _para2:Integer; _para3:ENUMOBJECTSPROC; _para4:LPARAM):Integer; external 'gdi32' name 'EnumObjects';
  853. function EraseTape(hDevice:HANDLE; dwEraseType:DWORD; bImmediate:WINBOOL):DWORD; external 'kernel32' name 'EraseTape';
  854. function Escape(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPCSTR; _para5:LPVOID):Integer; external 'gdi32' name 'Escape';
  855. function EqualSid(pSid1:PSID; pSid2:PSID):WINBOOL; external 'advapi32' name 'EqualSid';
  856. function EqualPrefixSid(pSid1:PSID; pSid2:PSID):WINBOOL; external 'advapi32' name 'EqualPrefixSid';
  857. function EnableScrollBar(hWnd:HWND; wSBflags:UINT; wArrows:UINT):WINBOOL; external 'user32' name 'EnableScrollBar';
  858. function EnumChildWindows(hWndParent:HWND; lpEnumFunc:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumChildWindows';
  859. function EnumEnhMetaFile(_para1:HDC; _para2:HENHMETAFILE; _para3:ENHMETAFILEPROC; _para4:LPVOID; var _para5:RECT):WINBOOL; external 'gdi32' name 'EnumEnhMetaFile';
  860. function EnumMetaFile(_para1:HDC; _para2:HMETAFILE; _para3:ENUMMETAFILEPROC; _para4:LPARAM):WINBOOL; external 'gdi32' name 'EnumMetaFile';
  861. function EnumThreadWindows(dwThreadId:DWORD; lpfn:ENUMWINDOWSPROC; lParam:LPARAM):WINBOOL; external 'user32' name 'EnumThreadWindows';
  862. function EnumTaskWindows(hTask:HWND; lpfn:FARPROC; lParam: LPARAM): BOOL;external 'user32' name 'EnumThreadWindows';
  863. function ExcludeUpdateRgn(hDC:HDC; hWnd:HWND):Integer; external 'user32' name 'ExcludeUpdateRgn';
  864. procedure ExitProcess(uExitCode:UINT);external 'kernel32' name 'ExitProcess';
  865. function ExtCreatePen(_para1:DWORD; _para2:DWORD; var _para3:LOGBRUSH; _para4:DWORD; var _para5:DWORD):HPEN; external 'gdi32' name 'ExtCreatePen';
  866. function ExtFloodFill(_para1:HDC; _para2:Integer; _para3:Integer; _para4:COLORREF; _para5:UINT):WINBOOL; external 'gdi32' name 'ExtFloodFill';
  867. function ExtSelectClipRgn(_para1:HDC; _para2:HRGN; _para3:Integer):Integer; external 'gdi32' name 'ExtSelectClipRgn';
  868. procedure FatalExit(ExitCode:Integer); external 'kernel32' name 'FatalExit';
  869. function FileTimeToDosDateTime(lpFileTime:LPFILETIME; lpFatDate:LPWORD; lpFatTime:LPWORD):WINBOOL; external 'kernel32' name 'FileTimeToDosDateTime';
  870. function FillConsoleOutputAttribute(hConsoleOutput:HANDLE; wAttribute:WORD; nLength:DWORD; dwWriteCoord:COORD; lpNumberOfAttrsWritten:LPDWORD):WINBOOL; external 'kernel32' name 'FillConsoleOutputAttribute';
  871. function FillPath(_para1:HDC):WINBOOL; external 'gdi32' name 'FillPath';
  872. function FillRgn(_para1:HDC; _para2:HRGN; _para3:HBRUSH):WINBOOL; external 'gdi32' name 'FillRgn';
  873. function FindFirstFreeAce(pAcl:PACL; var pAce:LPVOID):WINBOOL; external 'advapi32' name 'FindFirstFreeAce';
  874. function FixBrushOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external 'gdi32' name 'FixBrushOrgEx';
  875. function FlashWindow(hWnd:HWND; bInvert:WINBOOL):WINBOOL; external 'user32' name 'FlashWindow';
  876. function FlattenPath(_para1:HDC):WINBOOL; external 'gdi32' name 'FlattenPath';
  877. function FloodFill(_para1:HDC; _para2:Integer; _para3:Integer; _para4:COLORREF):WINBOOL; external 'gdi32' name 'FloodFill';
  878. function FlushConsoleInputBuffer(hConsoleInput:HANDLE):WINBOOL; external 'kernel32' name 'FlushConsoleInputBuffer';
  879. function FrameRect(hDC:HDC; var lprc:RECT; hbr:HBRUSH):Integer; external 'user32' name 'FrameRect';
  880. function FrameRgn(_para1:HDC; _para2:HRGN; _para3:HBRUSH; _para4:Integer; _para5:Integer):WINBOOL; external 'gdi32' name 'FrameRgn';
  881. function FreeConsole:WINBOOL; external 'kernel32' name 'FreeConsole';
  882. function FreeResource(hResData:HGLOBAL):WINBOOL; external 'kernel32' name 'FreeResource';
  883. function FreeSid(pSid:PSID):PVOID; external 'advapi32' name 'FreeSid';
  884. function GdiComment(_para1:HDC; _para2:UINT; var _para3:BYTE):WINBOOL; external 'gdi32' name 'GdiComment';
  885. function GdiFlush:WINBOOL; external 'gdi32' name 'GdiFlush';
  886. function GdiGetBatchLimit:DWORD; external 'gdi32' name 'GdiGetBatchLimit';
  887. function GdiSetBatchLimit(_para1:DWORD):DWORD; external 'gdi32' name 'GdiSetBatchLimit';
  888. function GenerateConsoleCtrlEvent(dwCtrlEvent:DWORD; dwProcessGroupId:DWORD):WINBOOL; external 'kernel32' name 'GenerateConsoleCtrlEvent';
  889. function GetAce(pAcl:PACL; dwAceIndex:DWORD; var pAce:LPVOID):WINBOOL; external 'advapi32' name 'GetAce';
  890. function GetAclInformation(pAcl:PACL; pAclInformation:LPVOID; nAclInformationLength:DWORD; dwAclInformationClass:ACL_INFORMATION_CLASS):WINBOOL; external 'advapi32' name 'GetAclInformation';
  891. function GetAspectRatioFilterEx(_para1:HDC; _para2:LPSIZE):WINBOOL; external 'gdi32' name 'GetAspectRatioFilterEx';
  892. function GetArcDirection(_para1:HDC):Integer; external 'gdi32' name 'GetArcDirection';
  893. function GetBitmapBits(_para1:HBITMAP; _para2:LONG; _para3:LPVOID):LONG; external 'gdi32' name 'GetBitmapBits';
  894. function GetBitmapDimensionEx(_para1:HBITMAP; _para2:LPSIZE):WINBOOL; external 'gdi32' name 'GetBitmapDimensionEx';
  895. function GetBoundsRect(_para1:HDC; _para2:LPRECT; _para3:UINT):UINT; external 'gdi32' name 'GetBoundsRect';
  896. function GetBrushOrgEx(_para1:HDC; _para2:LPPOINT):WINBOOL; external 'gdi32' name 'GetBrushOrgEx';
  897. function GetClassWord(hWnd:HWND; nIndex:Integer):WORD; external 'user32' name 'GetClassWord';
  898. function GetClipboardViewer:HWND; external 'user32' name 'GetClipboardViewer';
  899. function GetColorAdjustment(_para1:HDC; _para2:LPCOLORADJUSTMENT):WINBOOL; external 'gdi32' name 'GetColorAdjustment';
  900. function GetColorSpace(_para1:HDC):HANDLE; external 'gdi32' name 'GetColorSpace';
  901. function GetCommConfig(hCommDev:HANDLE; lpCC:LPCOMMCONFIG; lpdwSize:LPDWORD):WINBOOL; external 'kernel32' name 'GetCommConfig';
  902. function GetConsoleCP:UINT; external 'kernel32' name 'GetConsoleCP';
  903. function GetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'GetConsoleCursorInfo';
  904. function GetConsoleMode(hConsoleHandle:HANDLE; lpMode:LPDWORD):WINBOOL; external 'kernel32' name 'GetConsoleMode';
  905. function GetConsoleOutputCP:UINT; external 'kernel32' name 'GetConsoleOutputCP';
  906. function GetConsoleScreenBufferInfo(hConsoleOutput:HANDLE; lpConsoleScreenBufferInfo:PCONSOLE_SCREEN_BUFFER_INFO):WINBOOL; external 'kernel32' name 'GetConsoleScreenBufferInfo';
  907. function GetCurrentProcess:HANDLE; external 'kernel32' name 'GetCurrentProcess';
  908. function GetCurrentProcessId:DWORD; external 'kernel32' name 'GetCurrentProcessId';
  909. function GetCurrentThread:HANDLE; external 'kernel32' name 'GetCurrentThread';
  910. function GetCurrentThreadId:DWORD; external 'kernel32' name 'GetCurrentThreadId';
  911. function GetDCOrgEx(_para1:HDC; _para2:LPPOINT):WINBOOL; external 'gdi32' name 'GetDCOrgEx';
  912. function GetDeviceGammaRamp(_para1:HDC; _para2:LPVOID):WINBOOL; external 'gdi32' name 'GetDeviceGammaRamp';
  913. function GetDIBits(_para1:HDC; _para2:HBITMAP; _para3:UINT; _para4:UINT; _para5:LPVOID;_para6:LPBITMAPINFO; _para7:UINT):Integer; external 'gdi32' name 'GetDIBits';
  914. procedure GetEffectiveClientRect(hWnd:HWND; lprc:LPRECT; lpInfo:LPINT); external 'comctl32' name 'GetEffectiveClientRect';
  915. function GetEnhMetaFileHeader(_para1:HENHMETAFILE; _para2:UINT; _para3:LPENHMETAHEADER):UINT; external 'gdi32' name 'GetEnhMetaFileHeader';
  916. function GetEnhMetaFilePaletteEntries(_para1:HENHMETAFILE; _para2:UINT; _para3:LPPALETTEENTRY):UINT; external 'gdi32' name 'GetEnhMetaFilePaletteEntries';
  917. function GetFileType(hFile:HANDLE):DWORD; external 'kernel32' name 'GetFileType';
  918. function GetFontData(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:LPVOID; _para5:DWORD):DWORD; external 'gdi32' name 'GetFontData';
  919. function GetFontLanguageInfo(_para1:HDC):DWORD; external 'gdi32' name 'GetFontLanguageInfo';
  920. function GetGraphicsMode(_para1:HDC):Integer; external 'gdi32' name 'GetGraphicsMode';
  921. function GetHandleInformation(hObject:HANDLE; lpdwFlags:LPDWORD):WINBOOL; external 'kernel32' name 'GetHandleInformation';
  922. function GetIconInfo(hIcon:HICON; piconinfo:PICONINFO):WINBOOL; external 'user32' name 'GetIconInfo';
  923. function GetInputState:WINBOOL; external 'user32' name 'GetInputState';
  924. function GetKeyboardState(lpKeyState:PBYTE):WINBOOL; external 'user32' name 'GetKeyboardState';
  925. function GetKBCodePage:UINT; external 'user32' name 'GetKBCodePage';
  926. function GetKernelObjectSecurity(Handle:HANDLE; RequestedInformation:SECURITY_INFORMATION; pSecurityDescriptor:PSECURITY_DESCRIPTOR; nLength:DWORD; lpnLengthNeeded:LPDWORD):WINBOOL; external 'advapi32' name 'GetKernelObjectSecurity';
  927. //redirected to internal_GetLargestConsoleWindowSize
  928. function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD;
  929. function GetLastActivePopup(hWnd:HWND):HWND; external 'user32' name 'GetLastActivePopup';
  930. function GetLengthSid(pSid:PSID):DWORD; external 'advapi32' name 'GetLengthSid';
  931. function GetLogicalDrives:DWORD; external 'kernel32' name 'GetLogicalDrives';
  932. function GetMailslotInfo(hMailslot:HANDLE; lpMaxMessageSize:LPDWORD; lpNextSize:LPDWORD; lpMessageCount:LPDWORD; lpReadTimeout:LPDWORD):WINBOOL; external 'kernel32' name 'GetMailslotInfo';
  933. function GetMapMode(_para1:HDC):Integer; external 'gdi32' name 'GetMapMode';
  934. function GetMenu(hWnd:HWND):HMENU; external 'user32' name 'GetMenu';
  935. function GetMenuCheckMarkDimensions:LONG; external 'user32' name 'GetMenuCheckMarkDimensions';
  936. function GetMenuContextHelpId(_para1:HMENU):DWORD; external 'user32' name 'GetMenuContextHelpId';
  937. function GetMenuDefaultItem(hMenu:HMENU; fByPos:UINT; gmdiFlags:UINT):UINT; external 'user32' name 'GetMenuDefaultItem';
  938. function GetMenuItemID(hMenu:HMENU; nPos:Integer):UINT; external 'user32' name 'GetMenuItemID';
  939. function GetMenuItemCount(hMenu:HMENU):Integer; external 'user32' name 'GetMenuItemCount';
  940. function GetMenuItemRect(hWnd:HWND; hMenu:HMENU; uItem:UINT; lprcItem:LPRECT):WINBOOL; external 'user32' name 'GetMenuItemRect';
  941. function GetMenuState(hMenu:HMENU; uId:UINT; uFlags:UINT):UINT; external 'user32' name 'GetMenuState';
  942. function GetMetaFileBitsEx(_para1:HMETAFILE; _para2:UINT; _para3:LPVOID):UINT; external 'gdi32' name 'GetMetaFileBitsEx';
  943. function GetMetaRgn(_para1:HDC; _para2:HRGN):Integer; external 'gdi32' name 'GetMetaRgn';
  944. function GetMessageExtraInfo:LONG; external 'user32' name 'GetMessageExtraInfo';
  945. function GetMessageTime:LONG; external 'user32' name 'GetMessageTime';
  946. function GetMiterLimit(_para1:HDC; _para2:PSingle):WINBOOL; external 'gdi32' name 'GetMiterLimit';
  947. function GetNamedPipeInfo(hNamedPipe:HANDLE; lpFlags:LPDWORD; lpOutBufferSize:LPDWORD; lpInBufferSize:LPDWORD; lpMaxInstances:LPDWORD):WINBOOL; external 'kernel32' name 'GetNamedPipeInfo';
  948. function GetNextWindow(hWnd:HWND; uCmd:UINT):HWND; external 'user32' name 'GetNextWindow';
  949. function GetNumberOfConsoleInputEvents(hConsoleInput:HANDLE; lpNumberOfEvents:PDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleInputEvents';
  950. function GetNumberOfConsoleMouseButtons(lpNumberOfMouseButtons:LPDWORD):WINBOOL; external 'kernel32' name 'GetNumberOfConsoleMouseButtons';
  951. function GetNumberOfEventLogRecords(hEventLog:HANDLE; NumberOfRecords:PDWORD):WINBOOL; external 'advapi32' name 'GetNumberOfEventLogRecords';
  952. function GetOldestEventLogRecord(hEventLog:HANDLE; OldestRecord:PDWORD):WINBOOL; external 'advapi32' name 'GetOldestEventLogRecord';
  953. function GetPath(_para1:HDC; _para2:LPPOINT; _para3:LPBYTE; _para4:Integer):Integer; external 'gdi32' name 'GetPath';
  954. function GetPixelFormat(_para1:HDC):Integer; external 'gdi32' name 'GetPixelFormat';
  955. function GetPolyFillMode(_para1:HDC):Integer; external 'gdi32' name 'GetPolyFillMode';
  956. function GetPriorityClass(hProcess:HANDLE):DWORD; external 'kernel32' name 'GetPriorityClass';
  957. function GetPrivateObjectSecurity(ObjectDescriptor:PSECURITY_DESCRIPTOR; SecurityInformation:SECURITY_INFORMATION; ResultantDescriptor:PSECURITY_DESCRIPTOR;
  958. DescriptorLength:DWORD; ReturnLength:PDWORD):WINBOOL;external 'advapi32' name 'GetPrivateObjectSecurity';
  959. function GetProcAddress(hModule:HINST; lpProcName:LPCSTR):FARPROC; external 'kernel32' name 'GetProcAddress';
  960. function GetProcessAffinityMask(hProcess:HANDLE; lpProcessAffinityMask:LPDWORD; lpSystemAffinityMask:LPDWORD):WINBOOL; external 'kernel32' name 'GetProcessAffinityMask';
  961. function GetProcessShutdownParameters(lpdwLevel:LPDWORD; lpdwFlags:LPDWORD):WINBOOL; external 'kernel32' name 'GetProcessShutdownParameters';
  962. function GetProcessHeaps(NumberOfHeaps:DWORD; ProcessHeaps:PHANDLE):DWORD; external 'kernel32' name 'GetProcessHeaps';
  963. function GetProcessTimes(hProcess:HANDLE; lpCreationTime:LPFILETIME; lpExitTime:LPFILETIME; lpKernelTime:LPFILETIME; lpUserTime:LPFILETIME):WINBOOL; external 'kernel32' name 'GetProcessTimes';
  964. function GetProcessWindowStation:HWINSTA; external 'user32' name 'GetProcessWindowStation';
  965. function GetProcessWorkingSetSize(hProcess:HANDLE; lpMinimumWorkingSetSize:LPDWORD; lpMaximumWorkingSetSize:LPDWORD):WINBOOL; external 'kernel32' name 'GetProcessWorkingSetSize';
  966. function GetRasterizerCaps(_para1:LPRASTERIZER_STATUS; _para2:UINT):WINBOOL; external 'gdi32' name 'GetRasterizerCaps';
  967. function GetROP2(_para1:HDC):Integer; external 'gdi32' name 'GetROP2';
  968. function GetScrollPos(hWnd:HWND; nBar:Integer):Integer; external 'user32' name 'GetScrollPos';
  969. function GetScrollRange(hWnd:HWND; nBar:Integer; lpMinPos:LPINT; lpMaxPos:LPINT):WINBOOL; external 'user32' name 'GetScrollRange';
  970. function GetSecurityDescriptorControl(pSecurityDescriptor:PSECURITY_DESCRIPTOR; pControl:PSECURITY_DESCRIPTOR_CONTROL; lpdwRevision:LPDWORD):WINBOOL; external 'advapi32' name 'GetSecurityDescriptorControl';
  971. function GetSecurityDescriptorDacl(pSecurityDescriptor:PSECURITY_DESCRIPTOR; lpbDaclPresent:LPBOOL; var pDacl:PACL; lpbDaclDefaulted:LPBOOL):WINBOOL; external 'advapi32' name 'GetSecurityDescriptorDacl';
  972. function GetSecurityDescriptorGroup(pSecurityDescriptor:PSECURITY_DESCRIPTOR; var pGroup:PSID; lpbGroupDefaulted:LPBOOL):WINBOOL; external 'advapi32' name 'GetSecurityDescriptorGroup';
  973. function GetSecurityDescriptorLength(pSecurityDescriptor:PSECURITY_DESCRIPTOR):DWORD; external 'advapi32' name 'GetSecurityDescriptorLength';
  974. function GetSecurityDescriptorOwner(pSecurityDescriptor:PSECURITY_DESCRIPTOR; var pOwner:PSID; lpbOwnerDefaulted:LPBOOL):WINBOOL; external 'advapi32' name 'GetSecurityDescriptorOwner';
  975. function GetSecurityDescriptorSacl(pSecurityDescriptor:PSECURITY_DESCRIPTOR; lpbSaclPresent:LPBOOL; var pSacl:PACL; lpbSaclDefaulted:LPBOOL):WINBOOL; external 'advapi32' name 'GetSecurityDescriptorSacl';
  976. function GetSidIdentifierAuthority(pSid:PSID):PSID_IDENTIFIER_AUTHORITY; external 'advapi32' name 'GetSidIdentifierAuthority';
  977. function GetSidLengthRequired(nSubAuthorityCount:UCHAR):DWORD; external 'advapi32' name 'GetSidLengthRequired';
  978. function GetSidSubAuthority(pSid:PSID; nSubAuthority:DWORD):PDWORD; external 'advapi32' name 'GetSidSubAuthority';
  979. function GetSidSubAuthorityCount(pSid:PSID):PUCHAR; external 'advapi32' name 'GetSidSubAuthorityCount';
  980. function GetStdHandle(nStdHandle:DWORD):HANDLE; external 'kernel32' name 'GetStdHandle';
  981. function GetStretchBltMode(_para1:HDC):Integer; external 'gdi32' name 'GetStretchBltMode';
  982. function GetSystemPaletteUse(_para1:HDC):UINT; external 'gdi32' name 'GetSystemPaletteUse';
  983. function GetSystemMenu(hWnd:HWND; bRevert:WINBOOL):HMENU; external 'user32' name 'GetSystemMenu';
  984. function GetSystemTimeAdjustment(lpTimeAdjustment:PDWORD; lpTimeIncrement:PDWORD; lpTimeAdjustmentDisabled:PWINBOOL):WINBOOL; external 'kernel32' name 'GetSystemTimeAdjustment';
  985. procedure GetSystemTimeAsFileTime(lpSystemTimeAsFileTime:LPFILETIME); external 'kernel32' name 'GetSystemTimeAsFileTime';
  986. function GetTextCharacterExtra(_para1:HDC):Integer; external 'gdi32' name 'GetTextCharacterExtra';
  987. function GetTextCharset(hdc:HDC):Integer; external 'gdi32' name 'GetTextCharset';
  988. function GetTextCharsetInfo(hdc:HDC; lpSig:LPFONTSIGNATURE; dwFlags:DWORD):Integer; external 'gdi32' name 'GetTextCharsetInfo';
  989. function GetThreadLocale:LCID; external 'kernel32' name 'GetThreadLocale';
  990. function GetTopWindow(hWnd:HWND):HWND; external 'user32' name 'GetTopWindow';
  991. function GetTapeParameters(hDevice:HANDLE; dwOperation:DWORD; lpdwSize:LPDWORD; lpTapeInformation:LPVOID):DWORD; external 'kernel32' name 'GetTapeParameters';
  992. function GetTapePosition(hDevice:HANDLE; dwPositionType:DWORD; lpdwPartition:LPDWORD; lpdwOffsetLow:LPDWORD; lpdwOffsetHigh:LPDWORD):DWORD; external 'kernel32' name 'GetTapePosition';
  993. function GetTapeStatus(hDevice:HANDLE):DWORD; external 'kernel32' name 'GetTapeStatus';
  994. function GetThreadDesktop(dwThreadId:DWORD):HDESK; external 'user32' name 'GetThreadDesktop';
  995. {$ifdef LPLDT_ENTRY}
  996. function GetThreadSelectorEntry(hThread:HANDLE; dwSelector:DWORD; lpSelectorEntry:LPLDT_ENTRY):WINBOOL; external 'kernel32' name 'GetThreadSelectorEntry';
  997. {$endif LPLDT_ENTRY}
  998. function GetTokenInformation(TokenHandle:HANDLE; TokenInformationClass:TOKEN_INFORMATION_CLASS; TokenInformation:LPVOID; TokenInformationLength:DWORD; ReturnLength:PDWORD):WINBOOL; external 'advapi32' name 'GetTokenInformation';
  999. function GetUserObjectSecurity(hObj:HANDLE; pSIRequested:PSECURITY_INFORMATION; pSID:PSECURITY_DESCRIPTOR; nLength:DWORD; lpnLengthNeeded:LPDWORD):WINBOOL; external 'user32' name 'GetUserObjectSecurity';
  1000. function GetVersion:DWORD; external 'kernel32' name 'GetVersion';
  1001. function GetViewportExtEx(_para1:HDC; _para2:LPSIZE):WINBOOL; external 'gdi32' name 'GetViewportExtEx';
  1002. function GetViewportOrgEx(_para1:HDC; _para2:LPPOINT):WINBOOL; external 'gdi32' name 'GetViewportOrgEx';
  1003. function GetWorldTransform(_para1:HDC; _para2:LPXFORM):WINBOOL; external 'gdi32' name 'GetWorldTransform';
  1004. function GetWindowContextHelpId(_para1:HWND):DWORD; external 'user32' name 'GetWindowContextHelpId';
  1005. function GetWindowExtEx(_para1:HDC; _para2:LPSIZE):WINBOOL; external 'gdi32' name 'GetWindowExtEx';
  1006. function GetWindowOrgEx(_para1:HDC; _para2:LPPOINT):WINBOOL; external 'gdi32' name 'GetWindowOrgEx';
  1007. function GetWindowPlacement(hWnd:HWND; var lpwndpl:WINDOWPLACEMENT):WINBOOL; external 'user32' name 'GetWindowPlacement';
  1008. function GetWindowPlacement(hWnd:HWND; lpwndpl:PWINDOWPLACEMENT):WINBOOL; external 'user32' name 'GetWindowPlacement';
  1009. function GetWindowWord(hWnd:HWND; nIndex:Integer):WORD; external 'user32' name 'GetWindowWord';
  1010. function GetWinMetaFileBits(_para1:HENHMETAFILE; _para2:UINT; _para3:LPBYTE; _para4:wINT; _para5:HDC):UINT; external 'gdi32' name 'GetWinMetaFileBits';
  1011. function GlobalAlloc(uFlags:UINT; dwBytes:DWORD):HGLOBAL; external 'kernel32' name 'GlobalAlloc';
  1012. function GlobalCompact(dwMinFree:DWORD):UINT; external 'kernel32' name 'GlobalCompact';
  1013. procedure GlobalFix(hMem:HGLOBAL); external 'kernel32' name 'GlobalFix';
  1014. function GlobalFlags(hMem:HGLOBAL):UINT; external 'kernel32' name 'GlobalFlags';
  1015. function GlobalFree(hMem:HGLOBAL):HGLOBAL; external 'kernel32' name 'GlobalFree';
  1016. function GlobalHandle(pMem:LPCVOID):HGLOBAL; external 'kernel32' name 'GlobalHandle';
  1017. function GlobalLock(hMem:HGLOBAL):LPVOID; external 'kernel32' name 'GlobalLock';
  1018. function GlobalReAlloc(hMem:HGLOBAL; dwBytes:DWORD; uFlags:UINT):HGLOBAL; external 'kernel32' name 'GlobalReAlloc';
  1019. function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
  1020. function GlobalSize(hMem:HGLOBAL):DWORD; external 'kernel32' name 'GlobalSize';
  1021. procedure GlobalUnfix(hMem:HGLOBAL); external 'kernel32' name 'GlobalUnfix';
  1022. function GlobalUnlock(hMem:HGLOBAL):WINBOOL; external 'kernel32' name 'GlobalUnlock';
  1023. function GlobalUnWire(hMem:HGLOBAL):WINBOOL; external 'kernel32' name 'GlobalUnWire';
  1024. function GlobalWire(hMem:HGLOBAL):LPVOID; external 'kernel32' name 'GlobalWire';
  1025. function HeapCompact(hHeap:HANDLE; dwFlags:DWORD):UINT; external 'kernel32' name 'HeapCompact';
  1026. function HeapLock(hHeap:HANDLE):WINBOOL; external 'kernel32' name 'HeapLock';
  1027. function HeapUnlock(hHeap:HANDLE):WINBOOL; external 'kernel32' name 'HeapUnlock';
  1028. function HeapWalk(hHeap:HANDLE; lpEntry:LPPROCESS_HEAP_ENTRY):WINBOOL; external 'kernel32' name 'HeapWalk';
  1029. function HiliteMenuItem(hWnd:HWND; hMenu:HMENU; uIDHiliteItem:UINT; uHilite:UINT):WINBOOL; external 'user32' name 'HiliteMenuItem';
  1030. function ImpersonateNamedPipeClient(hNamedPipe:HANDLE):WINBOOL; external 'advapi32' name 'ImpersonateNamedPipeClient';
  1031. function ImpersonateLoggedOnUser(hToken:HANDLE):WINBOOL; external 'advapi32' name 'ImpersonateLoggedOnUser';
  1032. function ImpersonateSelf(ImpersonationLevel:SECURITY_IMPERSONATION_LEVEL):WINBOOL; external 'advapi32' name 'ImpersonateSelf';
  1033. function InitAtomTable(nSize:DWORD):WINBOOL; external 'kernel32' name 'InitAtomTable';
  1034. function InitializeAcl(pAcl:PACL; nAclLength:DWORD; dwAclRevision:DWORD):WINBOOL; external 'advapi32' name 'InitializeAcl';
  1035. function InitializeSecurityDescriptor(pSecurityDescriptor:PSECURITY_DESCRIPTOR; dwRevision:DWORD):WINBOOL; external 'advapi32' name 'InitializeSecurityDescriptor';
  1036. function InitializeSid(Sid:PSID; pIdentifierAuthority:PSID_IDENTIFIER_AUTHORITY; nSubAuthorityCount:BYTE):WINBOOL; external 'advapi32' name 'InitializeSid';
  1037. function InvertRgn(_para1:HDC; _para2:HRGN):WINBOOL; external 'gdi32' name 'InvertRgn';
  1038. function IsBadHugeReadPtr(lp:pointer; ucb:UINT):WINBOOL; external 'kernel32' name 'IsBadHugeReadPtr';
  1039. function IsBadHugeWritePtr(lp:LPVOID; ucb:UINT):WINBOOL; external 'kernel32' name 'IsBadHugeWritePtr';
  1040. function IsDlgButtonChecked(hDlg:HWND; nIDButton:Integer):UINT; external 'user32' name 'IsDlgButtonChecked';
  1041. function IsIconic(hWnd:HWND):WINBOOL; external 'user32' name 'IsIconic';
  1042. function IsMenu(hMenu:HMENU):WINBOOL; external 'user32' name 'IsMenu';
  1043. function IsTextUnicode(lpBuffer:LPVOID; cb:Integer; lpi:LPINT):WINBOOL; external 'advapi32' name 'IsTextUnicode';
  1044. function IsValidAcl(pAcl:PACL):WINBOOL; external 'advapi32' name 'IsValidAcl';
  1045. function IsValidSecurityDescriptor(pSecurityDescriptor:PSECURITY_DESCRIPTOR):WINBOOL; external 'advapi32' name 'IsValidSecurityDescriptor';
  1046. function IsValidSid(pSid:PSID):WINBOOL; external 'advapi32' name 'IsValidSid';
  1047. function IsWindowUnicode(hWnd:HWND):WINBOOL; external 'user32' name 'IsWindowUnicode';
  1048. function IsZoomed(hWnd:HWND):WINBOOL; external 'user32' name 'IsZoomed';
  1049. function LBItemFromPt(hLB:HWND; pt:POINT; bAutoScroll:WINBOOL):Integer; { external 'comctl32' name 'LBItemFromPt';}
  1050. function LineDDA(_para1:Integer; _para2:Integer; _para3:Integer; _para4:Integer; _para5:LINEDDAPROC;_para6:LPARAM):WINBOOL; external 'gdi32' name 'LineDDA';
  1051. function LoadModule(lpModuleName:LPCSTR; lpParameterBlock:LPVOID):DWORD; external 'kernel32' name 'LoadModule';
  1052. function LocalCompact(uMinFree:UINT):UINT; external 'kernel32' name 'LocalCompact';
  1053. function LocalFlags(hMem:HLOCAL):UINT; external 'kernel32' name 'LocalFlags';
  1054. function LocalHandle(pMem:LPCVOID):HLOCAL; external 'kernel32' name 'LocalHandle';
  1055. function LocalLock(hMem:HLOCAL):LPVOID; external 'kernel32' name 'LocalLock';
  1056. function LocalShrink(hMem:HLOCAL; cbNewSize:UINT):UINT; external 'kernel32' name 'LocalShrink';
  1057. function LocalUnlock(hMem:HLOCAL):WINBOOL; external 'kernel32' name 'LocalUnlock';
  1058. function LockFile(hFile:HANDLE; dwFileOffsetLow:DWORD; dwFileOffsetHigh:DWORD; nNumberOfBytesToLockLow:DWORD; nNumberOfBytesToLockHigh:DWORD):WINBOOL; external 'kernel32' name 'LockFile';
  1059. function LockFileEx(hFile:HANDLE; dwFlags:DWORD; dwReserved:DWORD; nNumberOfBytesToLockLow:DWORD; nNumberOfBytesToLockHigh:DWORD;lpOverlapped:LPOVERLAPPED):WINBOOL; external 'kernel32' name 'LockFileEx';
  1060. function LockResource(hResData:HGLOBAL):LPVOID; external 'kernel32' name 'LockResource';
  1061. function LockServiceDatabase(hSCManager:SC_HANDLE):SC_LOCK; external 'advapi32' name 'LockServiceDatabase';
  1062. function LockWindowUpdate(hWndLock:HWND):WINBOOL; external 'user32' name 'LockWindowUpdate';
  1063. function LookupIconIdFromDirectory(presbits:PBYTE; fIcon:WINBOOL):Integer; external 'user32' name 'LookupIconIdFromDirectory';
  1064. function LookupIconIdFromDirectoryEx(presbits:PBYTE; fIcon:WINBOOL; cxDesired:Integer; cyDesired:Integer; Flags:UINT):Integer; external 'user32' name 'LookupIconIdFromDirectoryEx';
  1065. function LPtoDP(_para1:HDC; _para2:LPPOINT; _para3:Integer):WINBOOL; external 'gdi32' name 'LPtoDP';
  1066. function MakeAbsoluteSD(pSelfRelativeSecurityDescriptor:PSECURITY_DESCRIPTOR; pAbsoluteSecurityDescriptor:PSECURITY_DESCRIPTOR; lpdwAbsoluteSecurityDescriptorSize:LPDWORD; pDacl:PACL; lpdwDaclSize:LPDWORD;pSacl:PACL;
  1067. lpdwSaclSize:LPDWORD; pOwner:PSID; lpdwOwnerSize:LPDWORD; pPrimaryGroup:PSID;lpdwPrimaryGroupSize:LPDWORD):WINBOOL; external 'advapi32' name 'MakeAbsoluteSD';
  1068. function MakeDragList(hLB:HWND):WINBOOL; external 'comctl32' name 'MakeDragList';
  1069. function MakeSelfRelativeSD(pAbsoluteSecurityDescriptor:PSECURITY_DESCRIPTOR; pSelfRelativeSecurityDescriptor:PSECURITY_DESCRIPTOR; lpdwBufferLength:LPDWORD):WINBOOL; external 'advapi32' name 'MakeSelfRelativeSD';
  1070. procedure MapGenericMask(AccessMask:PDWORD; GenericMapping:PGENERIC_MAPPING); external 'advapi32' name 'MapGenericMask';
  1071. function MapViewOfFile(hFileMappingObject:HANDLE; dwDesiredAccess:DWORD; dwFileOffsetHigh:DWORD; dwFileOffsetLow:DWORD; dwNumberOfBytesToMap:DWORD):LPVOID; external 'kernel32' name 'MapViewOfFile';
  1072. function MapViewOfFileEx(hFileMappingObject:HANDLE; dwDesiredAccess:DWORD; dwFileOffsetHigh:DWORD; dwFileOffsetLow:DWORD; dwNumberOfBytesToMap:DWORD;lpBaseAddress:LPVOID):LPVOID; external 'kernel32' name 'MapViewOfFileEx';
  1073. procedure MenuHelp(uMsg:UINT; wParam:WPARAM; lParam:LPARAM; hMainMenu:HMENU; hInst:HINST;hwndStatus:HWND; var lpwIDs:UINT); external 'comctl32' name 'MenuHelp';
  1074. function MenuItemFromPoint(hWnd:HWND; hMenu:HMENU; ptScreen:POINT):Integer; {external 'user32' name 'MenuItemFromPoint';bug 1807 }
  1075. function ModifyWorldTransform(_para1:HDC; var _para2:XFORM; _para3:DWORD):WINBOOL; external 'gdi32' name 'ModifyWorldTransform';
  1076. function MsgWaitForMultipleObjects(nCount:DWORD; pHandles:LPHANDLE; fWaitAll:WINBOOL; dwMilliseconds:DWORD; dwWakeMask:DWORD):DWORD; external 'user32' name 'MsgWaitForMultipleObjects';
  1077. function MulDiv(nNumber:Integer; nNumerator:Integer; nDenominator:Integer):Integer; external 'kernel32' name 'MulDiv';
  1078. function NotifyBootConfigStatus(BootAcceptable:WINBOOL):WINBOOL; external 'advapi32' name 'NotifyBootConfigStatus';
  1079. function NotifyChangeEventLog(hEventLog:HANDLE; hEvent:HANDLE):WINBOOL; external 'advapi32' name 'NotifyChangeEventLog';
  1080. function OemKeyScan(wOemChar:WORD):DWORD; external 'user32' name 'OemKeyScan';
  1081. function OffsetClipRgn(_para1:HDC; _para2:Integer; _para3:Integer):Integer; external 'gdi32' name 'OffsetClipRgn';
  1082. function OffsetViewportOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external 'gdi32' name 'OffsetViewportOrgEx';
  1083. function OffsetWindowOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external 'gdi32' name 'OffsetWindowOrgEx';
  1084. function OpenFile(lpFileName:LPCSTR; lpReOpenBuff:LPOFSTRUCT; uStyle:UINT):HFILE; external 'kernel32' name 'OpenFile';
  1085. function OpenIcon(hWnd:HWND):WINBOOL; external 'user32' name 'OpenIcon';
  1086. function OpenInputDesktop(dwFlags:DWORD; fInherit:WINBOOL; dwDesiredAccess:DWORD):HDESK; external 'user32' name 'OpenInputDesktop';
  1087. function OpenProcessToken(ProcessHandle:HANDLE; DesiredAccess:DWORD; TokenHandle:PHANDLE):WINBOOL; external 'advapi32' name 'OpenProcessToken';
  1088. function OpenThreadToken(ThreadHandle:HANDLE; DesiredAccess:DWORD; OpenAsSelf:WINBOOL; TokenHandle:PHANDLE):WINBOOL; external 'advapi32' name 'OpenThreadToken';
  1089. function PaintDesktop(hdc:HDC):WINBOOL; external 'user32' name 'PaintDesktop';
  1090. function PaintRgn(_para1:HDC; _para2:HRGN):WINBOOL; external 'gdi32' name 'PaintRgn';
  1091. function PathToRegion(_para1:HDC):HRGN; external 'gdi32' name 'PathToRegion';
  1092. function PeekNamedPipe(hNamedPipe:HANDLE; lpBuffer:LPVOID; nBufferSize:DWORD; lpBytesRead:LPDWORD; lpTotalBytesAvail:LPDWORD;lpBytesLeftThisMessage:LPDWORD):WINBOOL; external 'kernel32' name 'PeekNamedPipe';
  1093. function Pie(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:Integer; _para9:Integer):WINBOOL; external 'gdi32' name 'Pie';
  1094. function PlayEnhMetaFileRecord(_para1:HDC; _para2:LPHANDLETABLE; var _para3:ENHMETARECORD; _para4:UINT):WINBOOL; external 'gdi32' name 'PlayEnhMetaFileRecord';
  1095. function PlayMetaFile(_para1:HDC; _para2:HMETAFILE):WINBOOL; external 'gdi32' name 'PlayMetaFile';
  1096. function PlayMetaFileRecord(_para1:HDC; _para2:LPHANDLETABLE; _para3:LPMETARECORD; _para4:UINT):WINBOOL; external 'gdi32' name 'PlayMetaFileRecord';
  1097. function PlgBlt(_para1:HDC; var _para2:POINT; _para3:HDC; _para4:Integer; _para5:Integer;_para6:Integer; _para7:Integer; _para8:HBITMAP; _para9:Integer; _para10:Integer):WINBOOL; external 'gdi32' name 'PlgBlt';
  1098. function PolyBezier(_para1:HDC; _para2:LPPOINT; _para3:DWORD):WINBOOL; external 'gdi32' name 'PolyBezier';
  1099. function PolyBezierTo(_para1:HDC; _para2:POINT; _para3:DWORD):WINBOOL; external 'gdi32' name 'PolyBezierTo';
  1100. function PolyDraw(_para1:HDC; var _para2:POINT; var _para3:BYTE; _para4:Integer):WINBOOL; external 'gdi32' name 'PolyDraw';
  1101. function PolyPolygon(_para1:HDC; var _para2:POINT; var _para3:wINT; _para4:Integer):WINBOOL; external 'gdi32' name 'PolyPolygon';
  1102. function PolyPolyline(_para1:HDC; var _para2:POINT; var _para3:DWORD; _para4:DWORD):WINBOOL; external 'gdi32' name 'PolyPolyline';
  1103. function PolylineTo(_para1:HDC; _para2:LPPOINT; _para3:DWORD):WINBOOL; external 'gdi32' name 'PolylineTo';
  1104. function PrepareTape(hDevice:HANDLE; dwOperation:DWORD; bImmediate:WINBOOL):DWORD; external 'kernel32' name 'PrepareTape';
  1105. function PrivilegeCheck(ClientToken:HANDLE; RequiredPrivileges:PPRIVILEGE_SET; pfResult:LPBOOL):WINBOOL; external 'advapi32' name 'PrivilegeCheck';
  1106. function PtInRect(var lprc:RECT; pt:POINT):WINBOOL; {external 'user32' name 'PtInRect';bug 1807 }
  1107. function PtInRect(lprc:LPRECT; pt:POINT):WINBOOL;
  1108. function PtVisible(_para1:HDC; _para2:Integer; _para3:Integer):WINBOOL; external 'gdi32' name 'PtVisible';
  1109. function QueryServiceObjectSecurity(hService:SC_HANDLE; dwSecurityInformation:SECURITY_INFORMATION; lpSecurityDescriptor:PSECURITY_DESCRIPTOR; cbBufSize:DWORD; pcbBytesNeeded:LPDWORD):WINBOOL;external 'advapi32' name 'QueryServiceObjectSecurity';
  1110. function QueryServiceStatus(hService:SC_HANDLE; lpServiceStatus:LPSERVICE_STATUS):WINBOOL; external 'advapi32' name 'QueryServiceStatus';
  1111. function ReadConsoleOutputAttribute(hConsoleOutput:HANDLE; lpAttribute:LPWORD; nLength:DWORD; dwReadCoord:COORD; lpNumberOfAttrsRead:LPDWORD):WINBOOL; external 'kernel32' name 'ReadConsoleOutputAttribute';
  1112. function ReadFileEx(hFile:HANDLE; lpBuffer:LPVOID; nNumberOfBytesToRead:DWORD; lpOverlapped:LPOVERLAPPED; lpCompletionRoutine:LPOVERLAPPED_COMPLETION_ROUTINE):WINBOOL; external 'kernel32' name 'ReadFileEx';
  1113. function RegSetKeySecurity(hKey:HKEY; SecurityInformation:SECURITY_INFORMATION; pSecurityDescriptor:PSECURITY_DESCRIPTOR):LONG; external 'advapi32' name 'RegSetKeySecurity';
  1114. function RegGetKeySecurity(hKey:HKEY; SecurityInformation:SECURITY_INFORMATION; pSecurityDescriptor:PSECURITY_DESCRIPTOR; lpcbSecurityDescriptor:LPDWORD):LONG; external 'advapi32' name 'RegGetKeySecurity';
  1115. function RegNotifyChangeKeyValue(hKey:HKEY; bWatchSubtree:WINBOOL; dwNotifyFilter:DWORD; hEvent:HANDLE; fAsynchronus:WINBOOL):LONG; external 'advapi32' name 'RegNotifyChangeKeyValue';
  1116. function ReplyMessage(lResult:LRESULT):WINBOOL; external 'user32' name 'ReplyMessage';
  1117. function ResetEvent(hEvent:HANDLE):WINBOOL; external 'kernel32' name 'ResetEvent';
  1118. function ResizePalette(_para1:HPALETTE; _para2:UINT):WINBOOL; external 'gdi32' name 'ResizePalette';
  1119. function RevertToSelf:WINBOOL; external 'advapi32' name 'RevertToSelf';
  1120. function ScaleViewportExtEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:LPSIZE):WINBOOL; external 'gdi32' name 'ScaleViewportExtEx';
  1121. function ScaleWindowExtEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; _para5:Integer;_para6:LPSIZE):WINBOOL; external 'gdi32' name 'ScaleWindowExtEx';
  1122. function ScrollWindow(hWnd:HWND; XAmount:Integer; YAmount:Integer; var lpRect:RECT; var lpClipRect:RECT):WINBOOL; external 'user32' name 'ScrollWindow';
  1123. function SelectClipPath(_para1:HDC; _para2:Integer):WINBOOL; external 'gdi32' name 'SelectClipPath';
  1124. function SetAclInformation(pAcl:PACL; pAclInformation:LPVOID; nAclInformationLength:DWORD; dwAclInformationClass:ACL_INFORMATION_CLASS):WINBOOL; external 'advapi32' name 'SetAclInformation';
  1125. function SetArcDirection(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetArcDirection';
  1126. function SetBitmapDimensionEx(_para1:HBITMAP; _para2:Integer; _para3:Integer; _para4:LPSIZE):WINBOOL; external 'gdi32' name 'SetBitmapDimensionEx';
  1127. function SetBoundsRect(_para1:HDC; var _para2:RECT; _para3:UINT):UINT; external 'gdi32' name 'SetBoundsRect';
  1128. function SetClassWord(hWnd:HWND; nIndex:Integer; wNewWord:WORD):WORD; external 'user32' name 'SetClassWord';
  1129. function SetClipboardViewer(hWndNewViewer:HWND):HWND; external 'user32' name 'SetClipboardViewer';
  1130. function SetColorAdjustment(_para1:HDC; var _para2:COLORADJUSTMENT):WINBOOL; external 'gdi32' name 'SetColorAdjustment';
  1131. function SetColorSpace(_para1:HDC; _para2:HCOLORSPACE):WINBOOL; external 'gdi32' name 'SetColorSpace';
  1132. function SetCommConfig(hCommDev:HANDLE; lpCC:LPCOMMCONFIG; dwSize:DWORD):WINBOOL; external 'kernel32' name 'SetCommConfig';
  1133. function SetConsoleActiveScreenBuffer(hConsoleOutput:HANDLE):WINBOOL; external 'kernel32' name 'SetConsoleActiveScreenBuffer';
  1134. function SetConsoleCP(wCodePageID:UINT):WINBOOL; external 'kernel32' name 'SetConsoleCP';
  1135. function SetConsoleCtrlHandler(HandlerRoutine:PHANDLER_ROUTINE; Add:WINBOOL):WINBOOL; external 'kernel32' name 'SetConsoleCtrlHandler';
  1136. function SetConsoleCursorInfo(hConsoleOutput:HANDLE; lpConsoleCursorInfo:PCONSOLE_CURSOR_INFO):WINBOOL; external 'kernel32' name 'SetConsoleCursorInfo';
  1137. function SetConsoleCursorPosition(hConsoleOutput:HANDLE; dwCursorPosition:COORD):WINBOOL; external 'kernel32' name 'SetConsoleCursorPosition';
  1138. function SetConsoleOutputCP(wCodePageID:UINT):WINBOOL; external 'kernel32' name 'SetConsoleOutputCP';
  1139. function SetConsoleScreenBufferSize(hConsoleOutput:HANDLE; dwSize:COORD):WINBOOL; external 'kernel32' name 'SetConsoleScreenBufferSize';
  1140. function SetConsoleTextAttribute(hConsoleOutput:HANDLE; wAttributes:WORD):WINBOOL; external 'kernel32' name 'SetConsoleTextAttribute';
  1141. function SetConsoleMode(hConsoleHandle:HANDLE; dwMode:DWORD):WINBOOL; external 'kernel32' name 'SetConsoleMode';
  1142. function SetConsoleWindowInfo(hConsoleOutput:HANDLE; bAbsolute:WINBOOL; var lpConsoleWindow:SMALL_RECT):WINBOOL; external 'kernel32' name 'SetConsoleWindowInfo';
  1143. procedure SetDebugErrorLevel(dwLevel:DWORD); external 'user32' name 'SetDebugErrorLevel';
  1144. function SetDeviceGammaRamp(_para1:HDC; _para2:LPVOID):WINBOOL; external 'gdi32' name 'SetDeviceGammaRamp';
  1145. function SetDIBits(_para1:HDC; _para2:HBITMAP; _para3:UINT; _para4:UINT; _para5:pointer;_para6:PBITMAPINFO; _para7:UINT):Integer; external 'gdi32' name 'SetDIBits';
  1146. function SetICMMode(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetICMMode';
  1147. function SetDoubleClickTime(_para1:UINT):WINBOOL; external 'user32' name 'SetDoubleClickTime';
  1148. function SetEnhMetaFileBits(_para1:UINT; var _para2:BYTE):HENHMETAFILE; external 'gdi32' name 'SetEnhMetaFileBits';
  1149. function SetErrorMode(uMode:UINT):UINT; external 'kernel32' name 'SetErrorMode';
  1150. function SetEvent(hEvent:HANDLE):WINBOOL; external 'kernel32' name 'SetEvent';
  1151. procedure SetFileApisToOEM; external 'kernel32' name 'SetFileApisToOEM';
  1152. procedure SetFileApisToANSI; external 'kernel32' name 'SetFileApisToANSI';
  1153. function SetGraphicsMode(hdc:HDC; iMode:Integer):Integer; external 'gdi32' name 'SetGraphicsMode';
  1154. function SetHandleInformation(hObject:HANDLE; dwMask:DWORD; dwFlags:DWORD):WINBOOL; external 'kernel32' name 'SetHandleInformation';
  1155. function SetHandleCount(uNumber:UINT):UINT; external 'kernel32' name 'SetHandleCount';
  1156. function SetKernelObjectSecurity(Handle:HANDLE; SecurityInformation:SECURITY_INFORMATION; SecurityDescriptor:PSECURITY_DESCRIPTOR):WINBOOL; external 'advapi32' name 'SetKernelObjectSecurity';
  1157. function SetKeyboardState(lpKeyState:LPBYTE):WINBOOL; external 'user32' name 'SetKeyboardState';
  1158. procedure SetLastErrorEx(dwErrCode:DWORD; dwType:DWORD); external 'user32' name 'SetLastErrorEx';
  1159. function SetLayeredWindowAttributes(HWND:hwnd;crKey :COLORREF;bAlpha : byte;dwFlags : DWORD):WINBOOL; external 'user32' name 'SetLayeredWindowAttributes';
  1160. function SetMailslotInfo(hMailslot:HANDLE; lReadTimeout:DWORD):WINBOOL; external 'kernel32' name 'SetMailslotInfo';
  1161. function SetMapMode(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetMapMode';
  1162. function SetMapperFlags(_para1:HDC; _para2:DWORD):DWORD; external 'gdi32' name 'SetMapperFlags';
  1163. function SetMenu(hWnd:HWND; hMenu:HMENU):WINBOOL; external 'user32' name 'SetMenu';
  1164. function SetMenuContextHelpId(_para1:HMENU; _para2:DWORD):WINBOOL; external 'user32' name 'SetMenuContextHelpId';
  1165. function SetMenuDefaultItem(hMenu:HMENU; uItem:UINT; fByPos:UINT):WINBOOL; external 'user32' name 'SetMenuDefaultItem';
  1166. function SetMenuItemBitmaps(hMenu:HMENU; uPosition:UINT; uFlags:UINT; hBitmapUnchecked:HBITMAP; hBitmapChecked:HBITMAP):WINBOOL; external 'user32' name 'SetMenuItemBitmaps';
  1167. function SetMessageExtraInfo(lParam:LPARAM):LPARAM; external 'user32' name 'SetMessageExtraInfo';
  1168. function SetMessageQueue(cMessagesMax:Integer):WINBOOL; external 'user32' name 'SetMessageQueue';
  1169. function SetMetaRgn(_para1:HDC):Integer; external 'gdi32' name 'SetMetaRgn';
  1170. function SetMetaFileBitsEx(_para1:UINT; var _para2:BYTE):HMETAFILE; external 'gdi32' name 'SetMetaFileBitsEx';
  1171. function SetMiterLimit(_para1:HDC; _para2:Single; _para3:PSingle):WINBOOL; external 'gdi32' name 'SetMiterLimit';
  1172. function SetNamedPipeHandleState(hNamedPipe:HANDLE; lpMode:LPDWORD; lpMaxCollectionCount:LPDWORD; lpCollectDataTimeout:LPDWORD):WINBOOL; external 'kernel32' name 'SetNamedPipeHandleState';
  1173. function SetPixelV(_para1:HDC; _para2:Integer; _para3:Integer; _para4:COLORREF):WINBOOL; external 'gdi32' name 'SetPixelV';
  1174. function SetPolyFillMode(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetPolyFillMode';
  1175. function SetPriorityClass(hProcess:HANDLE; dwPriorityClass:DWORD):WINBOOL; external 'kernel32' name 'SetPriorityClass';
  1176. function SetPrivateObjectSecurity(SecurityInformation:SECURITY_INFORMATION; ModificationDescriptor:PSECURITY_DESCRIPTOR; var ObjectsSecurityDescriptor:PSECURITY_DESCRIPTOR; GenericMapping:PGENERIC_MAPPING; Token:HANDLE):WINBOOL;
  1177. external 'advapi32' name 'SetPrivateObjectSecurity';
  1178. function SetProcessShutdownParameters(dwLevel:DWORD; dwFlags:DWORD):WINBOOL; external 'kernel32' name 'SetProcessShutdownParameters';
  1179. function SetProcessWindowStation(hWinSta:HWINSTA):WINBOOL; external 'user32' name 'SetProcessWindowStation';
  1180. function SetProcessWorkingSetSize(hProcess:HANDLE; dwMinimumWorkingSetSize:DWORD; dwMaximumWorkingSetSize:DWORD):WINBOOL; external 'kernel32' name 'SetProcessWorkingSetSize';
  1181. function SetSecurityDescriptorDacl(pSecurityDescriptor:PSECURITY_DESCRIPTOR; bDaclPresent:WINBOOL; pDacl:PACL; bDaclDefaulted:WINBOOL):WINBOOL; external 'advapi32' name 'SetSecurityDescriptorDacl';
  1182. function SetSecurityDescriptorSacl(pSecurityDescriptor:PSECURITY_DESCRIPTOR; bSaclPresent:WINBOOL; pSacl:PACL; bSaclDefaulted:WINBOOL):WINBOOL; external 'advapi32' name 'SetSecurityDescriptorSacl';
  1183. function SetSecurityDescriptorOwner(pSecurityDescriptor:PSECURITY_DESCRIPTOR; pOwner:PSID; bOwnerDefaulted:WINBOOL):WINBOOL; external 'advapi32' name 'SetSecurityDescriptorOwner';
  1184. function SetSecurityDescriptorGroup(pSecurityDescriptor:PSECURITY_DESCRIPTOR; pGroup:PSID; bGroupDefaulted:WINBOOL):WINBOOL; external 'advapi32' name 'SetSecurityDescriptorGroup';
  1185. function SetStdHandle(nStdHandle:DWORD; hHandle:HANDLE):WINBOOL; external 'kernel32' name 'SetStdHandle';
  1186. function SetSystemCursor(hcur:HCURSOR; anID:DWORD):WINBOOL; external 'user32' name 'SetSystemCursor';
  1187. function SetSystemTimeAdjustment(dwTimeAdjustment:DWORD; bTimeAdjustmentDisabled:WINBOOL):WINBOOL; external 'kernel32' name 'SetSystemTimeAdjustment';
  1188. function SetThreadDesktop(hDesktop:HDESK):WINBOOL; external 'user32' name 'SetThreadDesktop';
  1189. function SetTapeParameters(hDevice:HANDLE; dwOperation:DWORD; lpTapeInformation:LPVOID):DWORD; external 'kernel32' name 'SetTapeParameters';
  1190. function SetTapePosition(hDevice:HANDLE; dwPositionMethod:DWORD; dwPartition:DWORD; dwOffsetLow:DWORD; dwOffsetHigh:DWORD;bImmediate:WINBOOL):DWORD; external 'kernel32' name 'SetTapePosition';
  1191. function SetThreadAffinityMask(hThread:HANDLE; dwThreadAffinityMask:DWORD):DWORD; external 'kernel32' name 'SetThreadAffinityMask';
  1192. function SetThreadToken(Thread:PHANDLE; Token:HANDLE):WINBOOL; external 'advapi32' name 'SetThreadToken';
  1193. function SetTokenInformation(TokenHandle:HANDLE; TokenInformationClass:TOKEN_INFORMATION_CLASS; TokenInformation:LPVOID; TokenInformationLength:DWORD):WINBOOL; external 'advapi32' name 'SetTokenInformation';
  1194. function SetPixelFormat(_para1:HDC; _para2:Integer;_para3:PPIXELFORMATDESCRIPTOR):WINBOOL; external 'gdi32' name 'SetPixelFormat';
  1195. function SetServiceObjectSecurity(hService:SC_HANDLE; dwSecurityInformation:SECURITY_INFORMATION; lpSecurityDescriptor:PSECURITY_DESCRIPTOR):WINBOOL;external 'advapi32' name 'SetServiceObjectSecurity';
  1196. function SetServiceStatus(hServiceStatus:SERVICE_STATUS_HANDLE; lpServiceStatus:LPSERVICE_STATUS):WINBOOL; external 'advapi32' name 'SetServiceStatus';
  1197. function SetStretchBltMode(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetStretchBltMode';
  1198. function SetSystemPaletteUse(_para1:HDC; _para2:UINT):UINT; external 'gdi32' name 'SetSystemPaletteUse';
  1199. function SetTextCharacterExtra(_para1:HDC; _para2:Integer):Integer; external 'gdi32' name 'SetTextCharacterExtra';
  1200. function SetTextJustification(_para1:HDC; _para2:Integer; _para3:Integer):WINBOOL; external 'gdi32' name 'SetTextJustification';
  1201. function SetThreadLocale(Locale:LCID):WINBOOL; external 'kernel32' name 'SetThreadLocale';
  1202. function SetUserObjectSecurity(hObj:HANDLE; pSIRequested:PSECURITY_INFORMATION; pSID:PSECURITY_DESCRIPTOR):WINBOOL; external 'user32' name 'SetUserObjectSecurity';
  1203. function SetViewportExtEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPSIZE):WINBOOL; external 'gdi32' name 'SetViewportExtEx';
  1204. function SetWindowContextHelpId(_para1:HWND; _para2:DWORD):WINBOOL; external 'user32' name 'SetWindowContextHelpId';
  1205. function SetWindowExtEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPSIZE):WINBOOL; external 'gdi32' name 'SetWindowExtEx';
  1206. function SetWindowOrgEx(_para1:HDC; _para2:Integer; _para3:Integer; _para4:LPPOINT):WINBOOL; external 'gdi32' name 'SetWindowOrgEx';
  1207. function SetWindowPlacement(hWnd:HWND; lpwndpl:PWINDOWPLACEMENT):WINBOOL; external 'user32' name 'SetWindowPlacement';
  1208. function SetWindowPlacement(hWnd:HWND; var lpwndpl:WINDOWPLACEMENT):WINBOOL; external 'user32' name 'SetWindowPlacement';
  1209. function SetWindowWord(hWnd:HWND; nIndex:Integer; wNewWord:WORD):WORD; external 'user32' name 'SetWindowWord';
  1210. function SetWinMetaFileBits(_para1:UINT; var _para2:BYTE; _para3:HDC; var _para4:METAFILEPICT):HENHMETAFILE; external 'gdi32' name 'SetWinMetaFileBits';
  1211. function SetWorldTransform(_para1:HDC; var _para2:XFORM):WINBOOL; external 'gdi32' name 'SetWorldTransform';
  1212. function SHBrowseForFolder(_para1:LPBROWSEINFO):LPITEMIDLIST; external 'shell32' name 'SHBrowseForFolder';
  1213. procedure SHChangeNotify(_para1:LONG; _para2:UINT; _para3:LPCVOID; _para4:LPCVOID); external 'shell32' name 'SHChangeNotify';
  1214. function SHFileOperation(_para1:LPSHFILEOPSTRUCT):Integer; external 'shell32' name 'SHFileOperation';
  1215. procedure SHFreeNameMappings(_para1:HANDLE); external 'shell32' name 'SHFreeNameMappings';
  1216. function ShowHideMenuCtl(hWnd:HWND; uFlags:UINT; lpInfo:LPINT):WINBOOL; external 'comctl32' name 'ShowHideMenuCtl';
  1217. function ShowWindowAsync(hWnd:HWND; nCmdShow:Integer):WINBOOL; external 'user32' name 'ShowWindowAsync';
  1218. function ShowOwnedPopups(hWnd:HWND; fShow:WINBOOL):WINBOOL; external 'user32' name 'ShowOwnedPopups';
  1219. function ShowScrollBar(hWnd:HWND; wBar:Integer; bShow:WINBOOL):WINBOOL; external 'user32' name 'ShowScrollBar';
  1220. function SleepEx(dwMilliseconds:DWORD; bAlertable:WINBOOL):DWORD; external 'kernel32' name 'SleepEx';
  1221. function StrokeAndFillPath(_para1:HDC):WINBOOL; external 'gdi32' name 'StrokeAndFillPath';
  1222. function StrokePath(_para1:HDC):WINBOOL; external 'gdi32' name 'StrokePath';
  1223. function SystemTimeToTzSpecificLocalTime(lpTimeZoneInformation:LPTIME_ZONE_INFORMATION; lpUniversalTime:LPSYSTEMTIME; lpLocalTime:LPSYSTEMTIME):WINBOOL; external 'kernel32' name 'SystemTimeToTzSpecificLocalTime';
  1224. function SwapBuffers(_para1:HDC):WINBOOL; external 'gdi32' name 'SwapBuffers';
  1225. function SwapMouseButton(fSwap:WINBOOL):WINBOOL; external 'user32' name 'SwapMouseButton';
  1226. function SwitchDesktop(hDesktop:HDESK):WINBOOL; external 'user32' name 'SwitchDesktop';
  1227. function TlsAlloc:DWORD; external 'kernel32' name 'TlsAlloc';
  1228. function TlsFree(dwTlsIndex:DWORD):WINBOOL; external 'kernel32' name 'TlsFree';
  1229. function TileWindows(hwndParent:HWND; wHow:UINT; var lpRect:RECT; cKids:UINT; var lpKids:HWND):WORD; external 'user32' name 'TileWindows';
  1230. function ToAscii(uVirtKey:UINT; uScanCode:UINT; lpKeyState:PBYTE; lpChar:LPWORD; uFlags:UINT):Integer; external 'user32' name 'ToAscii';
  1231. function ToAsciiEx(uVirtKey:UINT; uScanCode:UINT; lpKeyState:PBYTE; lpChar:LPWORD; uFlags:UINT;dwhkl:HKL):Integer; external 'user32' name 'ToAsciiEx';
  1232. function ToUnicode(wVirtKey:UINT; wScanCode:UINT; lpKeyState:PBYTE; pwszBuff:LPWSTR; cchBuff:Integer;wFlags:UINT):Integer; external 'user32' name 'ToUnicode';
  1233. function TrackPopupMenu(hMenu:HMENU; uFlags:UINT; x:Integer; y:Integer; nReserved:Integer;hWnd:HWND; var prcRect:RECT):WINBOOL; external 'user32' name 'TrackPopupMenu';
  1234. function TransactNamedPipe(hNamedPipe:HANDLE; lpInBuffer:LPVOID; nInBufferSize:DWORD; lpOutBuffer:LPVOID; nOutBufferSize:DWORD;lpBytesRead:LPDWORD; lpOverlapped:LPOVERLAPPED):WINBOOL; external 'kernel32' name 'TransactNamedPipe';
  1235. function TranslateMDISysAccel(hWndClient:HWND; lpMsg:LPMSG):WINBOOL; external 'user32' name 'TranslateMDISysAccel';
  1236. function PulseEvent(hEvent:HANDLE):WINBOOL; external 'kernel32' name 'PulseEvent';
  1237. function UnhandledExceptionFilter(ExceptionInfo:lpemptyrecord):LONG; external 'kernel32' name 'UnhandledExceptionFilter';
  1238. function UnhookWindowsHook(nCode:Integer; pfnFilterProc:HOOKPROC):WINBOOL; external 'user32' name 'UnhookWindowsHook';
  1239. function UnloadKeyboardLayout(hkl:HKL):WINBOOL; external 'user32' name 'UnloadKeyboardLayout';
  1240. function UnlockFile(hFile:HANDLE; dwFileOffsetLow:DWORD; dwFileOffsetHigh:DWORD; nNumberOfBytesToUnlockLow:DWORD; nNumberOfBytesToUnlockHigh:DWORD):WINBOOL; external 'kernel32' name 'UnlockFile';
  1241. function UnlockFileEx(hFile:HANDLE; dwReserved:DWORD; nNumberOfBytesToUnlockLow:DWORD; nNumberOfBytesToUnlockHigh:DWORD; lpOverlapped:LPOVERLAPPED):WINBOOL; external 'kernel32' name 'UnlockFileEx';
  1242. function UnlockServiceDatabase(ScLock:SC_LOCK):WINBOOL; external 'advapi32' name 'UnlockServiceDatabase';
  1243. function UnrealizeObject(_para1:HGDIOBJ):WINBOOL; external 'gdi32' name 'UnrealizeObject';
  1244. function UpdateColors(_para1:HDC):WINBOOL; external 'gdi32' name 'UpdateColors';
  1245. function VirtualLock(lpAddress:LPVOID; dwSize:DWORD):WINBOOL; external 'kernel32' name 'VirtualLock';
  1246. function VirtualProtectEx(hProcess:HANDLE; lpAddress:LPVOID; dwSize:DWORD; flNewProtect:DWORD; lpflOldProtect:PDWORD):WINBOOL; external 'kernel32' name 'VirtualProtectEx';
  1247. function VirtualQueryEx(hProcess:HANDLE; lpAddress:LPCVOID; lpBuffer:PMEMORY_BASIC_INFORMATION; dwLength:DWORD):DWORD; external 'kernel32' name 'VirtualQueryEx';
  1248. function VirtualUnlock(lpAddress:LPVOID; dwSize:DWORD):WINBOOL; external 'kernel32' name 'VirtualUnlock';
  1249. function WaitForInputIdle(hProcess:HANDLE; dwMilliseconds:DWORD):DWORD; external 'user32' name 'WaitForInputIdle';
  1250. function WaitForMultipleObjectsEx(nCount:DWORD; lpHandles:LPHANDLE; bWaitAll:WINBOOL; dwMilliseconds:DWORD; bAlertable:WINBOOL):DWORD; external 'kernel32' name 'WaitForMultipleObjectsEx';
  1251. function WaitForSingleObjectEx(hHandle:HANDLE; dwMilliseconds:DWORD; bAlertable:WINBOOL):DWORD; external 'kernel32' name 'WaitForSingleObjectEx';
  1252. function WaitMessage:WINBOOL; external 'user32' name 'WaitMessage';
  1253. { wgl Windows OpenGL helper functions }
  1254. function wglUseFontBitmaps(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD):WINBOOL; external 'opengl32' name 'wglUseFontBitmapsA';
  1255. function wglCreateContext(_para1:HDC):HGLRC; external 'opengl32' name 'wglCreateContext';
  1256. function wglCreateLayerContext(_para1:HDC; _para2:Integer):HGLRC; external 'opengl32' name 'wglCreateLayerContext';
  1257. function wglCopyContext(_para1:HGLRC; _para2:HGLRC; _para3:UINT):WINBOOL; external 'opengl32' name 'wglCopyContext';
  1258. function wglDeleteContext(_para1:HGLRC):WINBOOL; external 'opengl32' name 'wglDeleteContext';
  1259. function wglGetCurrentContext:HGLRC; external 'opengl32' name 'wglGetCurrentContext';
  1260. function wglGetCurrentDC:HDC; external 'opengl32' name 'wglGetCurrentDC';
  1261. function wglMakeCurrent(_para1:HDC; _para2:HGLRC):WINBOOL; external 'opengl32' name 'wglMakeCurrent';
  1262. function wglShareLists(_para1:HGLRC; _para2:HGLRC):WINBOOL; external 'opengl32' name 'wglShareLists';
  1263. function wglUseFontBitmapsW(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD):WINBOOL; external 'opengl32' name 'wglUseFontBitmapsW';
  1264. { Delphi doesn't declare these, but we do: }
  1265. function wglUseFontOutlines(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD; _para5:Single;
  1266. _para6:Single; _para7:Integer; _para8:LPGLYPHMETRICSFLOAT):WINBOOL; external 'opengl32' name 'wglUseFontOutlinesA';
  1267. function wglUseFontBitmapsA(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD):WINBOOL; external 'opengl32' name 'wglUseFontBitmapsA';
  1268. function wglUseFontOutlinesA(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD; _para5:Single;
  1269. _para6:Single; _para7:Integer; _para8:LPGLYPHMETRICSFLOAT):WINBOOL; external 'opengl32' name 'wglUseFontOutlinesA';
  1270. function wglDescribeLayerPlane(_para1:HDC; _para2:Integer; _para3:Integer; _para4:UINT; _para5:LPLAYERPLANEDESCRIPTOR):WINBOOL; external 'opengl32' name 'wglDescribeLayerPlane';
  1271. function wglGetLayerPaletteEntries(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; var _para5:COLORREF):Integer; external 'opengl32' name 'wglGetLayerPaletteEntries';
  1272. function wglGetProcAddress(_para1:LPCSTR):PROC; external 'opengl32' name 'wglGetProcAddress';
  1273. function wglRealizeLayerPalette(_para1:HDC; _para2:Integer; _para3:WINBOOL):WINBOOL; external 'opengl32' name 'wglRealizeLayerPalette';
  1274. function wglSetLayerPaletteEntries(_para1:HDC; _para2:Integer; _para3:Integer; _para4:Integer; var _para5:COLORREF):Integer; external 'opengl32' name 'wglSetLayerPaletteEntries';
  1275. function wglSwapLayerBuffers(_para1:HDC; _para2:UINT):WINBOOL; external 'opengl32' name 'wglSwapLayerBuffers';
  1276. function wglUseFontOutlinesW(_para1:HDC; _para2:DWORD; _para3:DWORD; _para4:DWORD; _para5:Single;
  1277. _para6:Single; _para7:Integer; _para8:LPGLYPHMETRICSFLOAT):WINBOOL; external 'opengl32' name 'wglUseFontOutlinesW';
  1278. function WidenPath(_para1:HDC):WINBOOL; external 'gdi32' name 'WidenPath';
  1279. function WindowFromDC(hDC:HDC):HWND; external 'user32' name 'WindowFromDC';
  1280. function WindowFromPoint(Point:POINT):HWND; { external 'user32' name 'WindowFromPoint';bug 1807 }
  1281. function WinExec(lpCmdLine:LPCSTR; uCmdShow:UINT):UINT; external 'kernel32' name 'WinExec';
  1282. function WNetConnectionDialog(hwnd:HWND; dwType:DWORD):DWORD; external 'mpr' name 'WNetConnectionDialog';
  1283. function WriteConsoleOutputAttribute(hConsoleOutput:HANDLE; var lpAttribute:WORD; nLength:DWORD; dwWriteCoord:COORD; lpNumberOfAttrsWritten:LPDWORD):WINBOOL; external 'kernel32' name 'WriteConsoleOutputAttribute';
  1284. function WriteFileEx(hFile:HANDLE; lpBuffer:LPCVOID; nNumberOfBytesToWrite:DWORD; lpOverlapped:LPOVERLAPPED; lpCompletionRoutine:LPOVERLAPPED_COMPLETION_ROUTINE):WINBOOL; external 'kernel32' name 'WriteFileEx';
  1285. function WriteTapemark(hDevice:HANDLE; dwTapemarkType:DWORD; dwTapemarkCount:DWORD; bImmediate:WINBOOL):DWORD; external 'kernel32' name 'WriteTapemark';
  1286. function _hread(hFile:HFILE; lpBuffer:LPVOID; lBytes:Integer):Integer; external 'kernel32' name '_hread';
  1287. function _hwrite(hFile:HFILE; lpBuffer:LPCSTR; lBytes:Integer):Integer; external 'kernel32' name '_hwrite';
  1288. function _lclose(hFile:HFILE):HFILE; external 'kernel32' name '_lclose';
  1289. function _lcreat(lpPathName:LPCSTR; iAttribute:Integer):HFILE; external 'kernel32' name '_lcreat';
  1290. function _llseek(hFile:HFILE; lOffset:LONG; iOrigin:Integer):LONG; external 'kernel32' name '_llseek';
  1291. function _lopen(lpPathName:LPCSTR; iReadWrite:Integer):HFILE; external 'kernel32' name '_lopen';
  1292. function _lread(hFile:HFILE; lpBuffer:LPVOID; uBytes:UINT):UINT; external 'kernel32' name '_lread';
  1293. function _lwrite(hFile:HFILE; lpBuffer:LPCSTR; uBytes:UINT):UINT; external 'kernel32' name '_lwrite';
  1294. {$ifdef Unknown_functions}
  1295. { WARNING: functions not found !!}
  1296. { WARNING: function is not in my gdi32.dll !! PM}function GetEnhMetaFilePixelFormat(_para1:HENHMETAFILE; _para2:DWORD; var _para3:PIXELFORMATDESCRIPTOR):UINT; external 'gdi32' name 'GetEnhMetaFilePixelFormat';procedure OpenSound; external External_library name 'OpenSound';
  1297. { function GetPixelFormat(_para1:HDC):Integer; external 'gdi32' name 'GetPixelFormat'; }
  1298. procedure CloseSound; external External_library name 'CloseSound';
  1299. procedure StartSound; external External_library name 'StartSound';
  1300. procedure StopSound; external External_library name 'StopSound';
  1301. function WaitSoundState(nState:DWORD):DWORD; external External_library name 'WaitSoundState';
  1302. function SyncAllVoices:DWORD; external External_library name 'SyncAllVoices';
  1303. function CountVoiceNotes(nVoice:DWORD):DWORD; external External_library name 'CountVoiceNotes';
  1304. function GetThresholdEvent:LPDWORD; external External_library name 'GetThresholdEvent';
  1305. function GetThresholdStatus:DWORD; external External_library name 'GetThresholdStatus';
  1306. function NetUserEnum(_para1:LPWSTR; _para2:DWORD; _para3:DWORD; var _para4:LPBYTE; _para5:DWORD;_para6:LPDWORD; _para7:LPDWORD; _para8:LPDWORD):DWORD; external 'netapi32' name 'NetUserEnum';
  1307. function NetApiBufferFree(_para1:LPVOID):DWORD; external 'netapi32' name 'NetApiBufferFree';
  1308. function NetUserGetInfo(_para1:LPWSTR; _para2:LPWSTR; _para3:DWORD; _para4:LPBYTE):DWORD; external 'netapi32' name 'NetUserGetInfo';
  1309. function NetGetDCName(_para1:LPWSTR; _para2:LPWSTR; var _para3:LPBYTE):DWORD; external 'netapi32' name 'NetGetDCName';
  1310. function NetGroupEnum(_para1:LPWSTR; _para2:DWORD; var _para3:LPBYTE; _para4:DWORD; _para5:LPDWORD;_para6:LPDWORD; _para7:LPDWORD):DWORD; external 'netapi32' name 'NetGroupEnum';
  1311. function NetLocalGroupEnum(_para1:LPWSTR; _para2:DWORD; var _para3:LPBYTE; _para4:DWORD; _para5:LPDWORD;_para6:LPDWORD; _para7:LPDWORD):DWORD; external 'netapi32' name 'NetLocalGroupEnum';
  1312. function SetSoundNoise(nSource:DWORD; nDuration:DWORD):DWORD; external External_library name 'SetSoundNoise';
  1313. function SetVoiceAccent(nVoice:DWORD; nTempo:DWORD; nVolume:DWORD; nMode:DWORD; nPitch:DWORD):DWORD; external External_library name 'SetVoiceAccent';
  1314. function SetVoiceEnvelope(nVoice:DWORD; nShape:DWORD; nRepeat:DWORD):DWORD; external External_library name 'SetVoiceEnvelope';
  1315. function SetVoiceNote(nVoice:DWORD; nValue:DWORD; nLength:DWORD; nCdots:DWORD):DWORD; external External_library name 'SetVoiceNote';
  1316. function SetVoiceQueueSize(nVoice:DWORD; nBytes:DWORD):DWORD; external External_library name 'SetVoiceQueueSize';
  1317. function SetVoiceSound(nVoice:DWORD; Frequency:DWORD; nDuration:DWORD):DWORD; external External_library name 'SetVoiceSound';
  1318. function SetVoiceThreshold(nVoice:DWORD; nNotes:DWORD):DWORD; external External_library name 'SetVoiceThreshold';
  1319. { WARNING: function not found !!}
  1320. function WinMain(hInstance:HINST; hPrevInstance:HINST; lpCmdLine:LPSTR; nShowCmd:Integer):Integer; external External_library name 'WinMain';
  1321. {$endif Unknown_functions}
  1322. //end win32 only
  1323. //begin win32 or wince not checked
  1324. //end win32 or wince not checked
  1325. {$endif WIN32}
  1326. {$endif read_interface}
  1327. {$ifdef read_implementation}
  1328. { Win32 API calling convention
  1329. pushes POINT struct passed by value directly
  1330. on stack instead of just pushing an address
  1331. to overcome this we use a internal function
  1332. that just pushes the two arguments.
  1333. Bug report 1807. PM }
  1334. //begin common win32 & wince
  1335. function Animate_Create(hWndP:HWND; id:HMENU;dwStyle:DWORD;hInstance:HINST):HWND;
  1336. begin
  1337. Animate_Create:=CreateWindow(LPCTSTR(ANIMATE_CLASS),nil,dwStyle,0,0,0,0,hwndP,id,hInstance,nil);
  1338. end;
  1339. function Animate_Open(hwnd : HWND;szName : LPTSTR) : LRESULT;
  1340. begin
  1341. Animate_Open:=SendMessage(hwnd,ACM_OPEN,0,LPARAM(szName));
  1342. end;
  1343. function Animate_Play(hwnd : HWND;from,_to : Integer;rep : UINT) : LRESULT;
  1344. begin
  1345. Animate_Play:=SendMessage(hwnd,ACM_PLAY,WPARAM(rep),LPARAM(MAKELONG(from,_to)));
  1346. end;
  1347. function Animate_Stop(hwnd : HWND) : LRESULT;
  1348. begin
  1349. Animate_Stop:=SendMessage(hwnd,ACM_STOP,0,0);
  1350. end;
  1351. function Animate_Close(hwnd : HWND) : LRESULT;
  1352. begin
  1353. Animate_Close:=Animate_Open(hwnd,nil);
  1354. end;
  1355. function Animate_Seek(hwnd : HWND;frame : Integer) : LRESULT;
  1356. begin
  1357. Animate_Seek:=Animate_Play(hwnd,frame,frame,1);
  1358. end;
  1359. function CommDlg_OpenSave_GetSpecA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1360. begin
  1361. CommDlg_OpenSave_GetSpecA:=SNDMSG(_hdlg,CDM_GETSPEC,WPARAM(_cbmax),LPARAM(_psz));
  1362. end;
  1363. function CommDlg_OpenSave_GetSpecW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  1364. begin
  1365. CommDlg_OpenSave_GetSpecW:=SNDMSG(_hdlg,CDM_GETSPEC,WPARAM(_cbmax),LPARAM(_psz));
  1366. end;
  1367. {$ifndef Unicode}
  1368. function CommDlg_OpenSave_GetSpec(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1369. begin
  1370. CommDlg_OpenSave_GetSpec:=SNDMSG(_hdlg,CDM_GETSPEC,WPARAM(_cbmax),LPARAM(_psz));
  1371. end;
  1372. {$endif Unicode}
  1373. function CommDlg_OpenSave_GetFilePathA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1374. begin
  1375. CommDlg_OpenSave_GetFilePathA:=SNDMSG(_hdlg,CDM_GETFILEPATH,WPARAM(_cbmax),LPARAM(_psz));
  1376. end;
  1377. function CommDlg_OpenSave_GetFilePathW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  1378. begin
  1379. CommDlg_OpenSave_GetFilePathW:=SNDMSG(_hdlg,CDM_GETFILEPATH,WPARAM(_cbmax),LPARAM(LPWSTR(_psz)));
  1380. end;
  1381. {$ifndef Unicode}
  1382. function CommDlg_OpenSave_GetFilePath(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1383. begin
  1384. CommDlg_OpenSave_GetFilePath:=SNDMSG(_hdlg,CDM_GETFILEPATH,WPARAM(_cbmax),LPARAM(_psz));
  1385. end;
  1386. {$endif Unicode}
  1387. function CommDlg_OpenSave_GetFolderPathA(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1388. begin
  1389. CommDlg_OpenSave_GetFolderPathA:=SNDMSG(_hdlg,CDM_GETFOLDERPATH,WPARAM(_cbmax),LPARAM(LPSTR(_psz)));
  1390. end;
  1391. function CommDlg_OpenSave_GetFolderPathW(_hdlg:HWND;_psz:LPWSTR;_cbmax : Integer) : LRESULT;
  1392. begin
  1393. CommDlg_OpenSave_GetFolderPathW:=SNDMSG(_hdlg,CDM_GETFOLDERPATH,WPARAM(_cbmax),LPARAM(LPWSTR(_psz)));
  1394. end;
  1395. {$ifndef Unicode}
  1396. function CommDlg_OpenSave_GetFolderPath(_hdlg:HWND;_psz:LPSTR;_cbmax : Integer) : LRESULT;
  1397. begin
  1398. CommDlg_OpenSave_GetFolderPath:=SNDMSG(_hdlg,CDM_GETFOLDERPATH,WPARAM(_cbmax),LPARAM(LPSTR(_psz)));
  1399. end;
  1400. {$endif Unicode}
  1401. function CommDlg_OpenSave_GetFolderIDList(_hdlg:HWND;_pidl:LPVOID;_cbmax : Integer) : LRESULT;
  1402. begin
  1403. CommDlg_OpenSave_GetFolderIDList:=SNDMSG(_hdlg,CDM_GETFOLDERIDLIST,WPARAM(_cbmax),LPARAM(_pidl));
  1404. end;
  1405. function CommDlg_OpenSave_SetControlText(_hdlg:HWND;_id : Integer;_text : LPSTR) : LRESULT;
  1406. begin
  1407. CommDlg_OpenSave_SetControlText:=SNDMSG(_hdlg,CDM_SETCONTROLTEXT,WPARAM(_id),LPARAM(_text));
  1408. end;
  1409. function CommDlg_OpenSave_HideControl(_hdlg:HWND;_id : Integer) : LRESULT;
  1410. begin
  1411. CommDlg_OpenSave_HideControl:=SNDMSG(_hdlg,CDM_HIDECONTROL,WPARAM(_id),0);
  1412. end;
  1413. function CommDlg_OpenSave_SetDefExt(_hdlg:HWND;_pszext : LPSTR) : LRESULT;
  1414. begin
  1415. CommDlg_OpenSave_SetDefExt:=SNDMSG(_hdlg,CDM_SETDEFEXT,0,LPARAM(_pszext));
  1416. end;
  1417. procedure CopyMemory(Destination:PVOID; Source:pointer; Length:DWORD);
  1418. begin
  1419. Move(Source^, Destination^, Length);
  1420. end;
  1421. procedure FillMemory(Destination:PVOID; Length:DWORD; Fill:BYTE);
  1422. begin
  1423. FillChar(Destination^,Length,Char(Fill));
  1424. end;
  1425. function GlobalAllocPtr(flags,cb:DWord):Pointer;
  1426. begin
  1427. GlobalAllocPtr:=GlobalLock(GlobalAlloc(flags,cb));
  1428. end;
  1429. function GlobalDiscard(hglbMem:HGLOBAL):HGLOBAL;
  1430. begin
  1431. GlobalDiscard:=GlobalReAlloc(hglbMem,0,GMEM_MOVEABLE);
  1432. end;
  1433. function GlobalFreePtr(lp:Pointer):Pointer;
  1434. begin
  1435. GlobalFreePtr:=Pointer(GlobalFree(HWND(GlobalUnlockPtr(lp))));
  1436. end;
  1437. function GlobalUnlockPtr(lp:pointer):Pointer;
  1438. begin
  1439. GlobalUnlock(GlobalHandle(lp));
  1440. GlobalUnlockPtr:=lp;
  1441. end;
  1442. function GlobalLockPtr(lp:pointer):Pointer;
  1443. begin
  1444. GlobalLockPtr:=GlobalLock(GlobalHandle(lp));
  1445. end;
  1446. function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
  1447. begin
  1448. GlobalReAllocPtr:=GlobalLock(GlobalReAlloc(HWND(GlobalUnlockPtr(lp)),cbNew,flags));
  1449. end;
  1450. function GlobalPtrHandle(lp:pointer):Pointer;
  1451. begin
  1452. GlobalPtrHandle:=Pointer(GlobalHandle(lp));
  1453. end;
  1454. function Header_DeleteItem(hwndHD:HWND;index : Integer) : WINBOOL;
  1455. begin
  1456. Header_DeleteItem:=WINBOOL(SendMessage(hwndHD,HDM_DELETEITEM,WPARAM(index),0));
  1457. end;
  1458. function Header_GetItem(hwndHD:HWND;index:Integer;var hdi : HD_ITEM) : WINBOOL;
  1459. begin
  1460. Header_GetItem:=WINBOOL(SendMessage(hwndHD,HDM_GETITEM,WPARAM(index),LPARAM(@hdi)));
  1461. end;
  1462. function Header_GetItemCount(hwndHD : HWND) : Integer;
  1463. begin
  1464. Header_GetItemCount:=Integer(SendMessage(hwndHD,HDM_GETITEMCOUNT,0,0));
  1465. end;
  1466. function Header_InsertItem(hwndHD:HWND;index : Integer;var hdi : HD_ITEM) : Integer;
  1467. begin
  1468. Header_InsertItem:=Integer(SendMessage(hwndHD,HDM_INSERTITEM,WPARAM(index),LPARAM(@hdi)));
  1469. end;
  1470. function Header_Layout(hwndHD:HWND;var layout : HD_LAYOUT) : WINBOOL;
  1471. begin
  1472. Header_Layout:=WINBOOL(SendMessage(hwndHD,HDM_LAYOUT,0,LPARAM(@layout)));
  1473. end;
  1474. function Header_SetItem(hwndHD:HWND;index : Integer;var hdi : HD_ITEM) : WINBOOL;
  1475. begin
  1476. Header_SetItem:=WINBOOL(SendMessage(hwndHD,HDM_SETITEM,WPARAM(index),LPARAM(@hdi)));
  1477. end;
  1478. function ImageList_AddIcon(himl:HIMAGELIST; hicon:HICON):Integer;
  1479. begin
  1480. ImageList_AddIcon:=ImageList_ReplaceIcon(himl,-(1),hicon);
  1481. end;
  1482. function ListView_Arrange(hwndLV:HWND;code : UINT) : LRESULT;
  1483. begin
  1484. ListView_Arrange:=SendMessage(hwndLV,LVM_ARRANGE,WPARAM(UINT(code)),0);
  1485. end;
  1486. function ListView_CreateDragImage(hwnd:HWND;i : Integer;lpptUpLeft : LPPOINT) : LRESULT;
  1487. begin
  1488. ListView_CreateDragImage:=SendMessage(hwnd,LVM_CREATEDRAGIMAGE,WPARAM(i),LPARAM(lpptUpLeft));
  1489. end;
  1490. function ListView_DeleteAllItems(hwnd : HWND) : LRESULT;
  1491. begin
  1492. ListView_DeleteAllItems:=SendMessage(hwnd,LVM_DELETEALLITEMS,0,0);
  1493. end;
  1494. function ListView_DeleteColumn(hwnd:HWND;iCol : Integer) : LRESULT;
  1495. begin
  1496. ListView_DeleteColumn:=SendMessage(hwnd,LVM_DELETECOLUMN,WPARAM(iCol),0);
  1497. end;
  1498. function ListView_DeleteItem(hwnd:HWND;iItem : Integer) : LRESULT;
  1499. begin
  1500. ListView_DeleteItem:=SendMessage(hwnd,LVM_DELETEITEM,WPARAM(iItem),0);
  1501. end;
  1502. function ListView_EditLabel(hwndLV:HWND;i : Integer) : LRESULT;
  1503. begin
  1504. ListView_EditLabel:=SendMessage(hwndLV,LVM_EDITLABEL,WPARAM(Integer(i)),0);
  1505. end;
  1506. function ListView_EnsureVisible(hwndLV:HWND;i,fPartialOK : Integer) : LRESULT;
  1507. begin
  1508. ListView_EnsureVisible:=SendMessage(hwndLV,LVM_ENSUREVISIBLE,WPARAM(i),MAKELPARAM(fPartialOK,0));
  1509. end;
  1510. function ListView_FindItem(hwnd:HWND;iStart : Integer;var lvfi : LV_FINDINFO) : Integer;
  1511. begin
  1512. ListView_FindItem:=SendMessage(hwnd,LVM_FINDITEM,WPARAM(iStart),LPARAM(@lvfi));
  1513. end;
  1514. function ListView_GetBkColor(hwnd : HWND) : LRESULT;
  1515. begin
  1516. ListView_GetBkColor:=SendMessage(hwnd,LVM_GETBKCOLOR,0,0);
  1517. end;
  1518. function ListView_GetCallbackMask(hwnd : HWND) : LRESULT;
  1519. begin
  1520. ListView_GetCallbackMask:=SendMessage(hwnd,LVM_GETCALLBACKMASK,0,0);
  1521. end;
  1522. function ListView_GetColumn(hwnd:HWND;iCol : Integer;var col : LV_COLUMN) : LRESULT;
  1523. begin
  1524. ListView_GetColumn:=SendMessage(hwnd,LVM_GETCOLUMN,WPARAM(iCol),LPARAM(@col));
  1525. end;
  1526. function ListView_GetColumnWidth(hwnd:HWND;iCol : Integer) : LRESULT;
  1527. begin
  1528. ListView_GetColumnWidth:=SendMessage(hwnd,LVM_GETCOLUMNWIDTH,WPARAM(iCol),0);
  1529. end;
  1530. function ListView_GetCountPerPage(hwndLV : HWND) : LRESULT;
  1531. begin
  1532. ListView_GetCountPerPage:=SendMessage(hwndLV,LVM_GETCOUNTPERPAGE,0,0);
  1533. end;
  1534. function ListView_GetEditControl(hwndLV : HWND) : LRESULT;
  1535. begin
  1536. ListView_GetEditControl:=SendMessage(hwndLV,LVM_GETEDITCONTROL,0,0);
  1537. end;
  1538. function ListView_GetImageList(hwnd:HWND;iImageList : wINT) : LRESULT;
  1539. begin
  1540. ListView_GetImageList:=SendMessage(hwnd,LVM_GETIMAGELIST,WPARAM(iImageList),0);
  1541. end;
  1542. function ListView_GetISearchString(hwndLV:HWND;lpsz : LPTSTR) : LRESULT;
  1543. begin
  1544. ListView_GetISearchString:=SendMessage(hwndLV,LVM_GETISEARCHSTRING,0,LPARAM(lpsz));
  1545. end;
  1546. function ListView_GetItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  1547. begin
  1548. ListView_GetItem:=SendMessage(hwnd,LVM_GETITEM,0,LPARAM(@item));
  1549. end;
  1550. function ListView_GetItemCount(hwnd : HWND) : LRESULT;
  1551. begin
  1552. ListView_GetItemCount:=SendMessage(hwnd,LVM_GETITEMCOUNT,0,0);
  1553. end;
  1554. function ListView_GetItemPosition(hwndLV:HWND;i : Integer;var pt : POINT) : Integer;
  1555. begin
  1556. ListView_GetItemPosition:=SendMessage(hwndLV,LVM_GETITEMPOSITION,WPARAM(Integer(i)),LPARAM(@pt));
  1557. end;
  1558. function ListView_GetItemSpacing(hwndLV:HWND;fSmall : Integer) : LRESULT;
  1559. begin
  1560. ListView_GetItemSpacing:=SendMessage(hwndLV,LVM_GETITEMSPACING,fSmall,0);
  1561. end;
  1562. function ListView_GetItemState(hwndLV:HWND;i,mask : Integer) : LRESULT;
  1563. begin
  1564. ListView_GetItemState:=SendMessage(hwndLV,LVM_GETITEMSTATE,WPARAM(i),LPARAM(mask));
  1565. end;
  1566. function ListView_GetNextItem(hwnd:HWND; iStart, flags : Integer) : LRESULT;
  1567. begin
  1568. ListView_GetNextItem:=SendMessage(hwnd, LVM_GETNEXTITEM, WPARAM(iStart), LPARAM(flags));
  1569. end;
  1570. function ListView_GetOrigin(hwndLV:HWND;var pt : POINT) : LRESULT;
  1571. begin
  1572. ListView_GetOrigin:=SendMessage(hwndLV,LVM_GETORIGIN,WPARAM(0),LPARAM(@pt));
  1573. end;
  1574. function ListView_GetSelectedCount(hwndLV : HWND) : LRESULT;
  1575. begin
  1576. ListView_GetSelectedCount:=SendMessage(hwndLV,LVM_GETSELECTEDCOUNT,0,0);
  1577. end;
  1578. function ListView_GetStringWidth(hwndLV:HWND;psz : LPCTSTR) : LRESULT;
  1579. begin
  1580. ListView_GetStringWidth:=SendMessage(hwndLV,LVM_GETSTRINGWIDTH,0,LPARAM(psz));
  1581. end;
  1582. function ListView_GetTextBkColor(hwnd : HWND) : LRESULT;
  1583. begin
  1584. ListView_GetTextBkColor:=SendMessage(hwnd,LVM_GETTEXTBKCOLOR,0,0);
  1585. end;
  1586. function ListView_GetTextColor(hwnd : HWND) : LRESULT;
  1587. begin
  1588. ListView_GetTextColor:=SendMessage(hwnd,LVM_GETTEXTCOLOR,0,0);
  1589. end;
  1590. function ListView_GetTopIndex(hwndLV : HWND) : LRESULT;
  1591. begin
  1592. ListView_GetTopIndex:=SendMessage(hwndLV,LVM_GETTOPINDEX,0,0);
  1593. end;
  1594. function ListView_GetViewRect(hwnd:HWND;var rc : RECT) : LRESULT;
  1595. begin
  1596. ListView_GetViewRect:=SendMessage(hwnd,LVM_GETVIEWRECT,0,LPARAM(@rc));
  1597. end;
  1598. function ListView_HitTest(hwndLV:HWND;var info : LV_HITTESTINFO) : LRESULT;
  1599. begin
  1600. ListView_HitTest:=SendMessage(hwndLV,LVM_HITTEST,0,LPARAM(@info));
  1601. end;
  1602. function ListView_InsertColumn(hwnd:HWND;iCol : Integer;var col : LV_COLUMN) : LRESULT;
  1603. begin
  1604. ListView_InsertColumn:=SendMessage(hwnd,LVM_INSERTCOLUMN,WPARAM(iCol),LPARAM(@col));
  1605. end;
  1606. function ListView_InsertItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  1607. begin
  1608. ListView_InsertItem:=SendMessage(hwnd,LVM_INSERTITEM,0,LPARAM(@item));
  1609. end;
  1610. function ListView_RedrawItems(hwndLV:HWND;iFirst,iLast : Integer) : LRESULT;
  1611. begin
  1612. ListView_RedrawItems:=SendMessage(hwndLV,LVM_REDRAWITEMS,WPARAM(iFirst),LPARAM(iLast));
  1613. end;
  1614. function ListView_Scroll(hwndLV:HWND;dx,dy : Integer) : LRESULT;
  1615. begin
  1616. ListView_Scroll:=SendMessage(hwndLV,LVM_SCROLL,WPARAM(dx),LPARAM(dy));
  1617. end;
  1618. function ListView_SetBkColor(hwnd:HWND;clrBk : COLORREF) : LRESULT;
  1619. begin
  1620. ListView_SetBkColor:=SendMessage(hwnd,LVM_SETBKCOLOR,0,LPARAM(clrBk));
  1621. end;
  1622. function ListView_SetCallbackMask(hwnd:HWND;mask : UINT) : LRESULT;
  1623. begin
  1624. ListView_SetCallbackMask:=SendMessage(hwnd,LVM_SETCALLBACKMASK,WPARAM(mask),0);
  1625. end;
  1626. function ListView_SetColumn(hwnd:HWND;iCol : Integer; var col : LV_COLUMN) : LRESULT;
  1627. begin
  1628. ListView_SetColumn:=SendMessage(hwnd,LVM_SETCOLUMN,WPARAM(iCol),LPARAM(@col));
  1629. end;
  1630. function ListView_SetColumnWidth(hwnd:HWND;iCol,cx : Integer) : LRESULT;
  1631. begin
  1632. ListView_SetColumnWidth:=SendMessage(hwnd,LVM_SETCOLUMNWIDTH,WPARAM(iCol),MAKELPARAM(cx,0));
  1633. end;
  1634. function ListView_SetImageList(hwnd:HWND;himl : Integer;iImageList : HIMAGELIST) : LRESULT;
  1635. begin
  1636. ListView_SetImageList:=SendMessage(hwnd,LVM_SETIMAGELIST,WPARAM(iImageList),LPARAM(UINT(himl)));
  1637. end;
  1638. function ListView_SetItem(hwnd:HWND;var item : LV_ITEM) : LRESULT;
  1639. begin
  1640. ListView_SetItem:=SendMessage(hwnd,LVM_SETITEM,0,LPARAM(@item));
  1641. end;
  1642. function ListView_SetItemCount(hwndLV:HWND;cItems : Integer) : LRESULT;
  1643. begin
  1644. ListView_SetItemCount:=SendMessage(hwndLV,LVM_SETITEMCOUNT,WPARAM(cItems),0);
  1645. end;
  1646. function ListView_SetItemPosition(hwndLV:HWND;i,x,y : Integer) : LRESULT;
  1647. begin
  1648. ListView_SetItemPosition:=SendMessage(hwndLV,LVM_SETITEMPOSITION,WPARAM(i),MAKELPARAM(x,y));
  1649. end;
  1650. function ListView_SetItemPosition32(hwndLV:HWND;i,x,y : Integer) : LRESULT;
  1651. var
  1652. ptNewPos : POINT;
  1653. begin
  1654. ptNewPos.x:=x;
  1655. ptNewPos.y:=y;
  1656. ListView_SetItemPosition32:=SendMessage(hwndLV, LVM_SETITEMPOSITION32, WPARAM(i),LPARAM(@ptNewPos));
  1657. end;
  1658. function ListView_SetItemState(hwndLV:HWND; i, data, mask:Integer) : LRESULT;
  1659. var
  1660. _gnu_lvi : LV_ITEM;
  1661. begin
  1662. _gnu_lvi.stateMask:=mask;
  1663. _gnu_lvi.state:=data;
  1664. ListView_SetItemState:=SendMessage(hwndLV, LVM_SETITEMSTATE, WPARAM(i),LPARAM(@_gnu_lvi));
  1665. end;
  1666. function ListView_SetItemText(hwndLV:HWND; i, iSubItem_:Integer;pszText_ : LPTSTR) : LRESULT;
  1667. var
  1668. _gnu_lvi : LV_ITEM;
  1669. begin
  1670. _gnu_lvi.iSubItem:=iSubItem_;
  1671. _gnu_lvi.pszText:=pszText_;
  1672. ListView_SetItemText:=SendMessage(hwndLV, LVM_SETITEMTEXT, WPARAM(i),LPARAM(@_gnu_lvi));
  1673. end;
  1674. function ListView_SetTextBkColor(hwnd:HWND;clrTextBk : COLORREF) : LRESULT;
  1675. begin
  1676. ListView_SetTextBkColor:=SendMessage(hwnd,LVM_SETTEXTBKCOLOR,0,LPARAM(clrTextBk));
  1677. end;
  1678. function ListView_SetTextColor(hwnd:HWND;clrText : COLORREF) : LRESULT;
  1679. begin
  1680. ListView_SetTextColor:=SendMessage(hwnd,LVM_SETTEXTCOLOR,0,LPARAM(clrText));
  1681. end;
  1682. function ListView_SortItems(hwndLV:HWND;_pfnCompare:PFNLVCOMPARE;_lPrm : LPARAM) : LRESULT;
  1683. begin
  1684. ListView_SortItems:=SendMessage(hwndLV,LVM_SORTITEMS,WPARAM(_lPrm),LPARAM(_pfnCompare));
  1685. end;
  1686. function ListView_Update(hwndLV:HWND;i : Integer) : LRESULT;
  1687. begin
  1688. ListView_Update:=SendMessage(hwndLV,LVM_UPDATE,WPARAM(i),0);
  1689. end;
  1690. function LocalDiscard(hlocMem:HLOCAL):HLOCAL;
  1691. begin
  1692. LocalDiscard := LocalReAlloc(hlocMem,0,LMEM_MOVEABLE);
  1693. end;
  1694. procedure MoveMemory(Destination:PVOID; Source:pointer; Length:DWORD);
  1695. begin
  1696. Move(Source^,Destination^,Length);
  1697. end;
  1698. function PropSheet_AddPage(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE) : LRESULT;
  1699. begin
  1700. PropSheet_AddPage:=SendMessage(hPropSheetDlg,PSM_ADDPAGE,0,LPARAM(hpage));
  1701. end;
  1702. function PropSheet_Apply(hPropSheetDlg : HWND) : LRESULT;
  1703. begin
  1704. PropSheet_Apply:=SendMessage(hPropSheetDlg,PSM_APPLY,0,0);
  1705. end;
  1706. function PropSheet_CancelToClose(hPropSheetDlg : HWND) : LRESULT;
  1707. begin
  1708. PropSheet_CancelToClose:=SendMessage(hPropSheetDlg,PSM_CANCELTOCLOSE,0,0);
  1709. end;
  1710. function PropSheet_Changed(hPropSheetDlg,hwndPage : HWND) : LRESULT;
  1711. begin
  1712. PropSheet_Changed:=SendMessage(hPropSheetDlg,PSM_CHANGED,WPARAM(hwndPage),0);
  1713. end;
  1714. function PropSheet_GetCurrentPageHwnd(hDlg : HWND) : LRESULT;
  1715. begin
  1716. PropSheet_GetCurrentPageHwnd:=SendMessage(hDlg,PSM_GETCURRENTPAGEHWND,0,0);
  1717. end;
  1718. function PropSheet_GetTabControl(hPropSheetDlg : HWND) : LRESULT;
  1719. begin
  1720. PropSheet_GetTabControl:=SendMessage(hPropSheetDlg,PSM_GETTABCONTROL,0,0);
  1721. end;
  1722. function PropSheet_IsDialogMessage(hDlg : HWND;pMsg : Integer) : LRESULT;
  1723. begin
  1724. PropSheet_IsDialogMessage:=SendMessage(hDlg,PSM_ISDIALOGMESSAGE,0,LPARAM(pMsg));
  1725. end;
  1726. function PropSheet_PressButton(hPropSheetDlg : HWND;iButton : Integer) : LRESULT;
  1727. begin
  1728. PropSheet_PressButton:=SendMessage(hPropSheetDlg,PSM_PRESSBUTTON,WPARAM(Integer(iButton)),0);
  1729. end;
  1730. function PropSheet_QuerySiblings(hPropSheetDlg : HWND;param1,param2 : Integer) : LRESULT;
  1731. begin
  1732. PropSheet_QuerySiblings:=SendMessage(hPropSheetDlg,PSM_QUERYSIBLINGS,WPARAM(param1),LPARAM(param2));
  1733. end;
  1734. function PropSheet_RebootSystem(hPropSheetDlg : HWND) : LRESULT;
  1735. begin
  1736. PropSheet_RebootSystem:=SendMessage(hPropSheetDlg,PSM_REBOOTSYSTEM,0,0);
  1737. end;
  1738. function PropSheet_RemovePage(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE; index : Integer) : LRESULT;
  1739. begin
  1740. PropSheet_RemovePage:=SendMessage(hPropSheetDlg,PSM_REMOVEPAGE,WPARAM(index),LPARAM(hpage));
  1741. end;
  1742. function PropSheet_RestartWindows(hPropSheetDlg : HWND) : LRESULT;
  1743. begin
  1744. PropSheet_RestartWindows:=SendMessage(hPropSheetDlg,PSM_RESTARTWINDOWS,0,0);
  1745. end;
  1746. function PropSheet_SetCurSel(hPropSheetDlg : HWND;hpage : HPROPSHEETPAGE; index : Integer) : LRESULT;
  1747. begin
  1748. PropSheet_SetCurSel:=SendMessage(hPropSheetDlg,PSM_SETCURSEL,WPARAM(index),LPARAM(hpage));
  1749. end;
  1750. function PropSheet_SetCurSelByID(hPropSheetDlg : HWND; id : Integer) : LRESULT;
  1751. begin
  1752. PropSheet_SetCurSelByID:=SendMessage(hPropSheetDlg,PSM_SETCURSELID,0,LPARAM(id));
  1753. end;
  1754. function PropSheet_SetFinishText(hPropSheetDlg:HWND;lpszText : LPTSTR) : LRESULT;
  1755. begin
  1756. PropSheet_SetFinishText:=SendMessage(hPropSheetDlg,PSM_SETFINISHTEXT,0,LPARAM(lpszText));
  1757. end;
  1758. function PropSheet_SetTitle(hPropSheetDlg:HWND;dwStyle:DWORD;lpszText : LPCTSTR) : LRESULT;
  1759. begin
  1760. PropSheet_SetTitle:=SendMessage(hPropSheetDlg,PSM_SETTITLE,WPARAM(dwStyle),LPARAM(lpszText));
  1761. end;
  1762. function PropSheet_SetWizButtons(hPropSheetDlg:HWND;dwFlags : DWORD) : LRESULT;
  1763. begin
  1764. PropSheet_SetWizButtons:=SendMessage(hPropSheetDlg,PSM_SETWIZBUTTONS,0,LPARAM(dwFlags));
  1765. end;
  1766. function PropSheet_UnChanged(hPropSheetDlg:HWND;hwndPage : HWND) : LRESULT;
  1767. begin
  1768. PropSheet_UnChanged:=SendMessage(hPropSheetDlg,PSM_UNCHANGED,WPARAM(hwndPage),0);
  1769. end;
  1770. function SNDMSG(hWnd:HWND; Msg:UINT; wParam:WPARAM; lParam:LPARAM):LRESULT;
  1771. begin
  1772. SNDMSG:=SendMessage(hWnd,Msg,wParam,lParam);
  1773. end;
  1774. function TreeView_InsertItem(hwnd:HWND;lpis : LPTV_INSERTSTRUCT) : LRESULT;
  1775. begin
  1776. TreeView_InsertItem:=SendMessage(hwnd,TVM_INSERTITEM,0,LPARAM(lpis));
  1777. end;
  1778. function TabCtrl_GetImageList(hwnd : HWND) : LRESULT;
  1779. begin
  1780. TabCtrl_GetImageList:=SendMessage(hwnd,TCM_GETIMAGELIST,0,0);
  1781. end;
  1782. function TabCtrl_SetImageList(hwnd:HWND;himl : HIMAGELIST) : LRESULT;
  1783. begin
  1784. TabCtrl_SetImageList:=SendMessage(hwnd,TCM_SETIMAGELIST,0,LPARAM(UINT(himl)));
  1785. end;
  1786. function TabCtrl_GetItemCount(hwnd : HWND) : LRESULT;
  1787. begin
  1788. TabCtrl_GetItemCount:=SendMessage(hwnd,TCM_GETITEMCOUNT,0,0);
  1789. end;
  1790. function TabCtrl_GetItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  1791. begin
  1792. TabCtrl_GetItem:=SendMessage(hwnd,TCM_GETITEM,WPARAM(iItem),LPARAM(@item));
  1793. end;
  1794. function TabCtrl_SetItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  1795. begin
  1796. TabCtrl_SetItem:=SendMessage(hwnd,TCM_SETITEM,WPARAM(iItem),LPARAM(@item));
  1797. end;
  1798. function TabCtrl_InsertItem(hwnd:HWND;iItem : Integer;var item : TC_ITEM) : LRESULT;
  1799. begin
  1800. TabCtrl_InsertItem:=SendMessage(hwnd,TCM_INSERTITEM,WPARAM(iItem),LPARAM(@item));
  1801. end;
  1802. function TabCtrl_DeleteItem(hwnd:HWND;i : Integer) : LRESULT;
  1803. begin
  1804. TabCtrl_DeleteItem:=SendMessage(hwnd,TCM_DELETEITEM,WPARAM(i),0);
  1805. end;
  1806. function TabCtrl_DeleteAllItems(hwnd : HWND) : LRESULT;
  1807. begin
  1808. TabCtrl_DeleteAllItems:=SendMessage(hwnd,TCM_DELETEALLITEMS,0,0);
  1809. end;
  1810. function TabCtrl_GetItemRect(hwnd:HWND;i : Integer;var rc : RECT) : LRESULT;
  1811. begin
  1812. TabCtrl_GetItemRect:=SendMessage(hwnd,TCM_GETITEMRECT,WPARAM(Integer(i)),LPARAM(@rc));
  1813. end;
  1814. function TabCtrl_GetCurSel(hwnd : HWND) : LRESULT;
  1815. begin
  1816. TabCtrl_GetCurSel:=SendMessage(hwnd,TCM_GETCURSEL,0,0);
  1817. end;
  1818. function TabCtrl_SetCurSel(hwnd:HWND;i : Integer) : LRESULT;
  1819. begin
  1820. TabCtrl_SetCurSel:=SendMessage(hwnd,TCM_SETCURSEL,WPARAM(i),0);
  1821. end;
  1822. function TabCtrl_HitTest(hwndTC:HWND;var info : TC_HITTESTINFO) : LRESULT;
  1823. begin
  1824. TabCtrl_HitTest:=SendMessage(hwndTC,TCM_HITTEST,0,LPARAM(@info));
  1825. end;
  1826. function TabCtrl_SetItemExtra(hwndTC:HWND;cb : Integer) : LRESULT;
  1827. begin
  1828. TabCtrl_SetItemExtra:=SendMessage(hwndTC,TCM_SETITEMEXTRA,WPARAM(cb),0);
  1829. end;
  1830. function TabCtrl_AdjustRect(hwnd:HWND;bLarger:WINBOOL;var rc : RECT) : LRESULT;
  1831. begin
  1832. TabCtrl_AdjustRect:=SendMessage(hwnd,TCM_ADJUSTRECT,WPARAM(bLarger),LPARAM(@rc));
  1833. end;
  1834. function TabCtrl_SetItemSize(hwnd:HWND;x,y : Integer) : LRESULT;
  1835. begin
  1836. TabCtrl_SetItemSize:=SendMessage(hwnd,TCM_SETITEMSIZE,0,MAKELPARAM(x,y));
  1837. end;
  1838. function TabCtrl_RemoveImage(hwnd:HWND;i : WPARAM) : LRESULT;
  1839. begin
  1840. TabCtrl_RemoveImage:=SendMessage(hwnd,TCM_REMOVEIMAGE,i,0);
  1841. end;
  1842. function TabCtrl_SetPadding(hwnd:HWND;cx,cy : Integer) : LRESULT;
  1843. begin
  1844. TabCtrl_SetPadding:=SendMessage(hwnd,TCM_SETPADDING,0,MAKELPARAM(cx,cy));
  1845. end;
  1846. function TabCtrl_GetRowCount(hwnd : HWND) : LRESULT;
  1847. begin
  1848. TabCtrl_GetRowCount:=SendMessage(hwnd,TCM_GETROWCOUNT,0,0);
  1849. end;
  1850. function TabCtrl_GetToolTips(hwnd : HWND) : LRESULT;
  1851. begin
  1852. TabCtrl_GetToolTips:=SendMessage(hwnd,TCM_GETTOOLTIPS,0,0);
  1853. end;
  1854. function TabCtrl_SetToolTips(hwnd:HWND;hwndTT : Integer) : LRESULT;
  1855. begin
  1856. TabCtrl_SetToolTips:=SendMessage(hwnd,TCM_SETTOOLTIPS,WPARAM(hwndTT),0);
  1857. end;
  1858. function TabCtrl_GetCurFocus(hwnd : HWND) : LRESULT;
  1859. begin
  1860. TabCtrl_GetCurFocus:=SendMessage(hwnd,TCM_GETCURFOCUS,0,0);
  1861. end;
  1862. function TabCtrl_SetCurFocus(hwnd:HWND;i : Integer) : LRESULT;
  1863. begin
  1864. TabCtrl_SetCurFocus:=SendMessage(hwnd,TCM_SETCURFOCUS,i,0);
  1865. end;
  1866. function TreeView_DeleteItem(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1867. begin
  1868. TreeView_DeleteItem:=SendMessage(hwnd,TVM_DELETEITEM,0,LPARAM(hitem));
  1869. end;
  1870. function TreeView_DeleteAllItems(hwnd : HWND) : LRESULT;
  1871. begin
  1872. TreeView_DeleteAllItems:=SendMessage(hwnd,TVM_DELETEITEM,0,LPARAM(TVI_ROOT));
  1873. end;
  1874. function TreeView_Expand(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  1875. begin
  1876. TreeView_Expand:=SendMessage(hwnd,TVM_EXPAND,WPARAM(code),LPARAM(hitem));
  1877. end;
  1878. function TreeView_GetCount(hwnd : HWND) : LRESULT;
  1879. begin
  1880. TreeView_GetCount:=SendMessage(hwnd,TVM_GETCOUNT,0,0);
  1881. end;
  1882. function TreeView_GetIndent(hwnd : HWND) : LRESULT;
  1883. begin
  1884. TreeView_GetIndent:=SendMessage(hwnd,TVM_GETINDENT,0,0);
  1885. end;
  1886. function TreeView_SetIndent(hwnd:HWND;indent : Integer) : LRESULT;
  1887. begin
  1888. TreeView_SetIndent:=SendMessage(hwnd,TVM_SETINDENT,WPARAM(indent),0);
  1889. end;
  1890. function TreeView_GetImageList(hwnd:HWND;iImage : WPARAM) : LRESULT;
  1891. begin
  1892. TreeView_GetImageList:=SendMessage(hwnd,TVM_GETIMAGELIST,iImage,0);
  1893. end;
  1894. function TreeView_SetImageList(hwnd:HWND;himl:HIMAGELIST;iImage : WPARAM) : LRESULT;
  1895. begin
  1896. TreeView_SetImageList:=SendMessage(hwnd,TVM_SETIMAGELIST,iImage,LPARAM(UINT(himl)));
  1897. end;
  1898. function TreeView_GetNextItem(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  1899. begin
  1900. TreeView_GetNextItem:=SendMessage(hwnd,TVM_GETNEXTITEM,WPARAM(code),LPARAM(hitem));
  1901. end;
  1902. function TreeView_GetChild(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1903. begin
  1904. TreeView_GetChild:=TreeView_GetNextItem(hwnd,hitem,TVGN_CHILD);
  1905. end;
  1906. function TreeView_GetNextSibling(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1907. begin
  1908. TreeView_GetNextSibling:=TreeView_GetNextItem(hwnd,hitem,TVGN_NEXT);
  1909. end;
  1910. function TreeView_GetPrevSibling(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1911. begin
  1912. TreeView_GetPrevSibling:=TreeView_GetNextItem(hwnd,hitem,TVGN_PREVIOUS);
  1913. end;
  1914. function TreeView_GetParent(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1915. begin
  1916. TreeView_GetParent:=TreeView_GetNextItem(hwnd,hitem,TVGN_PARENT);
  1917. end;
  1918. function TreeView_GetFirstVisible(hwnd : HWND) : LRESULT;
  1919. begin
  1920. TreeView_GetFirstVisible:=TreeView_GetNextItem(hwnd,HTREEITEM(nil),TVGN_FIRSTVISIBLE);
  1921. end;
  1922. function TreeView_GetNextVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1923. begin
  1924. TreeView_GetNextVisible:=TreeView_GetNextItem(hwnd,hitem,TVGN_NEXTVISIBLE);
  1925. end;
  1926. function TreeView_GetPrevVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1927. begin
  1928. TreeView_GetPrevVisible:=TreeView_GetNextItem(hwnd,hitem,TVGN_PREVIOUSVISIBLE);
  1929. end;
  1930. function TreeView_GetSelection(hwnd : HWND) : LRESULT;
  1931. begin
  1932. TreeView_GetSelection:=TreeView_GetNextItem(hwnd,HTREEITEM(nil),TVGN_CARET);
  1933. end;
  1934. function TreeView_GetDropHilight(hwnd : HWND) : LRESULT;
  1935. begin
  1936. TreeView_GetDropHilight:=TreeView_GetNextItem(hwnd,HTREEITEM(nil),TVGN_DROPHILITE);
  1937. end;
  1938. function TreeView_GetRoot(hwnd : HWND) : LRESULT;
  1939. begin
  1940. TreeView_GetRoot:=TreeView_GetNextItem(hwnd,HTREEITEM(nil),TVGN_ROOT);
  1941. end;
  1942. function TreeView_Select(hwnd:HWND;hitem:HTREEITEM;code : Integer) : LRESULT;
  1943. begin
  1944. TreeView_Select:=SendMessage(hwnd,TVM_SELECTITEM,WPARAM(code),LPARAM(hitem));
  1945. end;
  1946. function TreeView_SelectItem(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1947. begin
  1948. TreeView_SelectItem:=TreeView_Select(hwnd,hitem,TVGN_CARET);
  1949. end;
  1950. function TreeView_SelectDropTarget(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1951. begin
  1952. TreeView_SelectDropTarget:=TreeView_Select(hwnd,hitem,TVGN_DROPHILITE);
  1953. end;
  1954. function TreeView_SelectSetFirstVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1955. begin
  1956. TreeView_SelectSetFirstVisible:=TreeView_Select(hwnd,hitem,TVGN_FIRSTVISIBLE);
  1957. end;
  1958. function TreeView_GetItem(hwnd:HWND;var item : TV_ITEM) : LRESULT;
  1959. begin
  1960. TreeView_GetItem:=SendMessage(hwnd,TVM_GETITEM,0,LPARAM(@item));
  1961. end;
  1962. function TreeView_SetItem(hwnd:HWND;var item : TV_ITEM) : LRESULT;
  1963. begin
  1964. TreeView_SetItem:=SendMessage(hwnd,TVM_SETITEM,0,LPARAM(@item));
  1965. end;
  1966. function TreeView_EditLabel(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1967. begin
  1968. TreeView_EditLabel:=SendMessage(hwnd,TVM_EDITLABEL,0,LPARAM(hitem));
  1969. end;
  1970. function TreeView_GetEditControl(hwnd : HWND) : LRESULT;
  1971. begin
  1972. TreeView_GetEditControl:=SendMessage(hwnd,TVM_GETEDITCONTROL,0,0);
  1973. end;
  1974. function TreeView_GetVisibleCount(hwnd : HWND) : LRESULT;
  1975. begin
  1976. TreeView_GetVisibleCount:=SendMessage(hwnd,TVM_GETVISIBLECOUNT,0,0);
  1977. end;
  1978. function TreeView_HitTest(hwnd:HWND;lpht : LPTV_HITTESTINFO) : LRESULT;
  1979. begin
  1980. TreeView_HitTest:=SendMessage(hwnd,TVM_HITTEST,0,LPARAM(lpht));
  1981. end;
  1982. function TreeView_CreateDragImage(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1983. begin
  1984. TreeView_CreateDragImage:=SendMessage(hwnd,TVM_CREATEDRAGIMAGE,0,LPARAM(hitem));
  1985. end;
  1986. function TreeView_SortChildren(hwnd:HWND;hitem:HTREEITEM;recurse : Integer) : LRESULT;
  1987. begin
  1988. TreeView_SortChildren:=SendMessage(hwnd,TVM_SORTCHILDREN,WPARAM(recurse),LPARAM(hitem));
  1989. end;
  1990. function TreeView_EnsureVisible(hwnd:HWND;hitem : HTREEITEM) : LRESULT;
  1991. begin
  1992. TreeView_EnsureVisible:=SendMessage(hwnd,TVM_ENSUREVISIBLE,0,LPARAM(hitem));
  1993. end;
  1994. function TreeView_SortChildrenCB(hwnd:HWND;psort:LPTV_SORTCB;recurse : Integer) : LRESULT;
  1995. begin
  1996. TreeView_SortChildrenCB:=SendMessage(hwnd,TVM_SORTCHILDRENCB,WPARAM(recurse),LPARAM(psort));
  1997. end;
  1998. function TreeView_EndEditLabelNow(hwnd:HWND;fCancel : Integer) : LRESULT;
  1999. begin
  2000. TreeView_EndEditLabelNow:=SendMessage(hwnd,TVM_ENDEDITLABELNOW,WPARAM(fCancel),0);
  2001. end;
  2002. function TreeView_GetISearchString(hwndTV:HWND;lpsz : LPTSTR) : LRESULT;
  2003. begin
  2004. TreeView_GetISearchString:=SendMessage(hwndTV,TVM_GETISEARCHSTRING,0,LPARAM(lpsz));
  2005. end;
  2006. procedure ZeroMemory(Destination:PVOID; Length:DWORD);
  2007. begin
  2008. FillChar(Destination^,Length,#0);
  2009. end;
  2010. //end common win32 & wince
  2011. {$ifdef WINCE}
  2012. //begin wince only
  2013. function DrawIcon(hDC:HDC; X:Integer; Y:Integer; hIcon:HICON):WINBOOL;
  2014. begin
  2015. DrawIcon:=DrawIconEx(hdc,x,y,hicon,0,0,0,NULL, DI_NORMAL);
  2016. end;
  2017. procedure ExitProcess(uExitCode:UINT);
  2018. begin
  2019. TerminateProcess (GetCurrentProcess, uExitCode);
  2020. end;
  2021. function GetCurrentThread:HANDLE;
  2022. begin
  2023. GetCurrentThread:=SH_CURTHREAD+SYS_HANDLE_BASE;
  2024. end;
  2025. function GetCurrentThreadId:DWORD;
  2026. begin
  2027. GetCurrentThreadId:=Phandle(PUserKData+SYSHANDLE_OFFSET+SH_CURTHREAD*SizeOf(THandle))^;
  2028. end;
  2029. function GetCurrentProcess:HANDLE;
  2030. begin
  2031. GetCurrentProcess:=SH_CURPROC+SYS_HANDLE_BASE;
  2032. end;
  2033. function GetCurrentProcessId:DWORD;
  2034. begin
  2035. GetCurrentProcessId:=Phandle(PUserKData+SYSHANDLE_OFFSET+SH_CURPROC*SizeOf(THandle))^;
  2036. end;
  2037. function GlobalAlloc(uFlags:UINT; dwBytes:DWORD):HGLOBAL;
  2038. begin
  2039. GlobalAlloc:=LocalAlloc(uFlags,dwBytes);
  2040. end;
  2041. function GlobalFree(hMem:HGLOBAL):HGLOBAL;
  2042. begin
  2043. GlobalFree:=LocalFree(hMem);
  2044. end;
  2045. function GlobalReAlloc(hMem:HGLOBAL; dwBytes:DWORD; uFlags:UINT):HGLOBAL;
  2046. begin
  2047. GlobalReAlloc:=LocalReAlloc(hMem, dwBytes, LMEM_MOVEABLE);
  2048. end;
  2049. function GlobalSize(hMem:HGLOBAL):DWORD;
  2050. begin
  2051. GlobalSize:=LocalSize(hMem);
  2052. end;
  2053. function GlobalHandle(pMem:LPCVOID):HGLOBAL;
  2054. begin
  2055. //GlobalHandle:=LocalHandle(pMem);
  2056. GlobalHandle:=HLOCAL(pMem); //see localhandle
  2057. end;
  2058. function GlobalLock(hMem:HGLOBAL):LPVOID;
  2059. begin
  2060. //GlobalLock:=LocalLock(hMem);
  2061. GlobalLock:=LPVOID(hMem); //see locallock
  2062. end;
  2063. function GlobalUnlock(hMem:HGLOBAL):WINBOOL;
  2064. begin
  2065. //GlobalUnlock:=LocalUnlock(hMem);
  2066. GlobalUnlock:=True; //see localunlock
  2067. end;
  2068. function LocalHandle(pMem:LPCVOID):HLOCAL;
  2069. begin
  2070. LocalHandle:=HLOCAL(pMem);
  2071. end;
  2072. function LocalLock(hMem:HLOCAL):LPVOID;
  2073. begin
  2074. LocalLock:=LPVOID(hMem);
  2075. end;
  2076. function LocalUnlock(hMem:HLOCAL):WINBOOL;
  2077. begin
  2078. LocalUnlock:=True;
  2079. end;
  2080. function MsgWaitForMultipleObjects(nCount:DWORD; pHandles:LPHANDLE; fWaitAll:WINBOOL; dwMilliseconds:DWORD; dwWakeMask:DWORD):DWORD;
  2081. begin
  2082. MsgWaitForMultipleObjects:=MsgWaitForMultipleObjectsEx(nCount,pHandles,dwMilliseconds,dwWakeMask,0);
  2083. end;
  2084. function TrackPopupMenu(hMenu:HMENU; uFlags:UINT; x:Integer; y:Integer; nReserved:Integer;hWnd:HWND; var prcRect:RECT):WINBOOL;
  2085. begin
  2086. TrackPopupMenu:=TrackPopupMenuEx(hMenu,uFlags,x,y,hWnd,nil);
  2087. end;
  2088. function PulseEvent(hEvent:HANDLE):WINBOOL;
  2089. begin
  2090. PulseEvent:=EventModify(hEvent,EVENT_PULSE);
  2091. end;
  2092. function ResetEvent(hEvent:HANDLE):WINBOOL;
  2093. begin
  2094. ResetEvent:=EventModify(hEvent,EVENT_RESET);
  2095. end;
  2096. function CheckDlgButton(hDlg:HWND; nIDButton:Integer; uCheck:UINT):WINBOOL;
  2097. begin
  2098. CheckDlgButton:=WINBOOL(SendDlgItemMessage(hDlg, nIDButton, BM_SETCHECK, WPARAM(uCheck), LPARAM(0)));
  2099. end;
  2100. function SetEvent(hEvent:HANDLE):WINBOOL;
  2101. begin
  2102. SetEvent:=EventModify(hEvent,EVENT_SET);
  2103. end;
  2104. function TlsAlloc:DWORD;
  2105. begin
  2106. TlsAlloc:=TlsCall(TLS_FUNCALLOC, 0);
  2107. end;
  2108. function TlsFree(dwTlsIndex:DWORD):WINBOOL;
  2109. begin
  2110. TlsFree:=WINBOOL(TlsCall(TLS_FUNCFREE, dwTlsIndex));
  2111. end;
  2112. //end wince only
  2113. {$endif WINCE}
  2114. {$ifdef WIN32}
  2115. //begin win32 only
  2116. function Internal_ChildWindowFromPoint(hWndParent:HWND; PointX,PointY : LONG):HWND; external 'user32' name 'ChildWindowFromPoint';
  2117. function Internal_ChildWindowFromPointEx(_para1:HWND; _para2X,_Para2Y : LONG; _para3:UINT):HWND; external 'user32' name 'ChildWindowFromPointEx';
  2118. function Internal_DragDetect(hwnd:HWND; ptX, ptY : LONG):WINBOOL; external 'user32' name 'DragDetect';
  2119. function Internal_GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):DWord; external 'kernel32' name 'GetLargestConsoleWindowSize';
  2120. function Internal_LBItemFromPt(hLB:HWND; ptX, ptY : LONG; bAutoScroll:WINBOOL):Integer; external 'comctl32' name 'LBItemFromPt';
  2121. function Internal_MenuItemFromPoint(hWnd:HWND; hMenu:HMENU; ptScreenX, ptScreenY : LONG):Integer; external 'user32' name 'MenuItemFromPoint';
  2122. function Internal_PtInRect(var lprc:RECT; ptX,ptY : LONG):WINBOOL; external 'user32' name 'PtInRect';
  2123. function Internal_WindowFromPoint(PointX,PointY : LONG):HWND; external 'user32' name 'WindowFromPoint';
  2124. function ChildWindowFromPoint(hWndParent:HWND; Point:POINT):HWND;
  2125. begin
  2126. ChildWindowFromPoint:=Internal_ChildWindowFromPoint(hWndParent, Point.X, Point.Y);
  2127. end;
  2128. function ChildWindowFromPointEx(_para1:HWND; _para2:POINT; _para3:UINT):HWND;
  2129. begin
  2130. ChildWindowFromPointEx:=Internal_ChildWindowFromPointEx(_para1,_para2.X,_para2.Y,_para3);
  2131. end;
  2132. function DragDetect(hwnd:HWND; pt:POINT):WINBOOL; {external 'user32' name 'DragDetect'; bug report 1807. PM }
  2133. begin
  2134. DragDetect:=Internal_DragDetect(hWnd, pt.X, pt.Y);
  2135. end;
  2136. function GetLargestConsoleWindowSize(hConsoleOutput:HANDLE):COORD;
  2137. var
  2138. res : dword;
  2139. begin
  2140. res:=InternalGetLargestConsoleWindowSize(hConsoleOutput);
  2141. GetLargestConsoleWindowSize:=COORD(res);
  2142. end;
  2143. function LBItemFromPt(hLB:HWND; pt:POINT; bAutoScroll:WINBOOL):Integer; { external 'comctl32' bug report 1807. PM }
  2144. begin
  2145. LBItemFromPt:=Internal_LBItemFromPt(hLB, pt.X, pt.Y, bAutoScroll);
  2146. end;
  2147. function MenuItemFromPoint(hWnd:HWND; hMenu:HMENU; ptScreen:POINT):Integer; {external 'user32' name 'MenuItemFromPoint'; bug report 1807. PM }
  2148. begin
  2149. MenuItemFromPoint:=Internal_MenuItemFromPoint(hWnd, hMenu, ptScreen.X, ptScreen.Y);
  2150. end;
  2151. function PtInRect(var lprc:RECT; pt:POINT):WINBOOL;
  2152. begin
  2153. PtInRect:=Internal_PtInRect(lprc,pt.X,pt.Y);
  2154. end;
  2155. function PtInRect(lprc:LPRECT; pt:POINT):WINBOOL;
  2156. begin
  2157. PtInRect:=Internal_PtInRect(lprc^,pt.X,pt.Y);
  2158. end;
  2159. function WindowFromPoint(Point:POINT):HWND;
  2160. begin
  2161. WindowFromPoint:=Internal_WindowFromPoint(Point.X, Point.Y);
  2162. end;
  2163. //end win32 only
  2164. //begin win32 or wince not checked
  2165. //end win32 or wince not checked
  2166. {$endif WIN32}
  2167. {$endif read_implementation}