开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaWinUser.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：670k
源码类别：

Windows编程

开发平台：

Delphi

JwaWinUser.pas：源码内容
  1. // original NT 32 bit dialog template:
  2. //
  4. type
  5.   DLGTEMPLATE = packed record
  6.     style: DWORD;
  7.     dwExtendedStyle: DWORD;
  8.     cdit: WORD;
  9.     x: short;
  10.     y: short;
  11.     cx: short;
  12.     cy: short;
  13.   end;
  14.   {$EXTERNALSYM DLGTEMPLATE}
  15.   TDlgTemplate = DLGTEMPLATE;
  17.   LPDLGTEMPLATEA = ^DLGTEMPLATE;
  18.   {$EXTERNALSYM LPDLGTEMPLATEA}
  19.   LPDLGTEMPLATEW = ^DLGTEMPLATE;
  20.   {$EXTERNALSYM LPDLGTEMPLATEW}
  22.   LPCDLGTEMPLATEA = ^DLGTEMPLATE;
  23.   {$EXTERNALSYM LPCDLGTEMPLATEA}
  24.   LPCDLGTEMPLATEW = ^DLGTEMPLATE;
  25.   {$EXTERNALSYM LPCDLGTEMPLATEW}
  27. {$IFDEF UNICODE}
  28.   LPDLGTEMPLATE = LPDLGTEMPLATEW;
  29.   {$EXTERNALSYM LPDLGTEMPLATE}
  30.   LPCDLGTEMPLATE = LPCDLGTEMPLATEW;
  31.   {$EXTERNALSYM LPCDLGTEMPLATE}
  32. {$ELSE}
  33.   LPDLGTEMPLATE = LPDLGTEMPLATEA;
  34.   {$EXTERNALSYM LPDLGTEMPLATE}
  35.   LPCDLGTEMPLATE = LPCDLGTEMPLATEA;
  36.   {$EXTERNALSYM LPCDLGTEMPLATE}
  37. {$ENDIF}
  39. //
  40. // 32 bit Dialog item template.
  41. //
  43.   DLGITEMTEMPLATE = packed record
  44.     style: DWORD;
  45.     dwExtendedStyle: DWORD;
  46.     x: short;
  47.     y: short;
  48.     cx: short;
  49.     cy: short;
  50.     id: WORD;
  51.   end;
  52.   {$EXTERNALSYM DLGITEMTEMPLATE}
  53.   TDlgItemTemplate = DLGITEMTEMPLATE;
  55.   PDLGITEMTEMPLATEA = ^DLGITEMTEMPLATE;
  56.   {$EXTERNALSYM PDLGITEMTEMPLATE}
  57.   PDLGITEMTEMPLATEW = ^DLGITEMTEMPLATE;
  58.   {$EXTERNALSYM PDLGITEMTEMPLATE}
  60.   LPDLGITEMTEMPLATEA = ^DLGITEMTEMPLATE;
  61.   {$EXTERNALSYM LPDLGITEMTEMPLATE}
  62.   LPDLGITEMTEMPLATEW = ^DLGITEMTEMPLATE;
  63.   {$EXTERNALSYM LPDLGITEMTEMPLATE}
  65. {$IFDEF UNICODE}
  66.   PDLGITEMTEMPLATE = PDLGITEMTEMPLATEW;
  67.   {$EXTERNALSYM PDLGITEMTEMPLATE}
  68.   LPDLGITEMTEMPLATE = PDLGITEMTEMPLATEW;
  69.   {$EXTERNALSYM LPDLGITEMTEMPLATE}
  70. {$ELSE}
  71.   PDLGITEMTEMPLATE = PDLGITEMTEMPLATEA;
  72.   {$EXTERNALSYM PDLGITEMTEMPLATE}
  73.   LPDLGITEMTEMPLATE = PDLGITEMTEMPLATEA;
  74.   {$EXTERNALSYM LPDLGITEMTEMPLATE}
  75. {$ENDIF}
  77. // #include <poppack.h> // Resume normal packing//
  79. function CreateDialogParamA(hInstance: HINSTANCE; lpTemplateName: LPCSTR;
  80.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  81. {$EXTERNALSYM CreateDialogParamA}
  82. function CreateDialogParamW(hInstance: HINSTANCE; lpTemplateName: LPCWSTR;
  83.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  84. {$EXTERNALSYM CreateDialogParamW}
  86. {$IFDEF UNICODE}
  87. function CreateDialogParam(hInstance: HINSTANCE; lpTemplateName: LPCWSTR;
  88.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  89. {$EXTERNALSYM CreateDialogParam}
  90. {$ELSE}
  91. function CreateDialogParam(hInstance: HINSTANCE; lpTemplateName: LPCSTR;
  92.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  93. {$EXTERNALSYM CreateDialogParam}
  94. {$ENDIF}
  96. function CreateDialogIndirectParamA(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  97.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  98. {$EXTERNALSYM CreateDialogIndirectParamA}
  99. function CreateDialogIndirectParamW(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  100.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  101. {$EXTERNALSYM CreateDialogIndirectParamW}
  103. {$IFDEF UNICODE}
  104. function CreateDialogIndirectParam(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  105.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  106. {$EXTERNALSYM CreateDialogIndirectParam}
  107. {$ELSE}
  108. function CreateDialogIndirectParam(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  109.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): HWND; stdcall;
  110. {$EXTERNALSYM CreateDialogIndirectParam}
  111. {$ENDIF}
  113. function CreateDialogA(hInstance: HINSTANCE; lpName: LPCSTR; hWndParent: HWND;
  114.   lpDialogFunc: DLGPROC): HWND;
  115. {$EXTERNALSYM CreateDialogA}
  116. function CreateDialogW(hInstance: HINSTANCE; lpName: LPCWSTR; hWndParent: HWND;
  117.   lpDialogFunc: DLGPROC): HWND;
  118. {$EXTERNALSYM CreateDialogW}
  120. {$IFDEF UNICODE}
  121. function CreateDialog(hInstance: HINSTANCE; lpName: LPCWSTR; hWndParent: HWND;
  122.   lpDialogFunc: DLGPROC): HWND;
  123. {$EXTERNALSYM CreateDialog}
  124. {$ELSE}
  125. function CreateDialog(hInstance: HINSTANCE; lpName: LPCSTR; hWndParent: HWND;
  126.   lpDialogFunc: DLGPROC): HWND;
  127. {$EXTERNALSYM CreateDialog}
  128. {$ENDIF}
  130. function CreateDialogIndirectA(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  131.   hWndParent: HWND; lpDialogFunc: DLGPROC): HWND;
  132. {$EXTERNALSYM CreateDialogIndirectA}
  133. function CreateDialogIndirectW(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  134.   hWndParent: HWND; lpDialogFunc: DLGPROC): HWND;
  135. {$EXTERNALSYM CreateDialogIndirectW}
  137. {$IFDEF UNICODE}
  138. function CreateDialogIndirect(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  139.   hWndParent: HWND; lpDialogFunc: DLGPROC): HWND;
  140. {$EXTERNALSYM CreateDialogIndirect}
  141. {$ELSE}
  142. function CreateDialogIndirect(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  143.   hWndParent: HWND; lpDialogFunc: DLGPROC): HWND;
  144. {$EXTERNALSYM CreateDialogIndirect}
  145. {$ENDIF}
  147. function DialogBoxParamA(hInstance: HINSTANCE; lpTemplateName: LPCSTR;
  148.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): INT_PTR; stdcall;
  149. {$EXTERNALSYM DialogBoxParamA}
  150. function DialogBoxParamW(hInstance: HINSTANCE; lpTemplateName: LPCWSTR;
  151.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): INT_PTR; stdcall;
  152. {$EXTERNALSYM DialogBoxParamW}
  154. {$IFDEF UNICODE}
  155. function DialogBoxParam(hInstance: HINSTANCE; lpTemplateName: LPCWSTR;
  156.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): INT_PTR; stdcall;
  157. {$EXTERNALSYM DialogBoxParam}
  158. {$ELSE}
  159. function DialogBoxParam(hInstance: HINSTANCE; lpTemplateName: LPCSTR;
  160.   hWndParent: HWND; lpDialogFunc: DLGPROC; dwInitParam: LPARAM): INT_PTR; stdcall;
  161. {$EXTERNALSYM DialogBoxParam}
  162. {$ENDIF}
  164. function DialogBoxIndirectParamA(hInstance: HINSTANCE;
  165.   const hDialogTemplate: DLGTEMPLATE; hWndParent: HWND; lpDialogFunc: DLGPROC;
  166.   dwInitParam: LPARAM): INT_PTR; stdcall;
  167. {$EXTERNALSYM DialogBoxIndirectParamA}
  168. function DialogBoxIndirectParamW(hInstance: HINSTANCE;
  169.   const hDialogTemplate: DLGTEMPLATE; hWndParent: HWND; lpDialogFunc: DLGPROC;
  170.   dwInitParam: LPARAM): INT_PTR; stdcall;
  171. {$EXTERNALSYM DialogBoxIndirectParamW}
  173. {$IFDEF UNICODE}
  174. function DialogBoxIndirectParam(hInstance: HINSTANCE;
  175.   const hDialogTemplate: DLGTEMPLATE; hWndParent: HWND; lpDialogFunc: DLGPROC;
  176.   dwInitParam: LPARAM): INT_PTR; stdcall;
  177. {$EXTERNALSYM DialogBoxIndirectParam}
  178. {$ELSE}
  179. function DialogBoxIndirectParam(hInstance: HINSTANCE;
  180.   const hDialogTemplate: DLGTEMPLATE; hWndParent: HWND; lpDialogFunc: DLGPROC;
  181.   dwInitParam: LPARAM): INT_PTR; stdcall;
  182. {$EXTERNALSYM DialogBoxIndirectParam}
  183. {$ENDIF}
  185. function DialogBoxA(hInstance: HINSTANCE; lpTemplate: LPCSTR; hWndParent: HWND;
  186.   lpDialogFunc: DLGPROC): INT_PTR;
  187. {$EXTERNALSYM DialogBoxA}
  189. function DialogBoxW(hInstance: HINSTANCE; lpTemplate: LPCWSTR; hWndParent: HWND;
  190.   lpDialogFunc: DLGPROC): INT_PTR;
  191. {$EXTERNALSYM DialogBoxW}
  193. {$IFDEF UNICODE}
  194. function DialogBox(hInstance: HINSTANCE; lpTemplate: LPCWSTR; hWndParent: HWND;
  195.   lpDialogFunc: DLGPROC): INT_PTR;
  196. {$EXTERNALSYM DialogBox}
  197. {$ELSE}
  198. function DialogBox(hInstance: HINSTANCE; lpTemplate: LPCSTR; hWndParent: HWND;
  199.   lpDialogFunc: DLGPROC): INT_PTR;
  200. {$EXTERNALSYM DialogBox}
  201. {$ENDIF}
  203. function DialogBoxIndirectA(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  204.   hWndParent: HWND; lpDialogFunc: DLGPROC): INT_PTR;
  205. {$EXTERNALSYM DialogBoxIndirectA}
  207. function DialogBoxIndirectW(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  208.   hWndParent: HWND; lpDialogFunc: DLGPROC): INT_PTR;
  209. {$EXTERNALSYM DialogBoxIndirectW}
  211. {$IFDEF UNICODE}
  212. function DialogBoxIndirect(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  213.   hWndParent: HWND; lpDialogFunc: DLGPROC): INT_PTR;
  214. {$EXTERNALSYM DialogBoxIndirect}
  215. {$ELSE}
  216. function DialogBoxIndirect(hInstance: HINSTANCE; const lpTemplate: DLGTEMPLATE;
  217.   hWndParent: HWND; lpDialogFunc: DLGPROC): INT_PTR;
  218. {$EXTERNALSYM DialogBoxIndirect}
  219. {$ENDIF}
  221. function EndDialog(hDlg: HWND; nResult: INT_PTR): BOOL; stdcall;
  222. {$EXTERNALSYM EndDialog}
  224. function GetDlgItem(hDlg: HWND; nIDDlgItem: Integer): HWND; stdcall;
  225. {$EXTERNALSYM GetDlgItem}
  227. function SetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer; uValue: UINT; bSigned: BOOL): BOOL; stdcall;
  228. {$EXTERNALSYM SetDlgItemInt}
  230. function GetDlgItemInt(hDlg: HWND; nIDDlgItem: Integer; lpTranslated: LPBOOL;
  231.   bSigned: BOOL): UINT; stdcall;
  232. {$EXTERNALSYM GetDlgItemInt}
  234. function SetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer; lpString: LPCSTR): BOOL; stdcall;
  235. {$EXTERNALSYM SetDlgItemTextA}
  236. function SetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer; lpString: LPCWSTR): BOOL; stdcall;
  237. {$EXTERNALSYM SetDlgItemTextW}
  239. {$IFDEF UNICODE}
  240. function SetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: LPCWSTR): BOOL; stdcall;
  241. {$EXTERNALSYM SetDlgItemText}
  242. {$ELSE}
  243. function SetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: LPCSTR): BOOL; stdcall;
  244. {$EXTERNALSYM SetDlgItemText}
  245. {$ENDIF}
  247. function GetDlgItemTextA(hDlg: HWND; nIDDlgItem: Integer; lpString: LPSTR;
  248.   nMaxCount: Integer): UINT; stdcall;
  249. {$EXTERNALSYM GetDlgItemTextA}
  250. function GetDlgItemTextW(hDlg: HWND; nIDDlgItem: Integer; lpString: LPWSTR;
  251.   nMaxCount: Integer): UINT; stdcall;
  252. {$EXTERNALSYM GetDlgItemTextW}
  254. {$IFDEF UNICODE}
  255. function GetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: LPWSTR;
  256.   nMaxCount: Integer): UINT; stdcall;
  257. {$EXTERNALSYM GetDlgItemText}
  258. {$ELSE}
  259. function GetDlgItemText(hDlg: HWND; nIDDlgItem: Integer; lpString: LPSTR;
  260.   nMaxCount: Integer): UINT; stdcall;
  261. {$EXTERNALSYM GetDlgItemText}
  262. {$ENDIF}
  264. function CheckDlgButton(hDlg: HWND; nIDButton: Integer; uCheck: UINT): BOOL; stdcall;
  265. {$EXTERNALSYM CheckDlgButton}
  267. function CheckRadioButton(hDlg: HWND; nIDFirstButton, nIDLastButton: Integer;
  268.   nIDCheckButton: Integer): BOOL; stdcall;
  269. {$EXTERNALSYM CheckRadioButton}
  271. function IsDlgButtonChecked(hDlg: HWND; nIDButton: Integer): UINT; stdcall;
  272. {$EXTERNALSYM IsDlgButtonChecked}
  274. function SendDlgItemMessageA(hDlg: HWND; nIDDlgItem: Integer; Msg: UINT;
  275.   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  276. {$EXTERNALSYM SendDlgItemMessageA}
  277. function SendDlgItemMessageW(hDlg: HWND; nIDDlgItem: Integer; Msg: UINT;
  278.   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  279. {$EXTERNALSYM SendDlgItemMessageW}
  281. {$IFDEF UNICODE}
  282. function SendDlgItemMessage(hDlg: HWND; nIDDlgItem: Integer; Msg: UINT;
  283.   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  284. {$EXTERNALSYM SendDlgItemMessage}
  285. {$ELSE}
  286. function SendDlgItemMessage(hDlg: HWND; nIDDlgItem: Integer; Msg: UINT;
  287.   wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  288. {$EXTERNALSYM SendDlgItemMessage}
  289. {$ENDIF}
  291. function GetNextDlgGroupItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  292. {$EXTERNALSYM GetNextDlgGroupItem}
  294. function GetNextDlgTabItem(hDlg: HWND; hCtl: HWND; bPrevious: BOOL): HWND; stdcall;
  295. {$EXTERNALSYM GetNextDlgTabItem}
  297. function GetDlgCtrlID(hWnd: HWND): Integer; stdcall;
  298. {$EXTERNALSYM GetDlgCtrlID}
  300. function GetDialogBaseUnits: Longint; stdcall;
  301. {$EXTERNALSYM GetDialogBaseUnits(VOID v)}
  303. function DefDlgProcA(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  304. {$EXTERNALSYM DefDlgProcA}
  305. function DefDlgProcW(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  306. {$EXTERNALSYM DefDlgProcW}
  308. {$IFDEF UNICODE}
  309. function DefDlgProc(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  310. {$EXTERNALSYM DefDlgProc}
  311. {$ELSE}
  312. function DefDlgProc(hDlg: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  313. {$EXTERNALSYM DefDlgProc}
  314. {$ENDIF}
  316. //
  317. // Window extra byted needed for private dialog classes.
  318. //
  320. const
  321.   DLGWINDOWEXTRA = 30;
  322.   {$EXTERNALSYM DLGWINDOWEXTRA}
  324. function CallMsgFilterA(lpMsg: LPMSG; nCode: Integer): BOOL; stdcall;
  325. {$EXTERNALSYM CallMsgFilterA}
  326. function CallMsgFilterW(lpMsg: LPMSG; nCode: Integer): BOOL; stdcall;
  327. {$EXTERNALSYM CallMsgFilterW}
  329. {$IFDEF UNICODE}
  330. function CallMsgFilter(lpMsg: LPMSG; nCode: Integer): BOOL; stdcall;
  331. {$EXTERNALSYM CallMsgFilter}
  332. {$ELSE}
  333. function CallMsgFilter(lpMsg: LPMSG; nCode: Integer): BOOL; stdcall;
  334. {$EXTERNALSYM CallMsgFilter}
  335. {$ENDIF}
  337. //
  338. // Clipboard Manager Functions
  339. //
  341. function OpenClipboard(hWndNewOwner: HWND): BOOL; stdcall;
  342. {$EXTERNALSYM OpenClipboard}
  344. function CloseClipboard: BOOL; stdcall;
  345. {$EXTERNALSYM CloseClipboard}
  347. function GetClipboardSequenceNumber: DWORD; stdcall;
  348. {$EXTERNALSYM GetClipboardSequenceNumber}
  350. function GetClipboardOwner: HWND; stdcall;
  351. {$EXTERNALSYM GetClipboardOwner}
  353. function SetClipboardViewer(hWndNewViewer: HWND): HWND; stdcall;
  354. {$EXTERNALSYM SetClipboardViewer}
  356. function GetClipboardViewer: HWND; stdcall;
  357. {$EXTERNALSYM GetClipboardViewer}
  359. function ChangeClipboardChain(hWndRemove, hWndNewNext: HWND): BOOL; stdcall;
  360. {$EXTERNALSYM ChangeClipboardChain}
  362. function SetClipboardData(uFormat: UINT; hMem: HANDLE): HANDLE; stdcall;
  363. {$EXTERNALSYM SetClipboardData}
  365. function GetClipboardData(uFormat: UINT): HANDLE; stdcall;
  366. {$EXTERNALSYM GetClipboardData}
  368. function RegisterClipboardFormatA(lpszFormat: LPCSTR): UINT; stdcall;
  369. {$EXTERNALSYM RegisterClipboardFormatA}
  370. function RegisterClipboardFormatW(lpszFormat: LPCWSTR): UINT; stdcall;
  371. {$EXTERNALSYM RegisterClipboardFormatW}
  373. {$IFDEF UNICODE}
  374. function RegisterClipboardFormat(lpszFormat: LPCWSTR): UINT; stdcall;
  375. {$EXTERNALSYM RegisterClipboardFormat}
  376. {$ELSE}
  377. function RegisterClipboardFormat(lpszFormat: LPCSTR): UINT; stdcall;
  378. {$EXTERNALSYM RegisterClipboardFormat}
  379. {$ENDIF}
  381. function CountClipboardFormats: Integer; stdcall;
  382. {$EXTERNALSYM CountClipboardFormats}
  384. function EnumClipboardFormats(format: UINT): UINT; stdcall;
  385. {$EXTERNALSYM EnumClipboardFormats}
  387. function GetClipboardFormatNameA(format: UINT; lpszFormatName: LPSTR;
  388.   cchMaxCount: Integer): Integer; stdcall;
  389. {$EXTERNALSYM GetClipboardFormatNameA}
  390. function GetClipboardFormatNameW(format: UINT; lpszFormatName: LPWSTR;
  391.   cchMaxCount: Integer): Integer; stdcall;
  392. {$EXTERNALSYM GetClipboardFormatNameW}
  394. {$IFDEF UNICODE}
  395. function GetClipboardFormatName(format: UINT; lpszFormatName: LPWSTR;
  396.   cchMaxCount: Integer): Integer; stdcall;
  397. {$EXTERNALSYM GetClipboardFormatName}
  398. {$ELSE}
  399. function GetClipboardFormatName(format: UINT; lpszFormatName: LPSTR;
  400.   cchMaxCount: Integer): Integer; stdcall;
  401. {$EXTERNALSYM GetClipboardFormatName}
  402. {$ENDIF}
  404. function EmptyClipboard: BOOL; stdcall;
  405. {$EXTERNALSYM EmptyClipboard}
  407. function IsClipboardFormatAvailable(format: UINT): BOOL; stdcall;
  408. {$EXTERNALSYM IsClipboardFormatAvailable}
  410. function GetPriorityClipboardFormat(paFormatPriorityList: PUINT; cFormats: Integer): Integer; stdcall;
  411. {$EXTERNALSYM GetPriorityClipboardFormat}
  413. function GetOpenClipboardWindow: HWND; stdcall;
  414. {$EXTERNALSYM GetOpenClipboardWindow}
  416. //
  417. // Character Translation Routines
  418. //
  420. function CharToOemA(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  421. {$EXTERNALSYM CharToOemA}
  422. function CharToOemW(lpszSrc: LPCWSTR; lpszDst: LPSTR): BOOL; stdcall;
  423. {$EXTERNALSYM CharToOemW}
  425. {$IFDEF UNICODE}
  426. function CharToOem(lpszSrc: LPCWSTR; lpszDst: LPSTR): BOOL; stdcall;
  427. {$EXTERNALSYM CharToOem}
  428. {$ELSE}
  429. function CharToOem(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  430. {$EXTERNALSYM CharToOem}
  431. {$ENDIF}
  433. function OemToCharA(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  434. {$EXTERNALSYM OemToCharA}
  435. function OemToCharW(lpszSrc: LPCSTR; lpszDst: LPWSTR): BOOL; stdcall;
  436. {$EXTERNALSYM OemToCharW}
  438. {$IFDEF UNICODE}
  439. function OemToChar(lpszSrc: LPCSTR; lpszDst: LPWSTR): BOOL; stdcall;
  440. {$EXTERNALSYM OemToChar}
  441. {$ELSE}
  442. function OemToChar(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL; stdcall;
  443. {$EXTERNALSYM OemToChar}
  444. {$ENDIF}
  446. function CharToOemBuffA(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  447. {$EXTERNALSYM CharToOemBuffA}
  448. function CharToOemBuffW(lpszSrc: LPCWSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  449. {$EXTERNALSYM CharToOemBuffW}
  451. {$IFDEF UNICODE}
  452. function CharToOemBuff(lpszSrc: LPCWSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  453. {$EXTERNALSYM CharToOemBuff}
  454. {$ELSE}
  455. function CharToOemBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  456. {$EXTERNALSYM CharToOemBuff}
  457. {$ENDIF}
  459. function OemToCharBuffA(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  460. {$EXTERNALSYM OemToCharBuffA}
  461. function OemToCharBuffW(lpszSrc: LPCSTR; lpszDst: LPWSTR; cchDstLength: DWORD): BOOL; stdcall;
  462. {$EXTERNALSYM OemToCharBuffW}
  464. {$IFDEF UNICODE}
  465. function OemToCharBuff(lpszSrc: LPCSTR; lpszDst: LPWSTR; cchDstLength: DWORD): BOOL; stdcall;
  466. {$EXTERNALSYM OemToCharBuff}
  467. {$ELSE}
  468. function OemToCharBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL; stdcall;
  469. {$EXTERNALSYM OemToCharBuff}
  470. {$ENDIF}
  472. function CharUpperA(lpsz: LPSTR): LPSTR; stdcall;
  473. {$EXTERNALSYM CharUpperA}
  474. function CharUpperW(lpsz: LPWSTR): LPWSTR; stdcall;
  475. {$EXTERNALSYM CharUpperW}
  477. {$IFDEF UNICODE}
  478. function CharUpper(lpsz: LPWSTR): LPWSTR; stdcall;
  479. {$EXTERNALSYM CharUpper}
  480. {$ELSE}
  481. function CharUpper(lpsz: LPSTR): LPSTR; stdcall;
  482. {$EXTERNALSYM CharUpper}
  483. {$ENDIF}
  485. function CharUpperBuffA(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  486. {$EXTERNALSYM CharUpperBuffA}
  487. function CharUpperBuffW(lpsz: LPWSTR; cchLength: DWORD): DWORD; stdcall;
  488. {$EXTERNALSYM CharUpperBuffW}
  490. {$IFDEF UNICODE}
  491. function CharUpperBuff(lpsz: LPWSTR; cchLength: DWORD): DWORD; stdcall;
  492. {$EXTERNALSYM CharUpperBuff}
  493. {$ELSE}
  494. function CharUpperBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  495. {$EXTERNALSYM CharUpperBuff}
  496. {$ENDIF}
  498. function CharLowerA(lpsz: LPSTR): LPSTR; stdcall;
  499. {$EXTERNALSYM CharLowerA}
  500. function CharLowerW(lpsz: LPWSTR): LPWSTR; stdcall;
  501. {$EXTERNALSYM CharLowerW}
  503. {$IFDEF UNICODE}
  504. function CharLower(lpsz: LPWSTR): LPWSTR; stdcall;
  505. {$EXTERNALSYM CharLower}
  506. {$ELSE}
  507. function CharLower(lpsz: LPSTR): LPSTR; stdcall;
  508. {$EXTERNALSYM CharLower}
  509. {$ENDIF}
  511. function CharLowerBuffA(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  512. {$EXTERNALSYM CharLowerBuffA}
  513. function CharLowerBuffW(lpsz: LPWSTR; cchLength: DWORD): DWORD; stdcall;
  514. {$EXTERNALSYM CharLowerBuffW}
  516. {$IFDEF UNICODE}
  517. function CharLowerBuff(lpsz: LPWSTR; cchLength: DWORD): DWORD; stdcall;
  518. {$EXTERNALSYM CharLowerBuff}
  519. {$ELSE}
  520. function CharLowerBuff(lpsz: LPSTR; cchLength: DWORD): DWORD; stdcall;
  521. {$EXTERNALSYM CharLowerBuff}
  522. {$ENDIF}
  524. function CharNextA(lpsz: LPCSTR): LPSTR; stdcall;
  525. {$EXTERNALSYM CharNextA}
  526. function CharNextW(lpsz: LPCWSTR): LPWSTR; stdcall;
  527. {$EXTERNALSYM CharNextW}
  529. {$IFDEF UNICODE}
  530. function CharNext(lpsz: LPCWSTR): LPWSTR; stdcall;
  531. {$EXTERNALSYM CharNext}
  532. {$ELSE}
  533. function CharNext(lpsz: LPCSTR): LPSTR; stdcall;
  534. {$EXTERNALSYM CharNext}
  535. {$ENDIF}
  537. function CharPrevA(lpszStart: LPCSTR; lpszCurrent: LPCSTR): LPSTR; stdcall;
  538. {$EXTERNALSYM CharPrevA}
  539. function CharPrevW(lpszStart: LPCWSTR; lpszCurrent: LPCWSTR): LPWSTR; stdcall;
  540. {$EXTERNALSYM CharPrevW}
  542. {$IFDEF UNICODE}
  543. function CharPrev(lpszStart: LPCWSTR; lpszCurrent: LPCWSTR): LPWSTR; stdcall;
  544. {$EXTERNALSYM CharPrev}
  545. {$ELSE}
  546. function CharPrev(lpszStart: LPCSTR; lpszCurrent: LPCSTR): LPSTR; stdcall;
  547. {$EXTERNALSYM CharPrev}
  548. {$ENDIF}
  550. function CharNextExA(CodePage: WORD; lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  551. {$EXTERNALSYM CharNextExA}
  553. function CharPrevExA(CodePage: WORD; lpStart, lpCurrentChar: LPCSTR; dwFlags: DWORD): LPSTR; stdcall;
  554. {$EXTERNALSYM CharPrevExA}
  556. //
  557. // Compatibility defines for character translation routines
  558. //
  560. function AnsiToOem(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL;
  561. {$EXTERNALSYM AnsiToOem}
  563. function OemToAnsi(lpszSrc: LPCSTR; lpszDst: LPSTR): BOOL;
  564. {$EXTERNALSYM OemToAnsi}
  566. function AnsiToOemBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL;
  567. {$EXTERNALSYM AnsiToOemBuff}
  569. function OemToAnsiBuff(lpszSrc: LPCSTR; lpszDst: LPSTR; cchDstLength: DWORD): BOOL;
  570. {$EXTERNALSYM OemToAnsiBuff}
  572. function AnsiUpper(lpsz: LPSTR): LPSTR;
  573. {$EXTERNALSYM AnsiUpper}
  575. function AnsiUpperBuff(lpsz: LPSTR; cchLength: DWORD): DWORD;
  576. {$EXTERNALSYM AnsiUpperBuff}
  578. function AnsiLower(lpsz: LPSTR): LPSTR;
  579. {$EXTERNALSYM AnsiLower}
  581. function AnsiLowerBuff(lpsz: LPSTR; cchLength: DWORD): DWORD;
  582. {$EXTERNALSYM AnsiLowerBuff}
  584. function AnsiNext(lpsz: LPCSTR): LPSTR;
  585. {$EXTERNALSYM AnsiNext}
  587. function AnsiPrev(lpszStart: LPCSTR; lpszCurrent: LPCSTR): LPSTR;
  588. {$EXTERNALSYM AnsiPrev}
  590. //
  591. // Language dependent Routines
  592. //
  594. function IsCharAlphaA(ch: CHAR): BOOL; stdcall;
  595. {$EXTERNALSYM IsCharAlphaA}
  596. function IsCharAlphaW(ch: WCHAR): BOOL; stdcall;
  597. {$EXTERNALSYM IsCharAlphaW}
  599. {$IFDEF UNICODE}
  600. function IsCharAlpha(ch: WCHAR): BOOL; stdcall;
  601. {$EXTERNALSYM IsCharAlpha}
  602. {$ELSE}
  603. function IsCharAlpha(ch: CHAR): BOOL; stdcall;
  604. {$EXTERNALSYM IsCharAlpha}
  605. {$ENDIF}
  607. function IsCharAlphaNumericA(ch: CHAR): BOOL; stdcall;
  608. {$EXTERNALSYM IsCharAlphaNumericA}
  609. function IsCharAlphaNumericW(ch: WCHAR): BOOL; stdcall;
  610. {$EXTERNALSYM IsCharAlphaNumericW}
  612. {$IFDEF UNICODE}
  613. function IsCharAlphaNumeric(ch: WCHAR): BOOL; stdcall;
  614. {$EXTERNALSYM IsCharAlphaNumeric}
  615. {$ELSE}
  616. function IsCharAlphaNumeric(ch: CHAR): BOOL; stdcall;
  617. {$EXTERNALSYM IsCharAlphaNumeric}
  618. {$ENDIF}
  620. function IsCharUpperA(ch: CHAR): BOOL; stdcall;
  621. {$EXTERNALSYM IsCharUpperA}
  622. function IsCharUpperW(ch: WCHAR): BOOL; stdcall;
  623. {$EXTERNALSYM IsCharUpperW}
  625. {$IFDEF UNICODE}
  626. function IsCharUpper(ch: WCHAR): BOOL; stdcall;
  627. {$EXTERNALSYM IsCharUpper}
  628. {$ELSE}
  629. function IsCharUpper(ch: CHAR): BOOL; stdcall;
  630. {$EXTERNALSYM IsCharUpper}
  631. {$ENDIF}
  633. function IsCharLowerA(ch: CHAR): BOOL; stdcall;
  634. {$EXTERNALSYM IsCharLowerA}
  635. function IsCharLowerW(ch: WCHAR): BOOL; stdcall;
  636. {$EXTERNALSYM IsCharLowerW}
  638. {$IFDEF UNICODE}
  639. function IsCharLower(ch: WCHAR): BOOL; stdcall;
  640. {$EXTERNALSYM IsCharLower}
  641. {$ELSE}
  642. function IsCharLower(ch: CHAR): BOOL; stdcall;
  643. {$EXTERNALSYM IsCharLower}
  644. {$ENDIF}
  646. function SetFocus(hWnd: HWND): HWND; stdcall;
  647. {$EXTERNALSYM SetFocus}
  649. function GetActiveWindow: HWND; stdcall;
  650. {$EXTERNALSYM GetActiveWindow}
  652. function GetFocus: HWND; stdcall;
  653. {$EXTERNALSYM GetFocus}
  655. function GetKBCodePage: UINT; stdcall;
  656. {$EXTERNALSYM GetKBCodePage}
  658. function GetKeyState(nVirtKey: Integer): SHORT; stdcall;
  659. {$EXTERNALSYM GetKeyState}
  661. function GetAsyncKeyState(vKey: Integer): SHORT; stdcall;
  662. {$EXTERNALSYM GetAsyncKeyState}
  664. function GetKeyboardState(lpKeyState: LPBYTE): BOOL; stdcall;
  665. {$EXTERNALSYM GetKeyboardState}
  667. function SetKeyboardState(lpKeyState: LPBYTE): BOOL; stdcall;
  668. {$EXTERNALSYM SetKeyboardState}
  670. function GetKeyNameTextA(lParam: LONG; lpString: LPSTR; nSize: Integer): Integer; stdcall;
  671. {$EXTERNALSYM GetKeyNameTextA}
  672. function GetKeyNameTextW(lParam: LONG; lpString: LPWSTR; nSize: Integer): Integer; stdcall;
  673. {$EXTERNALSYM GetKeyNameTextW}
  675. {$IFDEF UNICODE}
  676. function GetKeyNameText(lParam: LONG; lpString: LPWSTR; nSize: Integer): Integer; stdcall;
  677. {$EXTERNALSYM GetKeyNameText}
  678. {$ELSE}
  679. function GetKeyNameText(lParam: LONG; lpString: LPSTR; nSize: Integer): Integer; stdcall;
  680. {$EXTERNALSYM GetKeyNameText}
  681. {$ENDIF}
  683. function GetKeyboardType(nTypeFlag: Integer): Integer; stdcall;
  684. {$EXTERNALSYM GetKeyboardType}
  686. function ToAscii(uVirtKey, uScanCode: UINT; lpKeyState: PBYTE; lpChar: LPWORD;
  687.   uFlags: UINT): Integer; stdcall;
  688. {$EXTERNALSYM ToAscii}
  690. function ToAsciiEx(uVirtKey, uScanCode: UINT; lpKeyState: PBYTE; lpChar: LPWORD;
  691.   uFlags: UINT; dwhkl: HKL): Integer; stdcall;
  692. {$EXTERNALSYM ToAsciiEx}
  694. function ToUnicode(wVirtKey, wScanCode: UINT; lpKeyState: PBYTE; pwszBuff: LPWSTR;
  695.   cchBuff: Integer; wFlags: UINT): Integer; stdcall;
  696. {$EXTERNALSYM ToUnicode}
  698. function OemKeyScan(wOemChar: WORD): DWORD; stdcall;
  699. {$EXTERNALSYM OemKeyScan}
  701. function VkKeyScanA(ch: CHAR): SHORT; stdcall;
  702. {$EXTERNALSYM VkKeyScanA}
  703. function VkKeyScanW(ch: WCHAR): SHORT; stdcall;
  704. {$EXTERNALSYM VkKeyScanW}
  706. {$IFDEF UNICODE}
  707. function VkKeyScan(ch: WCHAR): SHORT; stdcall;
  708. {$EXTERNALSYM VkKeyScan}
  709. {$ELSE}
  710. function VkKeyScan(ch: CHAR): SHORT; stdcall;
  711. {$EXTERNALSYM VkKeyScan}
  712. {$ENDIF}
  714. function VkKeyScanExA(ch: CHAR; dwhkl: HKL): SHORT; stdcall;
  715. {$EXTERNALSYM VkKeyScanExA}
  716. function VkKeyScanExW(ch: WCHAR; dwhkl: HKL): SHORT; stdcall;
  717. {$EXTERNALSYM VkKeyScanExW}
  719. {$IFDEF UNICODE}
  720. function VkKeyScanEx(ch: WCHAR; dwhkl: HKL): SHORT; stdcall;
  721. {$EXTERNALSYM VkKeyScanEx}
  722. {$ELSE}
  723. function VkKeyScanEx(ch: CHAR; dwhkl: HKL): SHORT; stdcall;
  724. {$EXTERNALSYM VkKeyScanEx}
  725. {$ENDIF}
  727. const
  728.   KEYEVENTF_EXTENDEDKEY = $0001;
  729.   {$EXTERNALSYM KEYEVENTF_EXTENDEDKEY}
  730.   KEYEVENTF_KEYUP       = $0002;
  731.   {$EXTERNALSYM KEYEVENTF_KEYUP}
  733.   KEYEVENTF_UNICODE  = $0004;
  734.   {$EXTERNALSYM KEYEVENTF_UNICODE}
  735.   KEYEVENTF_SCANCODE = $0008;
  736.   {$EXTERNALSYM KEYEVENTF_SCANCODE}
  738. procedure keybd_event(bVk, bScan: BYTE; dwFlags: DWORD; dwExtraInfo: ULONG_PTR); stdcall;
  739. {$EXTERNALSYM keybd_event}
  741. const
  742.   MOUSEEVENTF_MOVE        = $0001; // mouse move
  743.   {$EXTERNALSYM MOUSEEVENTF_MOVE}
  744.   MOUSEEVENTF_LEFTDOWN    = $0002; // left button down
  745.   {$EXTERNALSYM MOUSEEVENTF_LEFTDOWN}
  746.   MOUSEEVENTF_LEFTUP      = $0004; // left button up
  747.   {$EXTERNALSYM MOUSEEVENTF_LEFTUP}
  748.   MOUSEEVENTF_RIGHTDOWN   = $0008; // right button down
  749.   {$EXTERNALSYM MOUSEEVENTF_RIGHTDOWN}
  750.   MOUSEEVENTF_RIGHTUP     = $0010; // right button up
  751.   {$EXTERNALSYM MOUSEEVENTF_RIGHTUP}
  752.   MOUSEEVENTF_MIDDLEDOWN  = $0020; // middle button down
  753.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEDOWN}
  754.   MOUSEEVENTF_MIDDLEUP    = $0040; // middle button up
  755.   {$EXTERNALSYM MOUSEEVENTF_MIDDLEUP}
  756.   MOUSEEVENTF_XDOWN       = $0080; // x button down
  757.   {$EXTERNALSYM MOUSEEVENTF_XDOWN}
  758.   MOUSEEVENTF_XUP         = $0100; // x button down
  759.   {$EXTERNALSYM MOUSEEVENTF_XUP}
  760.   MOUSEEVENTF_WHEEL       = $0800; // wheel button rolled
  761.   {$EXTERNALSYM MOUSEEVENTF_WHEEL}
  762.   MOUSEEVENTF_VIRTUALDESK = $4000; // map to entire virtual desktop
  763.   {$EXTERNALSYM MOUSEEVENTF_VIRTUALDESK}
  764.   MOUSEEVENTF_ABSOLUTE    = $8000; // absolute move
  765.   {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  767. procedure mouse_event(dwFlags, dx, dy, dwData: DWORD; dwExtraInfo: ULONG_PTR); stdcall;
  768. {$EXTERNALSYM mouse_event}
  770. type
  771.   LPMOUSEINPUT = ^MOUSEINPUT;
  772.   {$EXTERNALSYM LPMOUSEINPUT}
  773.   tagMOUSEINPUT = record
  774.     dx: LONG;
  775.     dy: LONG;
  776.     mouseData: DWORD;
  777.     dwFlags: DWORD;
  778.     time: DWORD;
  779.     dwExtraInfo: ULONG_PTR;
  780.   end;
  781.   {$EXTERNALSYM MOUSEINPUT}
  782.   MOUSEINPUT = tagMOUSEINPUT;
  783.   {$EXTERNALSYM MOUSEINPUT}
  784.   TMouseInput = MOUSEINPUT;
  785.   PMouseInput = LPMOUSEINPUT;
  787.   LPKEYBDINPUT = ^KEYBDINPUT;
  788.   {$EXTERNALSYM LPKEYBDINPUT}
  789.   tagKEYBDINPUT = record
  790.     wVk: WORD;
  791.     wScan: WORD;
  792.     dwFlags: DWORD;
  793.     time: DWORD;
  794.     dwExtraInfo: ULONG_PTR;
  795.   end;
  796.   {$EXTERNALSYM tagKEYBDINPUT}
  797.   KEYBDINPUT = tagKEYBDINPUT;
  798.   {$EXTERNALSYM KEYBDINPUT}
  799.   TKeybdinput = KEYBDINPUT;
  800.   PKeybdInput = LPKEYBDINPUT;
  802.   LPHARDWAREINPUT = ^HARDWAREINPUT;
  803.   {$EXTERNALSYM LPHARDWAREINPUT}
  804.   tagHARDWAREINPUT = record
  805.     uMsg: DWORD;
  806.     wParamL: WORD;
  807.     wParamH: WORD;
  808.   end;
  809.   {$EXTERNALSYM tagHARDWAREINPUT}
  810.   HARDWAREINPUT = tagHARDWAREINPUT;
  811.   {$EXTERNALSYM HARDWAREINPUT}
  812.   THardwareInput = HARDWAREINPUT;
  813.   PHardwareInput = LPHARDWAREINPUT;
  815. const
  816.   INPUT_MOUSE    = 0;
  817.   {$EXTERNALSYM INPUT_MOUSE}
  818.   INPUT_KEYBOARD = 1;
  819.   {$EXTERNALSYM INPUT_KEYBOARD}
  820.   INPUT_HARDWARE = 2;
  821.   {$EXTERNALSYM INPUT_HARDWARE}
  823. type
  824.   LPINPUT = ^INPUT;
  825.   {$EXTERNALSYM LPINPUT}
  826.   tagINPUT = record
  827.     type_: DWORD;
  828.     case Integer of
  829.       0: (mi: MOUSEINPUT);
  830.       1: (ki: KEYBDINPUT);
  831.       2: (hi: HARDWAREINPUT);
  832.   end;
  833.   {$EXTERNALSYM tagINPUT}
  834.   INPUT = tagINPUT;
  835.   {$EXTERNALSYM INPUT}
  836.   TInput = INPUT;
  837.   PInput = LPINPUT;
  839. function SendInput(cInputs: UINT; pInputs: LPINPUT; cbSize: Integer): UINT; stdcall;
  840. {$EXTERNALSYM SendInput}
  842. type
  843.   PLASTINPUTINFO = ^LASTINPUTINFO;
  844.   tagLASTINPUTINFO = record
  845.     cbSize: UINT;
  846.     dwTime: DWORD;
  847.   end;
  848.   {$EXTERNALSYM tagLASTINPUTINFO}
  849.   LASTINPUTINFO = tagLASTINPUTINFO;
  850.   {$EXTERNALSYM LASTINPUTINFO}
  851.   TLastInputInfo = LASTINPUTINFO;
  853. function GetLastInputInfo(var plii: LASTINPUTINFO): BOOL; stdcall;
  854. {$EXTERNALSYM GetLastInputInfo}
  856. function MapVirtualKeyA(uCode, uMapType: UINT): UINT; stdcall;
  857. {$EXTERNALSYM MapVirtualKeyA}
  858. function MapVirtualKeyW(uCode, uMapType: UINT): UINT; stdcall;
  859. {$EXTERNALSYM MapVirtualKeyW}
  861. {$IFDEF UNICODE}
  862. function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;
  863. {$EXTERNALSYM MapVirtualKey}
  864. {$ELSE}
  865. function MapVirtualKey(uCode, uMapType: UINT): UINT; stdcall;
  866. {$EXTERNALSYM MapVirtualKey}
  867. {$ENDIF}
  869. function MapVirtualKeyExA(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  870. {$EXTERNALSYM MapVirtualKeyExA}
  871. function MapVirtualKeyExW(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  872. {$EXTERNALSYM MapVirtualKeyExW}
  874. {$IFDEF UNICODE}
  875. function MapVirtualKeyEx(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  876. {$EXTERNALSYM MapVirtualKeyEx}
  877. {$ELSE}
  878. function MapVirtualKeyEx(uCode, uMapType: UINT; dwhkl: HKL): UINT; stdcall;
  879. {$EXTERNALSYM MapVirtualKeyEx}
  880. {$ENDIF}
  882. function GetInputState: BOOL; stdcall;
  883. {$EXTERNALSYM GetInputState}
  885. function GetQueueStatus(flags: UINT): DWORD; stdcall;
  886. {$EXTERNALSYM GetQueueStatus}
  888. function GetCapture: HWND; stdcall;
  889. {$EXTERNALSYM GetCapture}
  891. function SetCapture(hWnd: HWND): HWND; stdcall;
  892. {$EXTERNALSYM SetCapture}
  894. function ReleaseCapture: BOOL; stdcall;
  895. {$EXTERNALSYM ReleaseCapture}
  897. function MsgWaitForMultipleObjects(nCount: DWORD; pHandles: PHANDLE;
  898.   fWaitAll: BOOL; dwMilliseconds: DWORD; dwWakeMask: DWORD): DWORD; stdcall;
  899. {$EXTERNALSYM MsgWaitForMultipleObjects}
  901. function MsgWaitForMultipleObjectsEx(nCount: DWORD; pHandles: PHANDLE;
  902.   dwMilliseconds: DWORD; dwWakeMask: DWORD; dwFlags: DWORD): DWORD; stdcall;
  903. {$EXTERNALSYM MsgWaitForMultipleObjectsEx}
  905. const
  906.   MWMO_WAITALL        = $0001;
  907.   {$EXTERNALSYM MWMO_WAITALL}
  908.   MWMO_ALERTABLE      = $0002;
  909.   {$EXTERNALSYM MWMO_ALERTABLE}
  910.   MWMO_INPUTAVAILABLE = $0004;
  911.   {$EXTERNALSYM MWMO_INPUTAVAILABLE}
  913. //
  914. // Windows Functions
  915. //
  917. function SetTimer(hWnd: HWND; nIDEvent: UINT_PTR; uElapse: UINT;
  918.   lpTimerFunc: TIMERPROC): UINT_PTR; stdcall;
  919. {$EXTERNALSYM SetTimer}
  921. function KillTimer(hWnd: HWND; uIDEvent: UINT_PTR): BOOL; stdcall;
  922. {$EXTERNALSYM KillTimer}
  924. function IsWindowUnicode(hWnd: HWND): BOOL; stdcall;
  925. {$EXTERNALSYM IsWindowUnicode}
  927. function EnableWindow(hWnd: HWND; bEnable: BOOL): BOOL; stdcall;
  928. {$EXTERNALSYM EnableWindow}
  930. function IsWindowEnabled(hWnd: HWND): BOOL; stdcall;
  931. {$EXTERNALSYM IsWindowEnabled}
  933. function LoadAcceleratorsA(hInstance: HINSTANCE; lpTableName: LPCSTR): HACCEL; stdcall;
  934. {$EXTERNALSYM LoadAcceleratorsA}
  935. function LoadAcceleratorsW(hInstance: HINSTANCE; lpTableName: LPCWSTR): HACCEL; stdcall;
  936. {$EXTERNALSYM LoadAcceleratorsW}
  938. {$IFDEF UNICODE}
  939. function LoadAccelerators(hInstance: HINSTANCE; lpTableName: LPCWSTR): HACCEL; stdcall;
  940. {$EXTERNALSYM LoadAccelerators}
  941. {$ELSE}
  942. function LoadAccelerators(hInstance: HINSTANCE; lpTableName: LPCSTR): HACCEL; stdcall;
  943. {$EXTERNALSYM LoadAccelerators}
  944. {$ENDIF}
  946. function CreateAcceleratorTableA(lpaccl: LPACCEL; cEntries: Integer): HACCEL; stdcall;
  947. {$EXTERNALSYM CreateAcceleratorTableA}
  948. function CreateAcceleratorTableW(lpaccl: LPACCEL; cEntries: Integer): HACCEL; stdcall;
  949. {$EXTERNALSYM CreateAcceleratorTableW}
  951. {$IFDEF UNICODE}
  952. function CreateAcceleratorTable(lpaccl: LPACCEL; cEntries: Integer): HACCEL; stdcall;
  953. {$EXTERNALSYM CreateAcceleratorTable}
  954. {$ELSE}
  955. function CreateAcceleratorTable(lpaccl: LPACCEL; cEntries: Integer): HACCEL; stdcall;
  956. {$EXTERNALSYM CreateAcceleratorTable}
  957. {$ENDIF}
  959. function DestroyAcceleratorTable(hAccel: HACCEL): BOOL; stdcall;
  960. {$EXTERNALSYM DestroyAcceleratorTable}
  962. function CopyAcceleratorTableA(hAccelSrc: HACCEL; lpAccelDst: LPACCEL;
  963.   cAccelEntries: Integer): Integer; stdcall;
  964. {$EXTERNALSYM CopyAcceleratorTableA}
  965. function CopyAcceleratorTableW(hAccelSrc: HACCEL; lpAccelDst: LPACCEL;
  966.   cAccelEntries: Integer): Integer; stdcall;
  967. {$EXTERNALSYM CopyAcceleratorTableW}
  969. {$IFDEF UNICODE}
  970. function CopyAcceleratorTable(hAccelSrc: HACCEL; lpAccelDst: LPACCEL;
  971.   cAccelEntries: Integer): Integer; stdcall;
  972. {$EXTERNALSYM CopyAcceleratorTable}
  973. {$ELSE}
  974. function CopyAcceleratorTable(hAccelSrc: HACCEL; lpAccelDst: LPACCEL;
  975.   cAccelEntries: Integer): Integer; stdcall;
  976. {$EXTERNALSYM CopyAcceleratorTable}
  977. {$ENDIF}
  979. function TranslateAcceleratorA(hWnd: HWND; hAccTable: HACCEL; lpMsg: LPMSG): Integer; stdcall;
  980. {$EXTERNALSYM TranslateAcceleratorA}
  981. function TranslateAcceleratorW(hWnd: HWND; hAccTable: HACCEL; lpMsg: LPMSG): Integer; stdcall;
  982. {$EXTERNALSYM TranslateAcceleratorW}
  984. {$IFDEF UNICODE}
  985. function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; lpMsg: LPMSG): Integer; stdcall;
  986. {$EXTERNALSYM TranslateAccelerator}
  987. {$ELSE}
  988. function TranslateAccelerator(hWnd: HWND; hAccTable: HACCEL; lpMsg: LPMSG): Integer; stdcall;
  989. {$EXTERNALSYM TranslateAccelerator}
  990. {$ENDIF}
  992. //
  993. // GetSystemMetrics() codes
  994. //
  996. const
  997.   SM_CXSCREEN          = 0;
  998.   {$EXTERNALSYM SM_CXSCREEN}
  999.   SM_CYSCREEN          = 1;
  1000.   {$EXTERNALSYM SM_CYSCREEN}
  1001.   SM_CXVSCROLL         = 2;
  1002.   {$EXTERNALSYM SM_CXVSCROLL}
  1003.   SM_CYHSCROLL         = 3;
  1004.   {$EXTERNALSYM SM_CYHSCROLL}
  1005.   SM_CYCAPTION         = 4;
  1006.   {$EXTERNALSYM SM_CYCAPTION}
  1007.   SM_CXBORDER          = 5;
  1008.   {$EXTERNALSYM SM_CXBORDER}
  1009.   SM_CYBORDER          = 6;
  1010.   {$EXTERNALSYM SM_CYBORDER}
  1011.   SM_CXDLGFRAME        = 7;
  1012.   {$EXTERNALSYM SM_CXDLGFRAME}
  1013.   SM_CYDLGFRAME        = 8;
  1014.   {$EXTERNALSYM SM_CYDLGFRAME}
  1015.   SM_CYVTHUMB          = 9;
  1016.   {$EXTERNALSYM SM_CYVTHUMB}
  1017.   SM_CXHTHUMB          = 10;
  1018.   {$EXTERNALSYM SM_CXHTHUMB}
  1019.   SM_CXICON            = 11;
  1020.   {$EXTERNALSYM SM_CXICON}
  1021.   SM_CYICON            = 12;
  1022.   {$EXTERNALSYM SM_CYICON}
  1023.   SM_CXCURSOR          = 13;
  1024.   {$EXTERNALSYM SM_CXCURSOR}
  1025.   SM_CYCURSOR          = 14;
  1026.   {$EXTERNALSYM SM_CYCURSOR}
  1027.   SM_CYMENU            = 15;
  1028.   {$EXTERNALSYM SM_CYMENU}
  1029.   SM_CXFULLSCREEN      = 16;
  1030.   {$EXTERNALSYM SM_CXFULLSCREEN}
  1031.   SM_CYFULLSCREEN      = 17;
  1032.   {$EXTERNALSYM SM_CYFULLSCREEN}
  1033.   SM_CYKANJIWINDOW     = 18;
  1034.   {$EXTERNALSYM SM_CYKANJIWINDOW}
  1035.   SM_MOUSEPRESENT      = 19;
  1036.   {$EXTERNALSYM SM_MOUSEPRESENT}
  1037.   SM_CYVSCROLL         = 20;
  1038.   {$EXTERNALSYM SM_CYVSCROLL}
  1039.   SM_CXHSCROLL         = 21;
  1040.   {$EXTERNALSYM SM_CXHSCROLL}
  1041.   SM_DEBUG             = 22;
  1042.   {$EXTERNALSYM SM_DEBUG}
  1043.   SM_SWAPBUTTON        = 23;
  1044.   {$EXTERNALSYM SM_SWAPBUTTON}
  1045.   SM_RESERVED1         = 24;
  1046.   {$EXTERNALSYM SM_RESERVED1}
  1047.   SM_RESERVED2         = 25;
  1048.   {$EXTERNALSYM SM_RESERVED2}
  1049.   SM_RESERVED3         = 26;
  1050.   {$EXTERNALSYM SM_RESERVED3}
  1051.   SM_RESERVED4         = 27;
  1052.   {$EXTERNALSYM SM_RESERVED4}
  1053.   SM_CXMIN             = 28;
  1054.   {$EXTERNALSYM SM_CXMIN}
  1055.   SM_CYMIN             = 29;
  1056.   {$EXTERNALSYM SM_CYMIN}
  1057.   SM_CXSIZE            = 30;
  1058.   {$EXTERNALSYM SM_CXSIZE}
  1059.   SM_CYSIZE            = 31;
  1060.   {$EXTERNALSYM SM_CYSIZE}
  1061.   SM_CXFRAME           = 32;
  1062.   {$EXTERNALSYM SM_CXFRAME}
  1063.   SM_CYFRAME           = 33;
  1064.   {$EXTERNALSYM SM_CYFRAME}
  1065.   SM_CXMINTRACK        = 34;
  1066.   {$EXTERNALSYM SM_CXMINTRACK}
  1067.   SM_CYMINTRACK        = 35;
  1068.   {$EXTERNALSYM SM_CYMINTRACK}
  1069.   SM_CXDOUBLECLK       = 36;
  1070.   {$EXTERNALSYM SM_CXDOUBLECLK}
  1071.   SM_CYDOUBLECLK       = 37;
  1072.   {$EXTERNALSYM SM_CYDOUBLECLK}
  1073.   SM_CXICONSPACING     = 38;
  1074.   {$EXTERNALSYM SM_CXICONSPACING}
  1075.   SM_CYICONSPACING     = 39;
  1076.   {$EXTERNALSYM SM_CYICONSPACING}
  1077.   SM_MENUDROPALIGNMENT = 40;
  1078.   {$EXTERNALSYM SM_MENUDROPALIGNMENT}
  1079.   SM_PENWINDOWS        = 41;
  1080.   {$EXTERNALSYM SM_PENWINDOWS}
  1081.   SM_DBCSENABLED       = 42;
  1082.   {$EXTERNALSYM SM_DBCSENABLED}
  1083.   SM_CMOUSEBUTTONS     = 43;
  1084.   {$EXTERNALSYM SM_CMOUSEBUTTONS}
  1086.   SM_CXFIXEDFRAME = SM_CXDLGFRAME; // ;win40 name change
  1087.   {$EXTERNALSYM SM_CXFIXEDFRAME}
  1088.   SM_CYFIXEDFRAME = SM_CYDLGFRAME; // ;win40 name change
  1089.   {$EXTERNALSYM SM_CYFIXEDFRAME}
  1090.   SM_CXSIZEFRAME  = SM_CXFRAME; // ;win40 name change
  1091.   {$EXTERNALSYM SM_CXSIZEFRAME}
  1092.   SM_CYSIZEFRAME  = SM_CYFRAME; // ;win40 name change
  1093.   {$EXTERNALSYM SM_CYSIZEFRAME}
  1095.   SM_SECURE       = 44;
  1096.   {$EXTERNALSYM SM_SECURE}
  1097.   SM_CXEDGE       = 45;
  1098.   {$EXTERNALSYM SM_CXEDGE}
  1099.   SM_CYEDGE       = 46;
  1100.   {$EXTERNALSYM SM_CYEDGE}
  1101.   SM_CXMINSPACING = 47;
  1102.   {$EXTERNALSYM SM_CXMINSPACING}
  1103.   SM_CYMINSPACING = 48;
  1104.   {$EXTERNALSYM SM_CYMINSPACING}
  1105.   SM_CXSMICON     = 49;
  1106.   {$EXTERNALSYM SM_CXSMICON}
  1107.   SM_CYSMICON     = 50;
  1108.   {$EXTERNALSYM SM_CYSMICON}
  1109.   SM_CYSMCAPTION  = 51;
  1110.   {$EXTERNALSYM SM_CYSMCAPTION}
  1111.   SM_CXSMSIZE     = 52;
  1112.   {$EXTERNALSYM SM_CXSMSIZE}
  1113.   SM_CYSMSIZE     = 53;
  1114.   {$EXTERNALSYM SM_CYSMSIZE}
  1115.   SM_CXMENUSIZE   = 54;
  1116.   {$EXTERNALSYM SM_CXMENUSIZE}
  1117.   SM_CYMENUSIZE   = 55;
  1118.   {$EXTERNALSYM SM_CYMENUSIZE}
  1119.   SM_ARRANGE      = 56;
  1120.   {$EXTERNALSYM SM_ARRANGE}
  1121.   SM_CXMINIMIZED  = 57;
  1122.   {$EXTERNALSYM SM_CXMINIMIZED}
  1123.   SM_CYMINIMIZED  = 58;
  1124.   {$EXTERNALSYM SM_CYMINIMIZED}
  1125.   SM_CXMAXTRACK   = 59;
  1126.   {$EXTERNALSYM SM_CXMAXTRACK}
  1127.   SM_CYMAXTRACK   = 60;
  1128.   {$EXTERNALSYM SM_CYMAXTRACK}
  1129.   SM_CXMAXIMIZED  = 61;
  1130.   {$EXTERNALSYM SM_CXMAXIMIZED}
  1131.   SM_CYMAXIMIZED  = 62;
  1132.   {$EXTERNALSYM SM_CYMAXIMIZED}
  1133.   SM_NETWORK      = 63;
  1134.   {$EXTERNALSYM SM_NETWORK}
  1135.   SM_CLEANBOOT    = 67;
  1136.   {$EXTERNALSYM SM_CLEANBOOT}
  1137.   SM_CXDRAG       = 68;
  1138.   {$EXTERNALSYM SM_CXDRAG}
  1139.   SM_CYDRAG       = 69;
  1140.   {$EXTERNALSYM SM_CYDRAG}
  1141.   SM_SHOWSOUNDS = 70;
  1142.   {$EXTERNALSYM SM_SHOWSOUNDS}
  1143.   SM_CXMENUCHECK    = 71; // Use instead of GetMenuCheckMarkDimensions()!
  1144.   {$EXTERNALSYM SM_CXMENUCHECK}
  1145.   SM_CYMENUCHECK    = 72;
  1146.   {$EXTERNALSYM SM_CYMENUCHECK}
  1147.   SM_SLOWMACHINE    = 73;
  1148.   {$EXTERNALSYM SM_SLOWMACHINE}
  1149.   SM_MIDEASTENABLED = 74;
  1150.   {$EXTERNALSYM SM_MIDEASTENABLED}
  1152.   SM_MOUSEWHEELPRESENT = 75;
  1153.   {$EXTERNALSYM SM_MOUSEWHEELPRESENT}
  1154.   SM_XVIRTUALSCREEN    = 76;
  1155.   {$EXTERNALSYM SM_XVIRTUALSCREEN}
  1156.   SM_YVIRTUALSCREEN    = 77;
  1157.   {$EXTERNALSYM SM_YVIRTUALSCREEN}
  1158.   SM_CXVIRTUALSCREEN   = 78;
  1159.   {$EXTERNALSYM SM_CXVIRTUALSCREEN}
  1160.   SM_CYVIRTUALSCREEN   = 79;
  1161.   {$EXTERNALSYM SM_CYVIRTUALSCREEN}
  1162.   SM_CMONITORS         = 80;
  1163.   {$EXTERNALSYM SM_CMONITORS}
  1164.   SM_SAMEDISPLAYFORMAT = 81;
  1165.   {$EXTERNALSYM SM_SAMEDISPLAYFORMAT}
  1166.   SM_IMMENABLED        = 82;
  1167.   {$EXTERNALSYM SM_IMMENABLED}
  1168.   SM_CXFOCUSBORDER     = 83;
  1169.   {$EXTERNALSYM SM_CXFOCUSBORDER}
  1170.   SM_CYFOCUSBORDER     = 84;
  1171.   {$EXTERNALSYM SM_CYFOCUSBORDER}
  1173. //#if(_WIN32_WINNT >= 0x0501)
  1175.   SM_TABLETPC          = 86;
  1176.   {$EXTERNALSYM SM_TABLETPC}
  1177.   SM_MEDIACENTER       = 87;
  1178.   {$EXTERNALSYM SM_MEDIACENTER}
  1180. //#endif /* _WIN32_WINNT >= 0x0501 */
  1182. { TODO
  1183. #if (WINVER < 0x0500) && (!defined(_WIN32_WINNT) || (_WIN32_WINNT < 0x0400))
  1184. #define SM_CMETRICS             76
  1185. #elif WINVER == 0x500
  1186. #define SM_CMETRICS             83
  1187. #else
  1188. #define SM_CMETRICS             88
  1189. #endif
  1190. }
  1192. const
  1193.   SM_CMETRICS = 76;
  1194.   {$EXTERNALSYM SM_CMETRICS}
  1196.   SM_REMOTESESSION = $1000;
  1197.   {$EXTERNALSYM SM_REMOTESESSION}
  1198.   SM_SHUTTINGDOWN  = $2000;
  1199.   {$EXTERNALSYM SM_SHUTTINGDOWN}
  1200. //#if(WINVER >= 0x0501)
  1201.   SM_REMOTECONTROL = $2001;
  1202.   {$EXTERNALSYM SM_REMOTECONTROL}
  1203. //#endif /* WINVER >= 0x0501 */
  1205. function GetSystemMetrics(nIndex: Integer): Integer; stdcall;
  1206. {$EXTERNALSYM GetSystemMetrics}
  1208. function LoadMenuA(hInstance: HINSTANCE; lpMenuName: LPCSTR): HMENU; stdcall;
  1209. {$EXTERNALSYM LoadMenuA}
  1210. function LoadMenuW(hInstance: HINSTANCE; lpMenuName: LPCWSTR): HMENU; stdcall;
  1211. {$EXTERNALSYM LoadMenuW}
  1213. {$IFDEF UNICODE}
  1214. function LoadMenu(hInstance: HINSTANCE; lpMenuName: LPCWSTR): HMENU; stdcall;
  1215. {$EXTERNALSYM LoadMenu}
  1216. {$ELSE}
  1217. function LoadMenu(hInstance: HINSTANCE; lpMenuName: LPCSTR): HMENU; stdcall;
  1218. {$EXTERNALSYM LoadMenu}
  1219. {$ENDIF}
  1221. function LoadMenuIndirectA(lpMenuTemplate: LPMENUTEMPLATEA): HMENU; stdcall;
  1222. {$EXTERNALSYM LoadMenuIndirectA}
  1223. function LoadMenuIndirectW(lpMenuTemplate: LPMENUTEMPLATEW): HMENU; stdcall;
  1224. {$EXTERNALSYM LoadMenuIndirectW}
  1226. {$IFDEF UNICODE}
  1227. function LoadMenuIndirect(lpMenuTemplate: LPMENUTEMPLATEW): HMENU; stdcall;
  1228. {$EXTERNALSYM LoadMenuIndirect}
  1229. {$ELSE}
  1230. function LoadMenuIndirect(lpMenuTemplate: LPMENUTEMPLATEA): HMENU; stdcall;
  1231. {$EXTERNALSYM LoadMenuIndirect}
  1232. {$ENDIF}
  1234. function GetMenu(hWnd: HWND): HMENU; stdcall;
  1235. {$EXTERNALSYM GetMenu}
  1237. function SetMenu(hWnd: HWND; hMenu: HMENU): BOOL; stdcall;
  1238. {$EXTERNALSYM SetMenu}
  1240. function ChangeMenuA(hMenu: HMENU; cmd: UINT; lpszNewItem: LPCSTR;
  1241.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  1242. {$EXTERNALSYM ChangeMenuA}
  1243. function ChangeMenuW(hMenu: HMENU; cmd: UINT; lpszNewItem: LPCWSTR;
  1244.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  1245. {$EXTERNALSYM ChangeMenuW}
  1247. {$IFDEF UNICODE}
  1248. function ChangeMenu(hMenu: HMENU; cmd: UINT; lpszNewItem: LPCWSTR;
  1249.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  1250. {$EXTERNALSYM ChangeMenu}
  1251. {$ELSE}
  1252. function ChangeMenu(hMenu: HMENU; cmd: UINT; lpszNewItem: LPCSTR;
  1253.   cmdInsert: UINT; flags: UINT): BOOL; stdcall;
  1254. {$EXTERNALSYM ChangeMenu}
  1255. {$ENDIF}
  1257. function HiliteMenuItem(hWnd: HWND; hMenu: HMENU; uIDHiliteItem: UINT; uHilite: UINT): BOOL; stdcall;
  1258. {$EXTERNALSYM HiliteMenuItem}
  1260. function GetMenuStringA(hMenu: HMENU; uIDItem: UINT; lpString: LPSTR;
  1261.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  1262. {$EXTERNALSYM GetMenuStringA}
  1263. function GetMenuStringW(hMenu: HMENU; uIDItem: UINT; lpString: LPWSTR;
  1264.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  1265. {$EXTERNALSYM GetMenuStringW}
  1267. {$IFDEF UNICODE}
  1268. function GetMenuString(hMenu: HMENU; uIDItem: UINT; lpString: LPWSTR;
  1269.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  1270. {$EXTERNALSYM GetMenuString}
  1271. {$ELSE}
  1272. function GetMenuString(hMenu: HMENU; uIDItem: UINT; lpString: LPSTR;
  1273.   nMaxCount: Integer; uFlag: UINT): Integer; stdcall;
  1274. {$EXTERNALSYM GetMenuString}
  1275. {$ENDIF}
  1277. function GetMenuState(hMenu: HMENU; uId, uFlags: UINT): UINT; stdcall;
  1278. {$EXTERNALSYM GetMenuState}
  1280. function DrawMenuBar(hWnd: HWND): BOOL; stdcall;
  1281. {$EXTERNALSYM DrawMenuBar}
  1283. const
  1284.   PMB_ACTIVE = $00000001;
  1285.   {$EXTERNALSYM PMB_ACTIVE}
  1286.   
  1287. function GetSystemMenu(hWnd: HWND; bRevert: BOOL): HMENU; stdcall;
  1288. {$EXTERNALSYM GetSystemMenu}
  1290. function CreateMenu: HMENU; stdcall;
  1291. {$EXTERNALSYM CreateMenu}
  1293. function CreatePopupMenu: HMENU; stdcall;
  1294. {$EXTERNALSYM CreatePopupMenu}
  1296. function DestroyMenu(hMenu: HMENU): BOOL; stdcall;
  1297. {$EXTERNALSYM DestroyMenu}
  1299. function CheckMenuItem(hMenu: HMENU; uIDCheckItem, uCheck: UINT): DWORD; stdcall;
  1300. {$EXTERNALSYM CheckMenuItem}
  1302. function EnableMenuItem(hMenu: HMENU; uIDEnableItem, uEnable: UINT): BOOL; stdcall;
  1303. {$EXTERNALSYM EnableMenuItem}
  1305. function GetSubMenu(hMenu: HMENU; nPos: Integer): HMENU; stdcall;
  1306. {$EXTERNALSYM GetSubMenu}
  1308. function GetMenuItemID(hMenu: HMENU; nPos: Integer): UINT; stdcall;
  1309. {$EXTERNALSYM GetMenuItemID}
  1311. function GetMenuItemCount(hMenu: HMENU): Integer; stdcall;
  1312. {$EXTERNALSYM GetMenuItemCount}
  1314. function InsertMenuA(hMenu: HMENU; uPosition, uFlags: UINT; uIDNewItem: UINT_PTR;
  1315.   lpNewItem: LPCSTR): BOOL; stdcall;
  1316. {$EXTERNALSYM InsertMenuA}
  1317. function InsertMenuW(hMenu: HMENU; uPosition, uFlags: UINT; uIDNewItem: UINT_PTR;
  1318.   lpNewItem: LPCWSTR): BOOL; stdcall;
  1319. {$EXTERNALSYM InsertMenuW}
  1321. {$IFDEF UNICODE}
  1322. function InsertMenu(hMenu: HMENU; uPosition, uFlags: UINT; uIDNewItem: UINT_PTR;
  1323.   lpNewItem: LPCWSTR): BOOL; stdcall;
  1324. {$EXTERNALSYM InsertMenu}
  1325. {$ELSE}
  1326. function InsertMenu(hMenu: HMENU; uPosition, uFlags: UINT; uIDNewItem: UINT_PTR;
  1327.   lpNewItem: LPCSTR): BOOL; stdcall;
  1328. {$EXTERNALSYM InsertMenu}
  1329. {$ENDIF}
  1331. function AppendMenuA(hMenu: HMENU; uFlags: UINT; uIDNewItem: UINT_PTR;
  1332.   lpNewItem: LPCSTR): BOOL; stdcall;
  1333. {$EXTERNALSYM AppendMenuA}
  1334. function AppendMenuW(hMenu: HMENU; uFlags: UINT; uIDNewItem: UINT_PTR;
  1335.   lpNewItem: LPCWSTR): BOOL; stdcall;
  1336. {$EXTERNALSYM AppendMenuW}
  1338. {$IFDEF UNICODE}
  1339. function AppendMenu(hMenu: HMENU; uFlags: UINT; uIDNewItem: UINT_PTR;
  1340.   lpNewItem: LPCWSTR): BOOL; stdcall;
  1341. {$EXTERNALSYM AppendMenu}
  1342. {$ELSE}
  1343. function AppendMenu(hMenu: HMENU; uFlags: UINT; uIDNewItem: UINT_PTR;
  1344.   lpNewItem: LPCSTR): BOOL; stdcall;
  1345. {$EXTERNALSYM AppendMenu}
  1346. {$ENDIF}
  1348. function ModifyMenuA(hMnu: HMENU; uPosition: UINT; uFlags: UINT;
  1349.   uIDNewItem: UINT_PTR; lpNewItem: LPCSTR): BOOL; stdcall;
  1350. {$EXTERNALSYM ModifyMenuA}
  1351. function ModifyMenuW(hMnu: HMENU; uPosition: UINT; uFlags: UINT;
  1352.   uIDNewItem: UINT_PTR; lpNewItem: LPCWSTR): BOOL; stdcall;
  1353. {$EXTERNALSYM ModifyMenuW}
  1355. {$IFDEF UNICODE}
  1356. function ModifyMenu(hMnu: HMENU; uPosition: UINT; uFlags: UINT;
  1357.   uIDNewItem: UINT_PTR; lpNewItem: LPCWSTR): BOOL; stdcall;
  1358. {$EXTERNALSYM ModifyMenu}
  1359. {$ELSE}
  1360. function ModifyMenu(hMnu: HMENU; uPosition: UINT; uFlags: UINT;
  1361.   uIDNewItem: UINT_PTR; lpNewItem: LPCSTR): BOOL; stdcall;
  1362. {$EXTERNALSYM ModifyMenu}
  1363. {$ENDIF}
  1365. function RemoveMenu(hMenu: HMENU; uPosition: UINT; uFlags: UINT): BOOL; stdcall;
  1366. {$EXTERNALSYM RemoveMenu}
  1368. function DeleteMenu(hMenu: HMENU; uPosition: UINT; uFlags: UINT): BOOL; stdcall;
  1369. {$EXTERNALSYM DeleteMenu}
  1371. function SetMenuItemBitmaps(hMenu: HMENU; uPosition: UINT; uFlags: UINT;
  1372.   hBitmapUnchecked: HBITMAP; hBitmapChecked: HBITMAP): BOOL; stdcall;
  1373. {$EXTERNALSYM SetMenuItemBitmaps}
  1375. function GetMenuCheckMarkDimensions: LONG; stdcall;
  1376. {$EXTERNALSYM GetMenuCheckMarkDimensions}
  1378. function TrackPopupMenu(hMenu: HMENU; uFlags: UINT; x: Integer; y: Integer;
  1379.   nReserved: Integer; hWnd: HWND; prcRect: LPRECT): BOOL; stdcall;
  1380. {$EXTERNALSYM TrackPopupMenu}
  1382. // return codes for WM_MENUCHAR//
  1384. const
  1385.   MNC_IGNORE  = 0;
  1386.   {$EXTERNALSYM MNC_IGNORE}
  1387.   MNC_CLOSE   = 1;
  1388.   {$EXTERNALSYM MNC_CLOSE}
  1389.   MNC_EXECUTE = 2;
  1390.   {$EXTERNALSYM MNC_EXECUTE}
  1391.   MNC_SELECT  = 3;
  1392.   {$EXTERNALSYM MNC_SELECT}
  1394. type
  1395.   LPTPMPARAMS = ^TPMPARAMS;
  1396.   {$EXTERNALSYM LPTPMPARAMS}
  1397.   tagTPMPARAMS = record
  1398.     cbSize: UINT;    // Size of structure
  1399.     rcExclude: RECT; // Screen coordinates of rectangle to exclude when positioning
  1400.   end;
  1401.   {$EXTERNALSYM tagTPMPARAMS}
  1402.   TPMPARAMS = tagTPMPARAMS;
  1403.   {$EXTERNALSYM TPMPARAMS}
  1404.   TTPMParams = TPMPARAMS;
  1405.   PTPMParams = LPTPMPARAMS;
  1407. function TrackPopupMenuEx(hmenu: HMENU; fuflags: UINT; x, y: Integer;
  1408.   hwnd: HWND; lptpm: LPTPMPARAMS): BOOL; stdcall;
  1409. {$EXTERNALSYM TrackPopupMenuEx}
  1411. const
  1412.   MNS_NOCHECK     = $80000000;
  1413.   {$EXTERNALSYM MNS_NOCHECK}
  1414.   MNS_MODELESS    = $40000000;
  1415.   {$EXTERNALSYM MNS_MODELESS}
  1416.   MNS_DRAGDROP    = $20000000;
  1417.   {$EXTERNALSYM MNS_DRAGDROP}
  1418.   MNS_AUTODISMISS = $10000000;
  1419.   {$EXTERNALSYM MNS_AUTODISMISS}
  1420.   MNS_NOTIFYBYPOS = $08000000;
  1421.   {$EXTERNALSYM MNS_NOTIFYBYPOS}
  1422.   MNS_CHECKORBMP  = $04000000;
  1423.   {$EXTERNALSYM MNS_CHECKORBMP}
  1425.   MIM_MAXHEIGHT       = $00000001;
  1426.   {$EXTERNALSYM MIM_MAXHEIGHT}
  1427.   MIM_BACKGROUND      = $00000002;
  1428.   {$EXTERNALSYM MIM_BACKGROUND}
  1429.   MIM_HELPID          = $00000004;
  1430.   {$EXTERNALSYM MIM_HELPID}
  1431.   MIM_MENUDATA        = $00000008;
  1432.   {$EXTERNALSYM MIM_MENUDATA}
  1433.   MIM_STYLE           = $00000010;
  1434.   {$EXTERNALSYM MIM_STYLE}
  1435.   MIM_APPLYTOSUBMENUS = $80000000;
  1436.   {$EXTERNALSYM MIM_APPLYTOSUBMENUS}
  1438. type
  1439.   LPMENUINFO = ^MENUINFO;
  1440.   {$EXTERNALSYM LPMENUINFO}
  1441.   tagMENUINFO = record
  1442.     cbSize: DWORD;
  1443.     fMask: DWORD;
  1444.     dwStyle: DWORD;
  1445.     cyMax: UINT;
  1446.     hbrBack: HBRUSH;
  1447.     dwContextHelpID: DWORD;
  1448.     dwMenuData: ULONG_PTR;
  1449.   end;
  1450.   {$EXTERNALSYM tagMENUINFO}
  1451.   MENUINFO = tagMENUINFO;
  1452.   {$EXTERNALSYM MENUINFO}
  1453.   TMenuinfo = MENUINFO;
  1454.   PMenuinfo = LPMENUINFO;
  1456.   LPCMENUINFO = ^MENUINFO;
  1457.   {$EXTERNALSYM LPCMENUINFO}
  1459. function GetMenuInfo(hmenu: HMENU; var lpcmi: MENUINFO): BOOL; stdcall;
  1460. {$EXTERNALSYM GetMenuInfo}
  1462. function SetMenuInfo(hemnu: HMENU; const lpcmi: MENUINFO): BOOL; stdcall;
  1463. {$EXTERNALSYM SetMenuInfo}
  1465. function EndMenu: BOOL; stdcall;
  1466. {$EXTERNALSYM EndMenu}
  1468. //
  1469. // WM_MENUDRAG return values.
  1470. //
  1472. const
  1473.   MND_CONTINUE = 0;
  1474.   {$EXTERNALSYM MND_CONTINUE}
  1475.   MND_ENDMENU  = 1;
  1476.   {$EXTERNALSYM MND_ENDMENU}
  1478. type
  1479.   PMENUGETOBJECTINFO = ^MENUGETOBJECTINFO;
  1480.   tagMENUGETOBJECTINFO = record
  1481.     dwFlags: DWORD;
  1482.     uPos: UINT;
  1483.     hmenu: HMENU;
  1484.     riid: PVOID;
  1485.     pvObj: PVOID;
  1486.   end;
  1487.   {$EXTERNALSYM tagMENUGETOBJECTINFO}
  1488.   MENUGETOBJECTINFO = tagMENUGETOBJECTINFO;
  1489.   {$EXTERNALSYM MENUGETOBJECTINFO}
  1490.   TMenuGetObjectInfo = MENUGETOBJECTINFO;
  1492. //
  1493. // MENUGETOBJECTINFO dwFlags values
  1494. //
  1496. const
  1497.   MNGOF_TOPGAP    = $00000001;
  1498.   {$EXTERNALSYM MNGOF_TOPGAP}
  1499.   MNGOF_BOTTOMGAP = $00000002;
  1500.   {$EXTERNALSYM MNGOF_BOTTOMGAP}
  1502. //
  1503. // WM_MENUGETOBJECT return values
  1504. //
  1506.   MNGO_NOINTERFACE = $00000000;
  1507.   {$EXTERNALSYM MNGO_NOINTERFACE}
  1508.   MNGO_NOERROR     = $00000001;
  1509.   {$EXTERNALSYM MNGO_NOERROR}
  1511.   MIIM_STATE      = $00000001;
  1512.   {$EXTERNALSYM MIIM_STATE}
  1513.   MIIM_ID         = $00000002;
  1514.   {$EXTERNALSYM MIIM_ID}
  1515.   MIIM_SUBMENU    = $00000004;
  1516.   {$EXTERNALSYM MIIM_SUBMENU}
  1517.   MIIM_CHECKMARKS = $00000008;
  1518.   {$EXTERNALSYM MIIM_CHECKMARKS}
  1519.   MIIM_TYPE       = $00000010;
  1520.   {$EXTERNALSYM MIIM_TYPE}
  1521.   MIIM_DATA       = $00000020;
  1522.   {$EXTERNALSYM MIIM_DATA}
  1524.   MIIM_STRING = $00000040;
  1525.   {$EXTERNALSYM MIIM_STRING}
  1526.   MIIM_BITMAP = $00000080;
  1527.   {$EXTERNALSYM MIIM_BITMAP}
  1528.   MIIM_FTYPE  = $00000100;
  1529.   {$EXTERNALSYM MIIM_FTYPE}
  1531.   HBMMENU_CALLBACK        = HBITMAP(-1);
  1532.   {$EXTERNALSYM HBMMENU_CALLBACK}
  1533.   HBMMENU_SYSTEM          = HBITMAP(1);
  1534.   {$EXTERNALSYM HBMMENU_SYSTEM}
  1535.   HBMMENU_MBAR_RESTORE    = HBITMAP(2);
  1536.   {$EXTERNALSYM HBMMENU_MBAR_RESTORE}
  1537.   HBMMENU_MBAR_MINIMIZE   = HBITMAP(3);
  1538.   {$EXTERNALSYM HBMMENU_MBAR_MINIMIZE}
  1539.   HBMMENU_MBAR_CLOSE      = HBITMAP(5);
  1540.   {$EXTERNALSYM HBMMENU_MBAR_CLOSE}
  1541.   HBMMENU_MBAR_CLOSE_D    = HBITMAP(6);
  1542.   {$EXTERNALSYM HBMMENU_MBAR_CLOSE_D}
  1543.   HBMMENU_MBAR_MINIMIZE_D = HBITMAP(7);
  1544.   {$EXTERNALSYM HBMMENU_MBAR_MINIMIZE_D}
  1545.   HBMMENU_POPUP_CLOSE     = HBITMAP(8);
  1546.   {$EXTERNALSYM HBMMENU_POPUP_CLOSE}
  1547.   HBMMENU_POPUP_RESTORE   = HBITMAP(9);
  1548.   {$EXTERNALSYM HBMMENU_POPUP_RESTORE}
  1549.   HBMMENU_POPUP_MAXIMIZE  = HBITMAP(10);
  1550.   {$EXTERNALSYM HBMMENU_POPUP_MAXIMIZE}
  1551.   HBMMENU_POPUP_MINIMIZE  = HBITMAP(11);
  1552.   {$EXTERNALSYM HBMMENU_POPUP_MINIMIZE}
  1554. type
  1555.   LPMENUITEMINFOA = ^MENUITEMINFOA;
  1556.   {$EXTERNALSYM LPMENUITEMINFOA}
  1557.   tagMENUITEMINFOA = record
  1558.     cbSize: UINT;
  1559.     fMask: UINT;
  1560.     fType: UINT;            // used if MIIM_TYPE (4.0) or MIIM_FTYPE (>4.0)
  1561.     fState: UINT;           // used if MIIM_STATE
  1562.     wID: UINT;              // used if MIIM_ID
  1563.     hSubMenu: HMENU;        // used if MIIM_SUBMENU
  1564.     hbmpChecked: HBITMAP;   // used if MIIM_CHECKMARKS
  1565.     hbmpUnchecked: HBITMAP; // used if MIIM_CHECKMARKS
  1566.     dwItemData: ULONG_PTR;  // used if MIIM_DATA
  1567.     dwTypeData: LPSTR;      // used if MIIM_TYPE (4.0) or MIIM_STRING (>4.0)
  1568.     cch: UINT;              // used if MIIM_TYPE (4.0) or MIIM_STRING (>4.0)
  1569.     {$IFDEF WINVER_0500_GREATER}
  1570.     hbmpItem: HBITMAP;      // used if MIIM_BITMAP
  1571.     {$ENDIF}
  1572.   end;
  1573.   {$EXTERNALSYM tagMENUITEMINFOA}
  1574.   MENUITEMINFOA = tagMENUITEMINFOA;
  1575.   {$EXTERNALSYM MENUITEMINFOA}
  1576.   TMenuItemInfoA = MENUITEMINFOA;
  1577.   PMenuItemInfoA = LPMENUITEMINFOA;
  1579.   LPMENUITEMINFOW = ^MENUITEMINFOW;
  1580.   {$EXTERNALSYM LPMENUITEMINFOW}
  1581.   tagMENUITEMINFOW = record
  1582.     cbSize: UINT;
  1583.     fMask: UINT;
  1584.     fType: UINT;            // used if MIIM_TYPE (4.0) or MIIM_FTYPE (>4.0)
  1585.     fState: UINT;           // used if MIIM_STATE
  1586.     wID: UINT;              // used if MIIM_ID
  1587.     hSubMenu: HMENU;        // used if MIIM_SUBMENU
  1588.     hbmpChecked: HBITMAP;   // used if MIIM_CHECKMARKS
  1589.     hbmpUnchecked: HBITMAP; // used if MIIM_CHECKMARKS
  1590.     dwItemData: ULONG_PTR;  // used if MIIM_DATA
  1591.     dwTypeData: LPWSTR;     // used if MIIM_TYPE (4.0) or MIIM_STRING (>4.0)
  1592.     cch: UINT;              // used if MIIM_TYPE (4.0) or MIIM_STRING (>4.0)
  1593.     {$IFDEF WINVER_0500_GREATER}
  1594.     hbmpItem: HBITMAP;      // used if MIIM_BITMAP
  1595.     {$ENDIF}
  1596.   end;
  1597.   {$EXTERNALSYM tagMENUITEMINFOW}
  1598.   MENUITEMINFOW = tagMENUITEMINFOW;
  1599.   {$EXTERNALSYM MENUITEMINFOW}
  1600.   TMenuItemInfoW = MENUITEMINFOW;
  1601.   PMenuItemInfoW = LPMENUITEMINFOW;
  1603.   LPCMENUITEMINFOA = ^MENUITEMINFOA;
  1604.   {$EXTERNALSYM LPCMENUITEMINFOA}
  1605.   LPCMENUITEMINFOW = ^MENUITEMINFOW;
  1606.   {$EXTERNALSYM LPCMENUITEMINFOW}
  1608. {$IFDEF UNICODE}
  1609.   MENUITEMINFO = MENUITEMINFOW;
  1610.   {$EXTERNALSYM MENUITEMINFO}
  1611.   LPMENUITEMINFO = LPMENUITEMINFOW;
  1612.   {$EXTERNALSYM LPMENUITEMINFO}
  1613.   TMenuItemInfo = TMenuItemInfoW;
  1614.   PMenuItemInfo = PMenuItemInfoW;
  1615.   LPCMENUITEMINFO = LPCMENUITEMINFOW;
  1616.   {$EXTERNALSYM LPCMENUITEMINFO}
  1617. {$ELSE}
  1618.   MENUITEMINFO = MENUITEMINFOA;
  1619.   {$EXTERNALSYM MENUITEMINFO}
  1620.   LPMENUITEMINFO = LPMENUITEMINFOA;
  1621.   {$EXTERNALSYM LPMENUITEMINFO}
  1622.   TMenuItemInfo = TMenuItemInfoA;
  1623.   PMenuItemInfo = PMenuItemInfoA;
  1624.   LPCMENUITEMINFO = LPCMENUITEMINFOA;
  1625.   {$EXTERNALSYM LPCMENUITEMINFO}
  1626. {$ENDIF}
  1628. function InsertMenuItemA(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1629.   const lpmii: MENUITEMINFOA): BOOL; stdcall;
  1630. {$EXTERNALSYM InsertMenuItemA}
  1631. function InsertMenuItemW(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1632.   const lpmii: MENUITEMINFOW): BOOL; stdcall;
  1633. {$EXTERNALSYM InsertMenuItemW}
  1635. {$IFDEF UNICODE}
  1636. function InsertMenuItem(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1637.   const lpmii: MENUITEMINFOW): BOOL; stdcall;
  1638. {$EXTERNALSYM InsertMenuItem}
  1639. {$ELSE}
  1640. function InsertMenuItem(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1641.   const lpmii: MENUITEMINFOA): BOOL; stdcall;
  1642. {$EXTERNALSYM InsertMenuItem}
  1643. {$ENDIF}
  1645. function GetMenuItemInfoA(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1646.   var lpmii: MENUITEMINFOA): BOOL; stdcall;
  1647. {$EXTERNALSYM GetMenuItemInfoA}
  1648. function GetMenuItemInfoW(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1649.   var lpmii: MENUITEMINFOW): BOOL; stdcall;
  1650. {$EXTERNALSYM GetMenuItemInfoW}
  1652. {$IFDEF UNICODE}
  1653. function GetMenuItemInfo(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1654.   var lpmii: MENUITEMINFOW): BOOL; stdcall;
  1655. {$EXTERNALSYM GetMenuItemInfo}
  1656. {$ELSE}
  1657. function GetMenuItemInfo(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1658.   var lpmii: MENUITEMINFOA): BOOL; stdcall;
  1659. {$EXTERNALSYM GetMenuItemInfo}
  1660. {$ENDIF}
  1662. function SetMenuItemInfoA(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1663.   const lpmii: MENUITEMINFOA): BOOL; stdcall;
  1664. {$EXTERNALSYM SetMenuItemInfoA}
  1665. function SetMenuItemInfoW(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1666.   const lpmii: MENUITEMINFOW): BOOL; stdcall;
  1667. {$EXTERNALSYM SetMenuItemInfoW}
  1669. {$IFDEF UNICODE}
  1670. function SetMenuItemInfo(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1671.   const lpmii: MENUITEMINFOW): BOOL; stdcall;
  1672. {$EXTERNALSYM SetMenuItemInfo}
  1673. {$ELSE}
  1674. function SetMenuItemInfo(hMenu: HMENU; uItem: UINT; fByPosition: BOOL;
  1675.   const lpmii: MENUITEMINFOA): BOOL; stdcall;
  1676. {$EXTERNALSYM SetMenuItemInfo}
  1677. {$ENDIF}
  1679. const
  1680.   GMDI_USEDISABLED  = $0001;
  1681.   {$EXTERNALSYM GMDI_USEDISABLED}
  1682.   GMDI_GOINTOPOPUPS = $0002;
  1683.   {$EXTERNALSYM GMDI_GOINTOPOPUPS}
  1685. function GetMenuDefaultItem(hMenu: HMENU; fByPos, gmdiFlags: UINT): UINT; stdcall;
  1686. {$EXTERNALSYM GetMenuDefaultItem}
  1688. function SetMenuDefaultItem(hMenu: HMENU; uItem, fByPos: UINT): BOOL; stdcall;
  1689. {$EXTERNALSYM SetMenuDefaultItem}
  1691. function GetMenuItemRect(hWnd: HWND; hMenu: HMENU; uItem: UINT; var lprcItem: RECT): BOOL; stdcall;
  1692. {$EXTERNALSYM GetMenuItemRect}
  1694. function MenuItemFromPoint(hWnd: HWND; hMenu: HMENU; ptScreen: POINT): Integer; stdcall;
  1695. {$EXTERNALSYM MenuItemFromPoint}
  1697. //
  1698. // Flags for TrackPopupMenu
  1699. //
  1701. const
  1702.   TPM_LEFTBUTTON   = $0000;
  1703.   {$EXTERNALSYM TPM_LEFTBUTTON}
  1704.   TPM_RIGHTBUTTON  = $0002;
  1705.   {$EXTERNALSYM TPM_RIGHTBUTTON}
  1706.   TPM_LEFTALIGN    = $0000;
  1707.   {$EXTERNALSYM TPM_LEFTALIGN}
  1708.   TPM_CENTERALIGN  = $0004;
  1709.   {$EXTERNALSYM TPM_CENTERALIGN}
  1710.   TPM_RIGHTALIGN   = $0008;
  1711.   {$EXTERNALSYM TPM_RIGHTALIGN}
  1712.   TPM_TOPALIGN     = $0000;
  1713.   {$EXTERNALSYM TPM_TOPALIGN}
  1714.   TPM_VCENTERALIGN = $0010;
  1715.   {$EXTERNALSYM TPM_VCENTERALIGN}
  1716.   TPM_BOTTOMALIGN  = $0020;
  1717.   {$EXTERNALSYM TPM_BOTTOMALIGN}
  1719.   TPM_HORIZONTAL      = $0000; // Horz alignment matters more
  1720.   {$EXTERNALSYM TPM_HORIZONTAL}
  1721.   TPM_VERTICAL        = $0040; // Vert alignment matters more
  1722.   {$EXTERNALSYM TPM_VERTICAL}
  1723.   TPM_NONOTIFY        = $0080; // Don't send any notification msgs
  1724.   {$EXTERNALSYM TPM_NONOTIFY}
  1725.   TPM_RETURNCMD       = $0100;
  1726.   {$EXTERNALSYM TPM_RETURNCMD}
  1727.   TPM_RECURSE         = $0001;
  1728.   {$EXTERNALSYM TPM_RECURSE}
  1729.   TPM_HORPOSANIMATION = $0400;
  1730.   {$EXTERNALSYM TPM_HORPOSANIMATION}
  1731.   TPM_HORNEGANIMATION = $0800;
  1732.   {$EXTERNALSYM TPM_HORNEGANIMATION}
  1733.   TPM_VERPOSANIMATION = $1000;
  1734.   {$EXTERNALSYM TPM_VERPOSANIMATION}
  1735.   TPM_VERNEGANIMATION = $2000;
  1736.   {$EXTERNALSYM TPM_VERNEGANIMATION}
  1737.   TPM_NOANIMATION     = $4000;
  1738.   {$EXTERNALSYM TPM_NOANIMATION}
  1739.   TPM_LAYOUTRTL       = $8000;
  1740.   {$EXTERNALSYM TPM_LAYOUTRTL}
  1741.   
  1742. //
  1743. // Drag-and-drop support
  1744. // Obsolete - use OLE instead
  1745. //
  1747. type
  1748.   LPDROPSTRUCT = ^DROPSTRUCT;
  1749.   {$EXTERNALSYM LPDROPSTRUCT}
  1750.   tagDROPSTRUCT = record
  1751.     hwndSource: HWND;
  1752.     hwndSink: HWND;
  1753.     wFmt: DWORD;
  1754.     dwData: ULONG_PTR;
  1755.     ptDrop: POINT;
  1756.     dwControlData: DWORD;
  1757.   end;
  1758.   {$EXTERNALSYM tagDROPSTRUCT}
  1759.   DROPSTRUCT = tagDROPSTRUCT;
  1760.   {$EXTERNALSYM DROPSTRUCT}
  1761.   TDropStruct = DROPSTRUCT;
  1762.   PDropStruct = LPDROPSTRUCT;
  1764. const
  1765.   DOF_EXECUTABLE = $8001; // wFmt flags
  1766.   {$EXTERNALSYM DOF_EXECUTABLE}
  1767.   DOF_DOCUMENT   = $8002;
  1768.   {$EXTERNALSYM DOF_DOCUMENT}
  1769.   DOF_DIRECTORY  = $8003;
  1770.   {$EXTERNALSYM DOF_DIRECTORY}
  1771.   DOF_MULTIPLE   = $8004;
  1772.   {$EXTERNALSYM DOF_MULTIPLE}
  1773.   DOF_PROGMAN    = $0001;
  1774.   {$EXTERNALSYM DOF_PROGMAN}
  1775.   DOF_SHELLDATA  = $0002;
  1776.   {$EXTERNALSYM DOF_SHELLDATA}
  1778.   DO_DROPFILE  = $454C4946;
  1779.   {$EXTERNALSYM DO_DROPFILE}
  1780.   DO_PRINTFILE = $544E5250;
  1781.   {$EXTERNALSYM DO_PRINTFILE}
  1783. function DragObject(hwnd1, hwnd2: HWND; i: UINT; u: ULONG_PTR; hcursor: HCURSOR): DWORD; stdcall;
  1784. {$EXTERNALSYM DragObject}
  1786. function DragDetect(hwnd: HWND; pt: POINT): BOOL; stdcall;
  1787. {$EXTERNALSYM DragDetect}
  1789. function DrawIcon(hDC: HDC; X, Y: Integer; hIcon: HICON): BOOL; stdcall;
  1790. {$EXTERNALSYM DrawIcon}
  1792. //
  1793. // DrawText() Format Flags
  1794. //
  1796. const
  1797.   DT_TOP             = $00000000;
  1798.   {$EXTERNALSYM DT_TOP}
  1799.   DT_LEFT            = $00000000;
  1800.   {$EXTERNALSYM DT_LEFT}
  1801.   DT_CENTER          = $00000001;
  1802.   {$EXTERNALSYM DT_CENTER}
  1803.   DT_RIGHT           = $00000002;
  1804.   {$EXTERNALSYM DT_RIGHT}
  1805.   DT_VCENTER         = $00000004;
  1806.   {$EXTERNALSYM DT_VCENTER}
  1807.   DT_BOTTOM          = $00000008;
  1808.   {$EXTERNALSYM DT_BOTTOM}
  1809.   DT_WORDBREAK       = $00000010;
  1810.   {$EXTERNALSYM DT_WORDBREAK}
  1811.   DT_SINGLELINE      = $00000020;
  1812.   {$EXTERNALSYM DT_SINGLELINE}
  1813.   DT_EXPANDTABS      = $00000040;
  1814.   {$EXTERNALSYM DT_EXPANDTABS}
  1815.   DT_TABSTOP         = $00000080;
  1816.   {$EXTERNALSYM DT_TABSTOP}
  1817.   DT_NOCLIP          = $00000100;
  1818.   {$EXTERNALSYM DT_NOCLIP}
  1819.   DT_EXTERNALLEADING = $00000200;
  1820.   {$EXTERNALSYM DT_EXTERNALLEADING}
  1821.   DT_CALCRECT        = $00000400;
  1822.   {$EXTERNALSYM DT_CALCRECT}
  1823.   DT_NOPREFIX        = $00000800;
  1824.   {$EXTERNALSYM DT_NOPREFIX}
  1825.   DT_INTERNAL        = $00001000;
  1826.   {$EXTERNALSYM DT_INTERNAL}
  1828.   DT_EDITCONTROL          = $00002000;
  1829.   {$EXTERNALSYM DT_EDITCONTROL}
  1830.   DT_PATH_ELLIPSIS        = $00004000;
  1831.   {$EXTERNALSYM DT_PATH_ELLIPSIS}
  1832.   DT_END_ELLIPSIS         = $00008000;
  1833.   {$EXTERNALSYM DT_END_ELLIPSIS}
  1834.   DT_MODIFYSTRING         = $00010000;
  1835.   {$EXTERNALSYM DT_MODIFYSTRING}
  1836.   DT_RTLREADING           = $00020000;
  1837.   {$EXTERNALSYM DT_RTLREADING}
  1838.   DT_WORD_ELLIPSIS        = $00040000;
  1839.   {$EXTERNALSYM DT_WORD_ELLIPSIS}
  1840.   DT_NOFULLWIDTHCHARBREAK = $00080000;
  1841.   {$EXTERNALSYM DT_NOFULLWIDTHCHARBREAK}
  1842.   DT_HIDEPREFIX           = $00100000;
  1843.   {$EXTERNALSYM DT_HIDEPREFIX}
  1844.   DT_PREFIXONLY           = $00200000;
  1845.   {$EXTERNALSYM DT_PREFIXONLY}
  1847. type
  1848.   LPDRAWTEXTPARAMS = ^DRAWTEXTPARAMS;
  1849.   {$EXTERNALSYM LPDRAWTEXTPARAMS}
  1850.   tagDRAWTEXTPARAMS = record
  1851.     cbSize: UINT;
  1852.     iTabLength: Integer;
  1853.     iLeftMargin: Integer;
  1854.     iRightMargin: Integer;
  1855.     uiLengthDrawn: UINT;
  1856.   end;
  1857.   {$EXTERNALSYM tagDRAWTEXTPARAMS}
  1858.   DRAWTEXTPARAMS = tagDRAWTEXTPARAMS;
  1859.   {$EXTERNALSYM DRAWTEXTPARAMS}
  1860.   TDrawTextParams = DRAWTEXTPARAMS;
  1861.   PDrawTextParams = LPDRAWTEXTPARAMS;
  1863. function DrawTextA(hDC: HDC; lpString: LPCSTR; nCount: Integer;
  1864.   var lpRect: RECT; uFormat: UINT): Integer; stdcall;
  1865. {$EXTERNALSYM DrawTextA}
  1866. function DrawTextW(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
  1867.   var lpRect: RECT; uFormat: UINT): Integer; stdcall;
  1868. {$EXTERNALSYM DrawTextW}
  1870. {$IFDEF UNICODE}
  1871. function DrawText(hDC: HDC; lpString: LPCWSTR; nCount: Integer;
  1872.   var lpRect: RECT; uFormat: UINT): Integer; stdcall;
  1873. {$EXTERNALSYM DrawText}
  1874. {$ELSE}
  1875. function DrawText(hDC: HDC; lpString: LPCSTR; nCount: Integer;
  1876.   var lpRect: RECT; uFormat: UINT): Integer; stdcall;
  1877. {$EXTERNALSYM DrawText}
  1878. {$ENDIF}
  1880. function DrawTextExA(hDc: HDC; lpchText: LPSTR; cchText: Integer;
  1881.   var lprc: RECT; dwDTFormat: UINT; lpDTParams: LPDRAWTEXTPARAMS): Integer; stdcall;
  1882. {$EXTERNALSYM DrawTextExA}
  1883. function DrawTextExW(hDc: HDC; lpchText: LPWSTR; cchText: Integer;
  1884.   var lprc: RECT; dwDTFormat: UINT; lpDTParams: LPDRAWTEXTPARAMS): Integer; stdcall;
  1885. {$EXTERNALSYM DrawTextExW}
  1887. {$IFDEF UNICODE}
  1888. function DrawTextEx(hDc: HDC; lpchText: LPWSTR; cchText: Integer;
  1889.   var lprc: LPRECT; dwDTFormat: UINT; lpDTParams: LPDRAWTEXTPARAMS): Integer; stdcall;
  1890. {$EXTERNALSYM DrawTextEx}
  1891. {$ELSE}
  1892. function DrawTextEx(hDc: HDC; lpchText: LPSTR; cchText: Integer;
  1893.   var lprc: RECT; dwDTFormat: UINT; lpDTParams: LPDRAWTEXTPARAMS): Integer; stdcall;
  1894. {$EXTERNALSYM DrawTextEx}
  1895. {$ENDIF}
  1897. function GrayStringA(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: GRAYSTRINGPROC;
  1898.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  1899. {$EXTERNALSYM GrayStringA}
  1900. function GrayStringW(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: GRAYSTRINGPROC;
  1901.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  1902. {$EXTERNALSYM GrayStringW}
  1904. {$IFDEF UNICODE}
  1905. function GrayString(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: GRAYSTRINGPROC;
  1906.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  1907. {$EXTERNALSYM GrayString}
  1908. {$ELSE}
  1909. function GrayString(hDC: HDC; hBrush: HBRUSH; lpOutputFunc: GRAYSTRINGPROC;
  1910.   lpData: LPARAM; nCount, X, Y, nWidth, nHeight: Integer): BOOL; stdcall;
  1911. {$EXTERNALSYM GrayString}
  1912. {$ENDIF}
  1915. // Monolithic state-drawing routine//
  1916. // Image type//
  1918. const
  1919.   DST_COMPLEX    = $0000;
  1920.   {$EXTERNALSYM DST_COMPLEX}
  1921.   DST_TEXT       = $0001;
  1922.   {$EXTERNALSYM DST_TEXT}
  1923.   DST_PREFIXTEXT = $0002;
  1924.   {$EXTERNALSYM DST_PREFIXTEXT}
  1925.   DST_ICON       = $0003;
  1926.   {$EXTERNALSYM DST_ICON}
  1927.   DST_BITMAP     = $0004;
  1928.   {$EXTERNALSYM DST_BITMAP}
  1930. // State type//
  1932.   DSS_NORMAL     = $0000;
  1933.   {$EXTERNALSYM DSS_NORMAL}
  1934.   DSS_UNION      = $0010; // Gray string appearance
  1935.   {$EXTERNALSYM DSS_UNION}
  1936.   DSS_DISABLED   = $0020;
  1937.   {$EXTERNALSYM DSS_DISABLED}
  1938.   DSS_MONO       = $0080;
  1939.   {$EXTERNALSYM DSS_MONO}
  1940.   DSS_HIDEPREFIX = $0200;
  1941.   {$EXTERNALSYM DSS_HIDEPREFIX}
  1942.   DSS_PREFIXONLY = $0400;
  1943.   {$EXTERNALSYM DSS_PREFIXONLY}
  1944.   DSS_RIGHT      = $8000;
  1945.   {$EXTERNALSYM DSS_RIGHT}
  1947. function DrawStateA(hdc: HDC; hbr: HBRUSH; lputputFunc: DRAWSTATEPROC;
  1948.   lData: LPARAM; wData: WPARAM; x, y, cx, cy: Integer; fuFlags: UINT): BOOL; stdcall;
  1949. {$EXTERNALSYM DrawStateA}
  1950. function DrawStateW(hdc: HDC; hbr: HBRUSH; lputputFunc: DRAWSTATEPROC;
  1951.   lData: LPARAM; wData: WPARAM; x, y, cx, cy: Integer; fuFlags: UINT): BOOL; stdcall;
  1952. {$EXTERNALSYM DrawStateW}
  1954. {$IFDEF UNICODE}
  1955. function DrawState(hdc: HDC; hbr: HBRUSH; lputputFunc: DRAWSTATEPROC;
  1956.   lData: LPARAM; wData: WPARAM; x, y, cx, cy: Integer; fuFlags: UINT): BOOL; stdcall;
  1957. {$EXTERNALSYM DrawState}
  1958. {$ELSE}
  1959. function DrawState(hdc: HDC; hbr: HBRUSH; lputputFunc: DRAWSTATEPROC;
  1960.   lData: LPARAM; wData: WPARAM; x, y, cx, cy: Integer; fuFlags: UINT): BOOL; stdcall;
  1961. {$EXTERNALSYM DrawState}
  1962. {$ENDIF}
  1964. function TabbedTextOutA(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount,
  1965.   nTabPositions: Integer; lpnTabStopPositions: LPINT; nTabOrigin: Integer): LONG; stdcall;
  1966. {$EXTERNALSYM TabbedTextOutA}
  1967. function TabbedTextOutW(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount,
  1968.   nTabPositions: Integer; lpnTabStopPositions: LPINT; nTabOrigin: Integer): LONG; stdcall;
  1969. {$EXTERNALSYM TabbedTextOutW}
  1971. {$IFDEF UNICODE}
  1972. function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: LPCWSTR; nCount,
  1973.   nTabPositions: Integer; lpnTabStopPositions: LPINT; nTabOrigin: Integer): LONG; stdcall;
  1974. {$EXTERNALSYM TabbedTextOut}
  1975. {$ELSE}
  1976. function TabbedTextOut(hDC: HDC; X, Y: Integer; lpString: LPCSTR; nCount,
  1977.   nTabPositions: Integer; lpnTabStopPositions: LPINT; nTabOrigin: Integer): LONG; stdcall;
  1978. {$EXTERNALSYM TabbedTextOut}
  1979. {$ENDIF}
  1981. function GetTabbedTextExtentA(hDC: HDC; lpString: LPCSTR; nCount,
  1982.   nTabPositions: Integer; lpnTabStopPositions: LPINT): DWORD; stdcall;
  1983. {$EXTERNALSYM GetTabbedTextExtentA}
  1984. function GetTabbedTextExtentW(hDC: HDC; lpString: LPCWSTR; nCount,
  1985.   nTabPositions: Integer; lpnTabStopPositions: LPINT): DWORD; stdcall;
  1986. {$EXTERNALSYM GetTabbedTextExtentW}
  1988. {$IFDEF UNICODE}
  1989. function GetTabbedTextExtent(hDC: HDC; lpString: LPCWSTR; nCount,
  1990.   nTabPositions: Integer; lpnTabStopPositions: LPINT): DWORD; stdcall;
  1991. {$EXTERNALSYM GetTabbedTextExtent}
  1992. {$ELSE}
  1993. function GetTabbedTextExtent(hDC: HDC; lpString: LPCSTR; nCount,
  1994.   nTabPositions: Integer; lpnTabStopPositions: LPINT): DWORD; stdcall;
  1995. {$EXTERNALSYM GetTabbedTextExtent}
  1996. {$ENDIF}
  1998. function UpdateWindow(hWnd: HWND): BOOL; stdcall;
  1999. {$EXTERNALSYM UpdateWindow}
  2001. function SetActiveWindow(hWnd: HWND): HWND; stdcall;
  2002. {$EXTERNALSYM SetActiveWindow}
  2004. function GetForegroundWindow: HWND; stdcall;
  2005. {$EXTERNALSYM GetForegroundWindow}
  2007. function PaintDesktop(hdc: HDC): BOOL; stdcall;
  2008. {$EXTERNALSYM PaintDesktop}
  2010. procedure SwitchToThisWindow(hwnd: HWND; fUnknown: BOOL); stdcall;
  2011. {$EXTERNALSYM SwitchToThisWindow}
  2013. function SetForegroundWindow(hWnd: HWND): BOOL; stdcall;
  2014. {$EXTERNALSYM SetForegroundWindow}
  2016. function AllowSetForegroundWindow(dwProcessId: DWORD): BOOL; stdcall;
  2017. {$EXTERNALSYM AllowSetForegroundWindow}
  2019. const
  2020.   ASFW_ANY = DWORD(-1);
  2021.   {$EXTERNALSYM ASFW_ANY}
  2023. function LockSetForegroundWindow(uLockCode: UINT): BOOL; stdcall;
  2024. {$EXTERNALSYM LockSetForegroundWindow}
  2026. const
  2027.   LSFW_LOCK   = 1;
  2028.   {$EXTERNALSYM LSFW_LOCK}
  2029.   LSFW_UNLOCK = 2;
  2030.   {$EXTERNALSYM LSFW_UNLOCK}
  2032. function WindowFromDC(hDC: HDC): HWND; stdcall;
  2033. {$EXTERNALSYM WindowFromDC}
  2035. function GetDC(hWnd: HWND): HDC; stdcall;
  2036. {$EXTERNALSYM GetDC}
  2038. function GetDCEx(hWnd: HWND; hrgnClip: HRGN; flags: DWORD): HDC; stdcall;
  2039. {$EXTERNALSYM GetDCEx}
  2041. //
  2042. // GetDCEx() flags
  2043. //
  2045. const
  2046.   DCX_WINDOW           = $00000001;
  2047.   {$EXTERNALSYM DCX_WINDOW}
  2048.   DCX_CACHE            = $00000002;
  2049.   {$EXTERNALSYM DCX_CACHE}
  2050.   DCX_NORESETATTRS     = $00000004;
  2051.   {$EXTERNALSYM DCX_NORESETATTRS}
  2052.   DCX_CLIPCHILDREN     = $00000008;
  2053.   {$EXTERNALSYM DCX_CLIPCHILDREN}
  2054.   DCX_CLIPSIBLINGS     = $00000010;
  2055.   {$EXTERNALSYM DCX_CLIPSIBLINGS}
  2056.   DCX_PARENTCLIP       = $00000020;
  2057.   {$EXTERNALSYM DCX_PARENTCLIP}
  2058.   DCX_EXCLUDERGN       = $00000040;
  2059.   {$EXTERNALSYM DCX_EXCLUDERGN}
  2060.   DCX_INTERSECTRGN     = $00000080;
  2061.   {$EXTERNALSYM DCX_INTERSECTRGN}
  2062.   DCX_EXCLUDEUPDATE    = $00000100;
  2063.   {$EXTERNALSYM DCX_EXCLUDEUPDATE}
  2064.   DCX_INTERSECTUPDATE  = $00000200;
  2065.   {$EXTERNALSYM DCX_INTERSECTUPDATE}
  2066.   DCX_LOCKWINDOWUPDATE = $00000400;
  2067.   {$EXTERNALSYM DCX_LOCKWINDOWUPDATE}
  2069.   DCX_VALIDATE = $00200000;
  2070.   {$EXTERNALSYM DCX_VALIDATE}
  2072. function GetWindowDC(hWnd: HWND): HDC; stdcall;
  2073. {$EXTERNALSYM GetWindowDC}
  2075. function ReleaseDC(hWnd: HWND; hDC: HDC): Integer; stdcall;
  2076. {$EXTERNALSYM ReleaseDC}
  2078. function BeginPaint(hWnd: HWND; var lpPaint: PAINTSTRUCT): HDC; stdcall;
  2079. {$EXTERNALSYM BeginPaint}
  2081. function EndPaint(hWnd: HWND; const lpPaint: PAINTSTRUCT): BOOL; stdcall;
  2082. {$EXTERNALSYM EndPaint}
  2084. function GetUpdateRect(hWnd: HWND; var lpRect: RECT; bErase: BOOL): BOOL; stdcall;
  2085. {$EXTERNALSYM GetUpdateRect}
  2087. function GetUpdateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): Integer; stdcall;
  2088. {$EXTERNALSYM GetUpdateRgn}
  2090. function SetWindowRgn(hWnd: HWND; hRgn: HRGN; bRedraw: BOOL): Integer; stdcall;
  2091. {$EXTERNALSYM SetWindowRgn}
  2093. function GetWindowRgn(hWnd: HWND; hRgn: HRGN): Integer; stdcall;
  2094. {$EXTERNALSYM GetWindowRgn}
  2096. function GetWindowRgnBox(hWnd: HWND; var lprc: RECT): Integer; stdcall;
  2097. {$EXTERNALSYM GetWindowRgnBox}
  2099. function ExcludeUpdateRgn(hDC: HDC; hWnd: HWND): Integer; stdcall;
  2100. {$EXTERNALSYM ExcludeUpdateRgn}
  2102. function InvalidateRect(hWnd: HWND; lpRect: LPRECT; bErase: BOOL): BOOL; stdcall;
  2103. {$EXTERNALSYM InvalidateRect}
  2105. function ValidateRect(hWnd: HWND; lpRect: LPRECT): BOOL; stdcall;
  2106. {$EXTERNALSYM ValidateRect}
  2108. function InvalidateRgn(hWnd: HWND; hRgn: HRGN; bErase: BOOL): BOOL; stdcall;
  2109. {$EXTERNALSYM InvalidateRgn}
  2111. function ValidateRgn(hWnd: HWND; hRgn: HRGN): BOOL; stdcall;
  2112. {$EXTERNALSYM ValidateRgn}
  2114. function RedrawWindow(hWnd: HWND; lprcUpdate: LPRECT; hrgnUpdate: HRGN; flags: UINT): BOOL; stdcall;
  2115. {$EXTERNALSYM RedrawWindow}
  2117. //
  2118. // RedrawWindow() flags
  2119. //
  2121. const
  2122.   RDW_INVALIDATE    = $0001;
  2123.   {$EXTERNALSYM RDW_INVALIDATE}
  2124.   RDW_INTERNALPAINT = $0002;
  2125.   {$EXTERNALSYM RDW_INTERNALPAINT}
  2126.   RDW_ERASE         = $0004;
  2127.   {$EXTERNALSYM RDW_ERASE}
  2129.   RDW_VALIDATE        = $0008;
  2130.   {$EXTERNALSYM RDW_VALIDATE}
  2131.   RDW_NOINTERNALPAINT = $0010;
  2132.   {$EXTERNALSYM RDW_NOINTERNALPAINT}
  2133.   RDW_NOERASE         = $0020;
  2134.   {$EXTERNALSYM RDW_NOERASE}
  2136.   RDW_NOCHILDREN  = $0040;
  2137.   {$EXTERNALSYM RDW_NOCHILDREN}
  2138.   RDW_ALLCHILDREN = $0080;
  2139.   {$EXTERNALSYM RDW_ALLCHILDREN}
  2141.   RDW_UPDATENOW = $0100;
  2142.   {$EXTERNALSYM RDW_UPDATENOW}
  2143.   RDW_ERASENOW  = $0200;
  2144.   {$EXTERNALSYM RDW_ERASENOW}
  2146.   RDW_FRAME   = $0400;
  2147.   {$EXTERNALSYM RDW_FRAME}
  2148.   RDW_NOFRAME = $0800;
  2149.   {$EXTERNALSYM RDW_NOFRAME}
  2151. //
  2152. // LockWindowUpdate API
  2153. //
  2155. function LockWindowUpdate(hWndLock: HWND): BOOL; stdcall;
  2156. {$EXTERNALSYM LockWindowUpdate}
  2158. function ScrollWindow(hWnd: HWND; XAmount, YAmount: Integer; lpRect, lpClipRect: LPRECT): BOOL; stdcall;
  2159. {$EXTERNALSYM ScrollWindow}
  2161. function ScrollDC(hDC: HDC; dx, dy: Integer; lprcScroll, lprcClip: LPRECT;
  2162.   hrgnUpdate: HRGN; lprcUpdate: LPRECT): BOOL; stdcall;
  2163. {$EXTERNALSYM ScrollDC}
  2165. function ScrollWindowEx(hWnd: HWND; dx, dy: Integer; prcScroll, prcClip: LPRECT;
  2166.   hrgnUpdate: HRGN; prcUpdate: LPRECT; flags: UINT): Integer; stdcall;
  2167. {$EXTERNALSYM ScrollWindowEx}
  2169. const
  2170.   SW_SCROLLCHILDREN = $0001; // Scroll children within *lprcScroll.
  2171.   {$EXTERNALSYM SW_SCROLLCHILDREN}
  2172.   SW_INVALIDATE     = $0002; // Invalidate after scrolling
  2173.   {$EXTERNALSYM SW_INVALIDATE}
  2174.   SW_ERASE          = $0004; // If SW_INVALIDATE, don't send WM_ERASEBACKGROUND
  2175.   {$EXTERNALSYM SW_ERASE}
  2176.   SW_SMOOTHSCROLL   = $0010; // Use smooth scrolling
  2177.   {$EXTERNALSYM SW_SMOOTHSCROLL}
  2179. function SetScrollPos(hWnd: HWND; nBar, nPos: Integer; bRedraw: BOOL): Integer; stdcall;
  2180. {$EXTERNALSYM SetScrollPos}
  2182. function GetScrollPos(hWnd: HWND; nBar: Integer): Integer; stdcall;
  2183. {$EXTERNALSYM GetScrollPos}
  2185. function SetScrollRange(hWnd: HWND; nBar, nMinPos, nMaxPos: Integer; bRedraw: BOOL): BOOL; stdcall;
  2186. {$EXTERNALSYM SetScrollRange}
  2188. function GetScrollRange(hWnd: HWND; nBar: Integer; var lpMinPos, lpMaxPos: Integer): BOOL; stdcall;
  2189. {$EXTERNALSYM GetScrollRange}
  2191. function ShowScrollBar(hWnd: HWND; wBar: Integer; bShow: BOOL): BOOL; stdcall;
  2192. {$EXTERNALSYM ShowScrollBar}
  2194. function EnableScrollBar(hWnd: HWND; wSBflags, wArrows: UINT): BOOL; stdcall;
  2195. {$EXTERNALSYM EnableScrollBar}
  2197. //
  2198. // EnableScrollBar() flags
  2199. //
  2201. const
  2202.   ESB_ENABLE_BOTH  = $0000;
  2203.   {$EXTERNALSYM ESB_ENABLE_BOTH}
  2204.   ESB_DISABLE_BOTH = $0003;
  2205.   {$EXTERNALSYM ESB_DISABLE_BOTH}
  2207.   ESB_DISABLE_LEFT  = $0001;
  2208.   {$EXTERNALSYM ESB_DISABLE_LEFT}
  2209.   ESB_DISABLE_RIGHT = $0002;
  2210.   {$EXTERNALSYM ESB_DISABLE_RIGHT}
  2212.   ESB_DISABLE_UP   = $0001;
  2213.   {$EXTERNALSYM ESB_DISABLE_UP}
  2214.   ESB_DISABLE_DOWN = $0002;
  2215.   {$EXTERNALSYM ESB_DISABLE_DOWN}
  2217.   ESB_DISABLE_LTUP = ESB_DISABLE_LEFT;
  2218.   {$EXTERNALSYM ESB_DISABLE_LTUP}
  2219.   ESB_DISABLE_RTDN = ESB_DISABLE_RIGHT;
  2220.   {$EXTERNALSYM ESB_DISABLE_RTDN}
  2222. function SetPropA(hWnd: HWND; lpString: LPCSTR; hData: HANDLE): BOOL; stdcall;
  2223. {$EXTERNALSYM SetPropA}
  2224. function SetPropW(hWnd: HWND; lpString: LPCWSTR; hData: HANDLE): BOOL; stdcall;
  2225. {$EXTERNALSYM SetPropW}
  2227. {$IFDEF UNICODE}
  2228. function SetProp(hWnd: HWND; lpString: LPCWSTR; hData: HANDLE): BOOL; stdcall;
  2229. {$EXTERNALSYM SetProp}
  2230. {$ELSE}
  2231. function SetProp(hWnd: HWND; lpString: LPCSTR; hData: HANDLE): BOOL; stdcall;
  2232. {$EXTERNALSYM SetProp}
  2233. {$ENDIF}
  2235. function GetPropA(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
  2236. {$EXTERNALSYM GetPropA}
  2237. function GetPropW(hWnd: HWND; lpString: LPCWSTR): HANDLE; stdcall;
  2238. {$EXTERNALSYM GetPropW}
  2240. {$IFDEF UNICODE}
  2241. function GetProp(hWnd: HWND; lpString: LPCWSTR): HANDLE; stdcall;
  2242. {$EXTERNALSYM GetProp}
  2243. {$ELSE}
  2244. function GetProp(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
  2245. {$EXTERNALSYM GetProp}
  2246. {$ENDIF}
  2248. function RemovePropA(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
  2249. {$EXTERNALSYM RemovePropA}
  2250. function RemovePropW(hWnd: HWND; lpString: LPCWSTR): HANDLE; stdcall;
  2251. {$EXTERNALSYM RemovePropW}
  2253. {$IFDEF UNICODE}
  2254. function RemoveProp(hWnd: HWND; lpString: LPCWSTR): HANDLE; stdcall;
  2255. {$EXTERNALSYM RemoveProp}
  2256. {$ELSE}
  2257. function RemoveProp(hWnd: HWND; lpString: LPCSTR): HANDLE; stdcall;
  2258. {$EXTERNALSYM RemoveProp}
  2259. {$ENDIF}
  2261. function EnumPropsExA(hWnd: HWND; lpEnumFunc: PROPENUMPROCEXA; lParam: LPARAM): Integer; stdcall;
  2262. {$EXTERNALSYM EnumPropsExA}
  2263. function EnumPropsExW(hWnd: HWND; lpEnumFunc: PROPENUMPROCEXW; lParam: LPARAM): Integer; stdcall;
  2264. {$EXTERNALSYM EnumPropsExW}
  2266. {$IFDEF UNICODE}
  2267. function EnumPropsEx(hWnd: HWND; lpEnumFunc: PROPENUMPROCEXW; lParam: LPARAM): Integer; stdcall;
  2268. {$EXTERNALSYM EnumPropsEx}
  2269. {$ELSE}
  2270. function EnumPropsEx(hWnd: HWND; lpEnumFunc: PROPENUMPROCEXA; lParam: LPARAM): Integer; stdcall;
  2271. {$EXTERNALSYM EnumPropsEx}
  2272. {$ENDIF}
  2274. function EnumPropsA(hWnd: HWND; lpEnumFunc: PROPENUMPROCA): Integer; stdcall;
  2275. {$EXTERNALSYM EnumPropsA}
  2276. function EnumPropsW(hWnd: HWND; lpEnumFunc: PROPENUMPROCW): Integer; stdcall;
  2277. {$EXTERNALSYM EnumPropsW}
  2279. {$IFDEF UNICODE}
  2280. function EnumProps(hWnd: HWND; lpEnumFunc: PROPENUMPROCW): Integer; stdcall;
  2281. {$EXTERNALSYM EnumProps}
  2282. {$ELSE}
  2283. function EnumProps(hWnd: HWND; lpEnumFunc: PROPENUMPROCA): Integer; stdcall;
  2284. {$EXTERNALSYM EnumProps}
  2285. {$ENDIF}
  2287. function SetWindowTextA(hWnd: HWND; lpString: LPCSTR): BOOL; stdcall;
  2288. {$EXTERNALSYM SetWindowTextA}
  2289. function SetWindowTextW(hWnd: HWND; lpString: LPCWSTR): BOOL; stdcall;
  2290. {$EXTERNALSYM SetWindowTextW}
  2292. {$IFDEF UNICODE}
  2293. function SetWindowText(hWnd: HWND; lpString: LPCWSTR): BOOL; stdcall;
  2294. {$EXTERNALSYM SetWindowText}
  2295. {$ELSE}
  2296. function SetWindowText(hWnd: HWND; lpString: LPCSTR): BOOL; stdcall;
  2297. {$EXTERNALSYM SetWindowText}
  2298. {$ENDIF}
  2300. function GetWindowTextA(hWnd: HWND; lpString: LPSTR; nMaxCount: Integer): Integer; stdcall;
  2301. {$EXTERNALSYM GetWindowTextA}
  2302. function GetWindowTextW(hWnd: HWND; lpString: LPWSTR; nMaxCount: Integer): Integer; stdcall;
  2303. {$EXTERNALSYM GetWindowTextW}
  2305. {$IFDEF UNICODE}
  2306. function GetWindowText(hWnd: HWND; lpString: LPWSTR; nMaxCount: Integer): Integer; stdcall;
  2307. {$EXTERNALSYM GetWindowText}
  2308. {$ELSE}
  2309. function GetWindowText(hWnd: HWND; lpString: LPSTR; nMaxCount: Integer): Integer; stdcall;
  2310. {$EXTERNALSYM GetWindowText}
  2311. {$ENDIF}
  2313. function GetWindowTextLengthA(hWnd: HWND): Integer; stdcall;
  2314. {$EXTERNALSYM GetWindowTextLengthA}
  2315. function GetWindowTextLengthW(hWnd: HWND): Integer; stdcall;
  2316. {$EXTERNALSYM GetWindowTextLengthW}
  2318. {$IFDEF UNICODE}
  2319. function GetWindowTextLength(hWnd: HWND): Integer; stdcall;
  2320. {$EXTERNALSYM GetWindowTextLength}
  2321. {$ELSE}
  2322. function GetWindowTextLength(hWnd: HWND): Integer; stdcall;
  2323. {$EXTERNALSYM GetWindowTextLength}
  2324. {$ENDIF}
  2326. function GetClientRect(hWnd: HWND; var lpRect: RECT): BOOL; stdcall;
  2327. {$EXTERNALSYM GetClientRect}
  2329. function GetWindowRect(hWnd: HWND; var lpRect: RECT): BOOL; stdcall;
  2330. {$EXTERNALSYM GetWindowRect}
  2332. function AdjustWindowRect(var lpRect: RECT; dwStyle: DWORD; bMenu: BOOL): BOOL; stdcall;
  2333. {$EXTERNALSYM AdjustWindowRect}
  2335. function AdjustWindowRectEx(var lpRect: RECT; dwStyle: DWORD;
  2336.   bMenu: BOOL; dwExStyle: DWORD): BOOL; stdcall;
  2337. {$EXTERNALSYM AdjustWindowRectEx}
  2339. const
  2340.   HELPINFO_WINDOW   = $0001;
  2341.   {$EXTERNALSYM HELPINFO_WINDOW}
  2342.   HELPINFO_MENUITEM = $0002;
  2343.   {$EXTERNALSYM HELPINFO_MENUITEM}
  2345. type
  2346.   LPHELPINFO = ^HELPINFO;
  2347.   {$EXTERNALSYM LPHELPINFO}
  2348.   tagHELPINFO = record      // Structure pointed to by lParam of WM_HELP//
  2349.     cbSize: UINT;           // Size in bytes of this struct //
  2350.     iContextType: Integer;  // Either HELPINFO_WINDOW or HELPINFO_MENUITEM//
  2351.     iCtrlId: Integer;       // Control Id or a Menu item Id.//
  2352.     hItemHandle: HANDLE;    // hWnd of control or hMenu.    //
  2353.     dwContextId: DWORD_PTR; // Context Id associated with this item//
  2354.     MousePos: POINT;        // Mouse Position in screen co-ordinates//
  2355.   end;
  2356.   {$EXTERNALSYM tagHELPINFO}
  2357.   HELPINFO = tagHELPINFO;
  2358.   {$EXTERNALSYM HELPINFO}
  2359.   THelpInfo = HELPINFO;
  2360.   PHelpInfo = LPHELPINFO;
  2362. function SetWindowContextHelpId(hwnd: HWND; dwContextHelpId: DWORD): BOOL; stdcall;
  2363. {$EXTERNALSYM SetWindowContextHelpId}
  2365. function GetWindowContextHelpId(hwnd: HWND): DWORD; stdcall;
  2366. {$EXTERNALSYM GetWindowContextHelpId}
  2368. function SetMenuContextHelpId(hmenu: HMENU; dwContextHelpId: DWORD): BOOL; stdcall;
  2369. {$EXTERNALSYM SetMenuContextHelpId}
  2371. function GetMenuContextHelpId(hmenu: HMENU): DWORD; stdcall;
  2372. {$EXTERNALSYM GetMenuContextHelpId}
  2374. //
  2375. // MessageBox() Flags
  2376. //
  2378. const
  2379.   MB_OK                = $00000000;
  2380.   {$EXTERNALSYM MB_OK}
  2381.   MB_OKCANCEL          = $00000001;
  2382.   {$EXTERNALSYM MB_OKCANCEL}
  2383.   MB_ABORTRETRYIGNORE  = $00000002;
  2384.   {$EXTERNALSYM MB_ABORTRETRYIGNORE}
  2385.   MB_YESNOCANCEL       = $00000003;
  2386.   {$EXTERNALSYM MB_YESNOCANCEL}
  2387.   MB_YESNO             = $00000004;
  2388.   {$EXTERNALSYM MB_YESNO}
  2389.   MB_RETRYCANCEL       = $00000005;
  2390.   {$EXTERNALSYM MB_RETRYCANCEL}
  2391.   MB_CANCELTRYCONTINUE = $00000006;
  2392.   {$EXTERNALSYM MB_CANCELTRYCONTINUE}
  2394.   MB_ICONHAND        = $00000010;
  2395.   {$EXTERNALSYM MB_ICONHAND}
  2396.   MB_ICONQUESTION    = $00000020;
  2397.   {$EXTERNALSYM MB_ICONQUESTION}
  2398.   MB_ICONEXCLAMATION = $00000030;
  2399.   {$EXTERNALSYM MB_ICONEXCLAMATION}
  2400.   MB_ICONASTERISK    = $00000040;
  2401.   {$EXTERNALSYM MB_ICONASTERISK}
  2403.   MB_USERICON    = $00000080;
  2404.   {$EXTERNALSYM MB_USERICON}
  2405.   MB_ICONWARNING = MB_ICONEXCLAMATION;
  2406.   {$EXTERNALSYM MB_ICONWARNING}
  2407.   MB_ICONERROR   = MB_ICONHAND;
  2408.   {$EXTERNALSYM MB_ICONERROR}
  2410.   MB_ICONINFORMATION = MB_ICONASTERISK;
  2411.   {$EXTERNALSYM MB_ICONINFORMATION}
  2412.   MB_ICONSTOP        = MB_ICONHAND;
  2413.   {$EXTERNALSYM MB_ICONSTOP}
  2415.   MB_DEFBUTTON1 = $00000000;
  2416.   {$EXTERNALSYM MB_DEFBUTTON1}
  2417.   MB_DEFBUTTON2 = $00000100;
  2418.   {$EXTERNALSYM MB_DEFBUTTON2}
  2419.   MB_DEFBUTTON3 = $00000200;
  2420.   {$EXTERNALSYM MB_DEFBUTTON3}
  2421.   MB_DEFBUTTON4 = $00000300;
  2422.   {$EXTERNALSYM MB_DEFBUTTON4}
  2424.   MB_APPLMODAL   = $00000000;
  2425.   {$EXTERNALSYM MB_APPLMODAL}
  2426.   MB_SYSTEMMODAL = $00001000;
  2427.   {$EXTERNALSYM MB_SYSTEMMODAL}
  2428.   MB_TASKMODAL   = $00002000;
  2429.   {$EXTERNALSYM MB_TASKMODAL}
  2430.   MB_HELP        = $00004000; // Help Button
  2431.   {$EXTERNALSYM MB_HELP}
  2433.   MB_NOFOCUS              = $00008000;
  2434.   {$EXTERNALSYM MB_NOFOCUS}
  2435.   MB_SETFOREGROUND        = $00010000;
  2436.   {$EXTERNALSYM MB_SETFOREGROUND}
  2437.   MB_DEFAULT_DESKTOP_ONLY = $00020000;
  2438.   {$EXTERNALSYM MB_DEFAULT_DESKTOP_ONLY}
  2440.   MB_TOPMOST    = $00040000;
  2441.   {$EXTERNALSYM MB_TOPMOST}
  2442.   MB_RIGHT      = $00080000;
  2443.   {$EXTERNALSYM MB_RIGHT}
  2444.   MB_RTLREADING = $00100000;
  2445.   {$EXTERNALSYM MB_RTLREADING}
  2447. const
  2448. {$IFDEF WINNT}
  2449.   {$IFDEF WINNT_0400_GREATER}
  2450.   MB_SERVICE_NOTIFICATION = $00200000;
  2451.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION}
  2452.   {$ELSE}
  2453.   MB_SERVICE_NOTIFICATION = $00040000;
  2454.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION}
  2455.   {$ENDIF}
  2456. {$ELSE}
  2457.   MB_SERVICE_NOTIFICATION_NT3X = $00040000;
  2458.   {$EXTERNALSYM MB_SERVICE_NOTIFICATION_NT3X}
  2459. {$ENDIF}
  2461.   MB_TYPEMASK = $0000000F;
  2462.   {$EXTERNALSYM MB_TYPEMASK}
  2463.   MB_ICONMASK = $000000F0;
  2464.   {$EXTERNALSYM MB_ICONMASK}
  2465.   MB_DEFMASK  = $00000F00;
  2466.   {$EXTERNALSYM MB_DEFMASK}
  2467.   MB_MODEMASK = $00003000;
  2468.   {$EXTERNALSYM MB_MODEMASK}
  2469.   MB_MISCMASK = $0000C000;
  2470.   {$EXTERNALSYM MB_MISCMASK}
  2472. function MessageBoxA(hWnd: HWND; lpText, lpCaption: LPCSTR; uType: UINT): Integer; stdcall;
  2473. {$EXTERNALSYM MessageBoxA}
  2474. function MessageBoxW(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;
  2475. {$EXTERNALSYM MessageBoxW}
  2477. {$IFDEF UNICODE}
  2478. function MessageBox(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;
  2479. {$EXTERNALSYM MessageBox}
  2480. {$ELSE}
  2481. function MessageBox(hWnd: HWND; lpText, lpCaption: LPCSTR; uType: UINT): Integer; stdcall;
  2482. {$EXTERNALSYM MessageBox}
  2483. {$ENDIF}
  2485. function MessageBoxExA(hWnd: HWND; lpText, lpCaption: LPCSTR; uType: UINT;
  2486.   wLanguageId: WORD): Integer; stdcall;
  2487. {$EXTERNALSYM MessageBoxExA}
  2488. function MessageBoxExW(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT;
  2489.   wLanguageId: WORD): Integer; stdcall;
  2490. {$EXTERNALSYM MessageBoxExW}
  2492. {$IFDEF UNICODE}
  2493. function MessageBoxEx(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT;
  2494.   wLanguageId: WORD): Integer; stdcall;
  2495. {$EXTERNALSYM MessageBoxEx}
  2496. {$ELSE}
  2497. function MessageBoxEx(hWnd: HWND; lpText, lpCaption: LPCSTR; uType: UINT;
  2498.   wLanguageId: WORD): Integer; stdcall;
  2499. {$EXTERNALSYM MessageBoxEx}
  2500. {$ENDIF}
  2502. type
  2503.   MSGBOXCALLBACK = procedure (var lpHelpInfo: HELPINFO); stdcall;
  2504.   {$EXTERNALSYM MSGBOXCALLBACK}
  2505.   TMsgBoxCallback = MSGBOXCALLBACK;
  2507.   LPMSGBOXPARAMSA = ^MSGBOXPARAMSA;
  2508.   {$EXTERNALSYM LPMSGBOXPARAMSA}
  2509.   tagMSGBOXPARAMSA = record
  2510.     cbSize: UINT;
  2511.     hwndOwner: HWND;
  2512.     hInstance: HINSTANCE;
  2513.     lpszText: LPCSTR;
  2514.     lpszCaption: LPCSTR;
  2515.     dwStyle: DWORD;
  2516.     lpszIcon: LPCSTR;
  2517.     dwContextHelpId: DWORD_PTR;
  2518.     lpfnMsgBoxCallback: MSGBOXCALLBACK;
  2519.     dwLanguageId: DWORD;
  2520.   end;
  2521.   {$EXTERNALSYM tagMSGBOXPARAMSA}
  2522.   MSGBOXPARAMSA = tagMSGBOXPARAMSA;
  2523.   {$EXTERNALSYM MSGBOXPARAMSA}
  2524.   TMsgBoxParamsA = MSGBOXPARAMSA;
  2525.   PMsgBoxParamsA = LPMSGBOXPARAMSA;
  2527.   LPMSGBOXPARAMSW = ^MSGBOXPARAMSW;
  2528.   {$EXTERNALSYM LPMSGBOXPARAMSW}
  2529.   tagMSGBOXPARAMSW = record
  2530.     cbSize: UINT;
  2531.     hwndOwner: HWND;
  2532.     hInstance: HINSTANCE;
  2533.     lpszText: LPCWSTR;
  2534.     lpszCaption: LPCWSTR;
  2535.     dwStyle: DWORD;
  2536.     lpszIcon: LPCWSTR;
  2537.     dwContextHelpId: DWORD_PTR;
  2538.     lpfnMsgBoxCallback: MSGBOXCALLBACK;
  2539.     dwLanguageId: DWORD;
  2540.   end;
  2541.   {$EXTERNALSYM tagMSGBOXPARAMSW}
  2542.   MSGBOXPARAMSW = tagMSGBOXPARAMSW;
  2543.   {$EXTERNALSYM MSGBOXPARAMSW}
  2544.   TMsgBoxParamsW = MSGBOXPARAMSW;
  2545.   PMsgBoxParamsW = LPMSGBOXPARAMSW;
  2547. {$IFDEF UNICODE}
  2548.   MSGBOXPARAMS = MSGBOXPARAMSW;
  2549.   {$EXTERNALSYM MSGBOXPARAMS}
  2550.   LPMSGBOXPARAMS = LPMSGBOXPARAMSW;
  2551.   {$EXTERNALSYM LPMSGBOXPARAMS}
  2552.   TMsgBoxParams = TMsgBoxParamsW;
  2553.   PMsgBoxParams = PMsgBoxParamsW;
  2554. {$ELSE}
  2555.   MSGBOXPARAMS = MSGBOXPARAMSA;
  2556.   {$EXTERNALSYM MSGBOXPARAMS}
  2557.   LPMSGBOXPARAMS = LPMSGBOXPARAMSA;
  2558.   {$EXTERNALSYM LPMSGBOXPARAMS}
  2559.   TMsgBoxParams = TMsgBoxParamsA;
  2560.   PMsgBoxParams = PMsgBoxParamsA;
  2561. {$ENDIF}
  2563. function MessageBoxIndirectA(const lpMsgBoxParams: MSGBOXPARAMSA): Integer; stdcall;
  2564. {$EXTERNALSYM MessageBoxIndirectA}
  2565. function MessageBoxIndirectW(const lpMsgBoxParams: MSGBOXPARAMSW): Integer; stdcall;
  2566. {$EXTERNALSYM MessageBoxIndirectW}
  2568. {$IFDEF UNICODE}
  2569. function MessageBoxIndirect(const lpMsgBoxParams: MSGBOXPARAMSW): Integer; stdcall;
  2570. {$EXTERNALSYM MessageBoxIndirect}
  2571. {$ELSE}
  2572. function MessageBoxIndirect(const lpMsgBoxParams: MSGBOXPARAMSA): Integer; stdcall;
  2573. {$EXTERNALSYM MessageBoxIndirect}
  2574. {$ENDIF}
  2576. function MessageBeep(uType: UINT): BOOL; stdcall;
  2577. {$EXTERNALSYM MessageBeep}
  2579. function ShowCursor(bShow: BOOL): Integer; stdcall;
  2580. {$EXTERNALSYM ShowCursor}
  2582. function SetCursorPos(X, Y: Integer): BOOL; stdcall;
  2583. {$EXTERNALSYM SetCursorPos}
  2585. function SetCursor(hCursor: HCURSOR): HCURSOR; stdcall;
  2586. {$EXTERNALSYM SetCursor}
  2588. function GetCursorPos(var lpPoint: POINT): BOOL; stdcall;
  2589. {$EXTERNALSYM GetCursorPos}
  2591. function ClipCursor(lpRect: LPRECT): BOOL; stdcall;
  2592. {$EXTERNALSYM ClipCursor}
  2594. function GetClipCursor(var lpRect: RECT): BOOL; stdcall;
  2595. {$EXTERNALSYM GetClipCursor}
  2597. function GetCursor: HCURSOR; stdcall;
  2598. {$EXTERNALSYM GetCursor}
  2600. function CreateCaret(hWnd: HWND; hBitmap: HBITMAP; nWidth, nHeight: Integer): BOOL; stdcall;
  2601. {$EXTERNALSYM CreateCaret}
  2603. function GetCaretBlinkTime: UINT; stdcall;
  2604. {$EXTERNALSYM GetCaretBlinkTime}
  2606. function SetCaretBlinkTime(uMSeconds: UINT): BOOL; stdcall;
  2607. {$EXTERNALSYM SetCaretBlinkTime}
  2609. function DestroyCaret: BOOL; stdcall;
  2610. {$EXTERNALSYM DestroyCaret}
  2612. function HideCaret(hWnd: HWND): BOOL; stdcall;
  2613. {$EXTERNALSYM HideCaret}
  2615. function ShowCaret(hWnd: HWND): BOOL; stdcall;
  2616. {$EXTERNALSYM ShowCaret}
  2618. function SetCaretPos(X, Y: Integer): BOOL; stdcall;
  2619. {$EXTERNALSYM SetCaretPos}
  2621. function GetCaretPos(var lpPoint: POINT): BOOL; stdcall;
  2622. {$EXTERNALSYM GetCaretPos}
  2624. function ClientToScreen(hWnd: HWND; var lpPoint: POINT): BOOL; stdcall;
  2625. {$EXTERNALSYM ClientToScreen}
  2627. function ScreenToClient(hWnd: HWND; var lpPoint: POINT): BOOL; stdcall;
  2628. {$EXTERNALSYM ScreenToClient}
  2630. function MapWindowPoints(hWndFrom, hWndTo: HWND; lpPoints: LPPOINT; cPoints: UINT): Integer; stdcall;
  2631. {$EXTERNALSYM MapWindowPoints}
  2633. function WindowFromPoint(Point: POINT): HWND; stdcall;
  2634. {$EXTERNALSYM WindowFromPoint}
  2636. function ChildWindowFromPoint(hWndParent: HWND; Point: POINT): HWND; stdcall;
  2637. {$EXTERNALSYM ChildWindowFromPoint}
  2639. const
  2640.   CWP_ALL             = $0000;
  2641.   {$EXTERNALSYM CWP_ALL}
  2642.   CWP_SKIPINVISIBLE   = $0001;
  2643.   {$EXTERNALSYM CWP_SKIPINVISIBLE}
  2644.   CWP_SKIPDISABLED    = $0002;
  2645.   {$EXTERNALSYM CWP_SKIPDISABLED}
  2646.   CWP_SKIPTRANSPARENT = $0004;
  2647.   {$EXTERNALSYM CWP_SKIPTRANSPARENT}
  2649. function ChildWindowFromPointEx(hwndParent: HWND; pt: POINT; uFlags: UINT): HWND; stdcall;
  2650. {$EXTERNALSYM ChildWindowFromPointEx}
  2652. //
  2653. // Color Types
  2654. //
  2656. const
  2657.   CTLCOLOR_MSGBOX    = 0;
  2658.   {$EXTERNALSYM CTLCOLOR_MSGBOX}
  2659.   CTLCOLOR_EDIT      = 1;
  2660.   {$EXTERNALSYM CTLCOLOR_EDIT}
  2661.   CTLCOLOR_LISTBOX   = 2;
  2662.   {$EXTERNALSYM CTLCOLOR_LISTBOX}
  2663.   CTLCOLOR_BTN       = 3;
  2664.   {$EXTERNALSYM CTLCOLOR_BTN}
  2665.   CTLCOLOR_DLG       = 4;
  2666.   {$EXTERNALSYM CTLCOLOR_DLG}
  2667.   CTLCOLOR_SCROLLBAR = 5;
  2668.   {$EXTERNALSYM CTLCOLOR_SCROLLBAR}
  2669.   CTLCOLOR_STATIC    = 6;
  2670.   {$EXTERNALSYM CTLCOLOR_STATIC}
  2671.   CTLCOLOR_MAX       = 7;
  2672.   {$EXTERNALSYM CTLCOLOR_MAX}
  2674.   COLOR_SCROLLBAR           = 0;
  2675.   {$EXTERNALSYM COLOR_SCROLLBAR}
  2676.   COLOR_BACKGROUND          = 1;
  2677.   {$EXTERNALSYM COLOR_BACKGROUND}
  2678.   COLOR_ACTIVECAPTION       = 2;
  2679.   {$EXTERNALSYM COLOR_ACTIVECAPTION}
  2680.   COLOR_INACTIVECAPTION     = 3;
  2681.   {$EXTERNALSYM COLOR_INACTIVECAPTION}
  2682.   COLOR_MENU                = 4;
  2683.   {$EXTERNALSYM COLOR_MENU}
  2684.   COLOR_WINDOW              = 5;
  2685.   {$EXTERNALSYM COLOR_WINDOW}
  2686.   COLOR_WINDOWFRAME         = 6;
  2687.   {$EXTERNALSYM COLOR_WINDOWFRAME}
  2688.   COLOR_MENUTEXT            = 7;
  2689.   {$EXTERNALSYM COLOR_MENUTEXT}
  2690.   COLOR_WINDOWTEXT          = 8;
  2691.   {$EXTERNALSYM COLOR_WINDOWTEXT}
  2692.   COLOR_CAPTIONTEXT         = 9;
  2693.   {$EXTERNALSYM COLOR_CAPTIONTEXT}
  2694.   COLOR_ACTIVEBORDER        = 10;
  2695.   {$EXTERNALSYM COLOR_ACTIVEBORDER}
  2696.   COLOR_INACTIVEBORDER      = 11;
  2697.   {$EXTERNALSYM COLOR_INACTIVEBORDER}
  2698.   COLOR_APPWORKSPACE        = 12;
  2699.   {$EXTERNALSYM COLOR_APPWORKSPACE}
  2700.   COLOR_HIGHLIGHT           = 13;
  2701.   {$EXTERNALSYM COLOR_HIGHLIGHT}
  2702.   COLOR_HIGHLIGHTTEXT       = 14;
  2703.   {$EXTERNALSYM COLOR_HIGHLIGHTTEXT}
  2704.   COLOR_BTNFACE             = 15;
  2705.   {$EXTERNALSYM COLOR_BTNFACE}
  2706.   COLOR_BTNSHADOW           = 16;
  2707.   {$EXTERNALSYM COLOR_BTNSHADOW}
  2708.   COLOR_GRAYTEXT            = 17;
  2709.   {$EXTERNALSYM COLOR_GRAYTEXT}
  2710.   COLOR_BTNTEXT             = 18;
  2711.   {$EXTERNALSYM COLOR_BTNTEXT}
  2712.   COLOR_INACTIVECAPTIONTEXT = 19;
  2713.   {$EXTERNALSYM COLOR_INACTIVECAPTIONTEXT}
  2714.   COLOR_BTNHIGHLIGHT        = 20;
  2715.   {$EXTERNALSYM COLOR_BTNHIGHLIGHT}
  2717.   COLOR_3DDKSHADOW = 21;
  2718.   {$EXTERNALSYM COLOR_3DDKSHADOW}
  2719.   COLOR_3DLIGHT    = 22;
  2720.   {$EXTERNALSYM COLOR_3DLIGHT}
  2721.   COLOR_INFOTEXT   = 23;
  2722.   {$EXTERNALSYM COLOR_INFOTEXT}
  2723.   COLOR_INFOBK     = 24;
  2724.   {$EXTERNALSYM COLOR_INFOBK}
  2726.   COLOR_HOTLIGHT                = 26;
  2727.   {$EXTERNALSYM COLOR_HOTLIGHT}
  2728.   COLOR_GRADIENTACTIVECAPTION   = 27;
  2729.   {$EXTERNALSYM COLOR_GRADIENTACTIVECAPTION}
  2730.   COLOR_GRADIENTINACTIVECAPTION = 28;
  2731.   {$EXTERNALSYM COLOR_GRADIENTINACTIVECAPTION}
  2732.   COLOR_MENUHILIGHT             = 29;
  2733.   {$EXTERNALSYM COLOR_MENUHILIGHT}
  2734.   COLOR_MENUBAR                 = 30;
  2735.   {$EXTERNALSYM COLOR_MENUBAR}
  2737.   COLOR_DESKTOP     = COLOR_BACKGROUND;
  2738.   {$EXTERNALSYM COLOR_DESKTOP}
  2739.   COLOR_3DFACE      = COLOR_BTNFACE;
  2740.   {$EXTERNALSYM COLOR_3DFACE}
  2741.   COLOR_3DSHADOW    = COLOR_BTNSHADOW;
  2742.   {$EXTERNALSYM COLOR_3DSHADOW}
  2743.   COLOR_3DHIGHLIGHT = COLOR_BTNHIGHLIGHT;
  2744.   {$EXTERNALSYM COLOR_3DHIGHLIGHT}
  2745.   COLOR_3DHILIGHT   = COLOR_BTNHIGHLIGHT;
  2746.   {$EXTERNALSYM COLOR_3DHILIGHT}
  2747.   COLOR_BTNHILIGHT  = COLOR_BTNHIGHLIGHT;
  2748.   {$EXTERNALSYM COLOR_BTNHILIGHT}
  2750. function GetSysColor(nIndex: Integer): DWORD; stdcall;
  2751. {$EXTERNALSYM GetSysColor}
  2753. function GetSysColorBrush(nIndex: Integer): HBRUSH; stdcall;
  2754. {$EXTERNALSYM GetSysColorBrush}
  2756. function SetSysColors(cElements: Integer; lpaElements: LPINT;
  2757.   lpaRgbValues: LPCOLORREF): BOOL; stdcall;
  2758. {$EXTERNALSYM SetSysColors}
  2760. function DrawFocusRect(hDC: HDC; const lprc: RECT): BOOL; stdcall;
  2761. {$EXTERNALSYM DrawFocusRect}
  2763. function FillRect(hDC: HDC; const lprc: RECT; hbr: HBRUSH): Integer; stdcall;
  2764. {$EXTERNALSYM FillRect}
  2766. function FrameRect(hDC: HDC; const lprc: RECT; hbr: HBRUSH): Integer; stdcall;
  2767. {$EXTERNALSYM FrameRect}
  2769. function InvertRect(hDC: HDC; const lprc: RECT): BOOL; stdcall;
  2770. {$EXTERNALSYM InvertRect}
  2772. function SetRect(var lprc: RECT; xLeft, yTop, xRight, yBottom: Integer): BOOL; stdcall;
  2773. {$EXTERNALSYM SetRect}
  2775. function SetRectEmpty(var lprc: RECT): BOOL; stdcall;
  2776. {$EXTERNALSYM SetRectEmpty}
  2778. function CopyRect(var lprcDst: RECT; const lprcSrc: RECT): BOOL; stdcall;
  2779. {$EXTERNALSYM CopyRect}
  2781. function InflateRect(var lprc: RECT; dx, dy: Integer): BOOL; stdcall;
  2782. {$EXTERNALSYM InflateRect}
  2784. function IntersectRect(var lprcDst: RECT; const lprcSrc1, lprcSrc2: RECT): BOOL; stdcall;
  2785. {$EXTERNALSYM IntersectRect}
  2787. function UnionRect(var lprcDst: RECT; const lprcSrc1, lprcSrc2: RECT): BOOL; stdcall;
  2788. {$EXTERNALSYM UnionRect}
  2790. function SubtractRect(var lprcDst: RECT; const lprcSrc1, lprcSrc2: RECT): BOOL; stdcall;
  2791. {$EXTERNALSYM SubtractRect}
  2793. function OffsetRect(var lprc: RECT; dx, dy: Integer): BOOL; stdcall;
  2794. {$EXTERNALSYM OffsetRect}
  2796. function IsRectEmpty(const lprc: RECT): BOOL; stdcall;
  2797. {$EXTERNALSYM IsRectEmpty}
  2799. function EqualRect(const lprc1, lprc2: RECT): BOOL; stdcall;
  2800. {$EXTERNALSYM EqualRect}
  2802. function PtInRect(const lprc: RECT; pt: POINT): BOOL; stdcall;
  2803. {$EXTERNALSYM PtInRect}
  2805. function GetWindowWord(hWnd: HWND; nIndex: Integer): WORD; stdcall;
  2806. {$EXTERNALSYM GetWindowWord}
  2808. function SetWindowWord(hWnd: HWND; nIndex: Integer; wNewWord: WORD): WORD; stdcall;
  2809. {$EXTERNALSYM SetWindowWord}
  2811. function GetWindowLongA(hWnd: HWND; nIndex: Integer): LONG; stdcall;
  2812. {$EXTERNALSYM GetWindowLongA}
  2813. function GetWindowLongW(hWnd: HWND; nIndex: Integer): LONG; stdcall;
  2814. {$EXTERNALSYM GetWindowLongW}
  2816. {$IFDEF UNICODE}
  2817. function GetWindowLong(hWnd: HWND; nIndex: Integer): LONG; stdcall;
  2818. {$EXTERNALSYM GetWindowLong}
  2819. {$ELSE}
  2820. function GetWindowLong(hWnd: HWND; nIndex: Integer): LONG; stdcall;
  2821. {$EXTERNALSYM GetWindowLong}
  2822. {$ENDIF}
  2824. function SetWindowLongA(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): LONG; stdcall;
  2825. {$EXTERNALSYM SetWindowLongA}
  2826. function SetWindowLongW(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): LONG; stdcall;
  2827. {$EXTERNALSYM SetWindowLongW}
  2829. {$IFDEF UNICODE}
  2830. function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): LONG; stdcall;
  2831. {$EXTERNALSYM SetWindowLong}
  2832. {$ELSE}
  2833. function SetWindowLong(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): LONG; stdcall;
  2834. {$EXTERNALSYM SetWindowLong}
  2835. {$ENDIF}
  2837. function GetWindowLongPtrA(hWnd: HWND; nIndex: Integer): LONG_PTR;
  2838. {$EXTERNALSYM GetWindowLongPtrA}
  2840. function GetWindowLongPtrW(hWnd: HWND; nIndex: Integer): LONG_PTR;
  2841. {$EXTERNALSYM GetWindowLongPtrW}
  2843. {$IFDEF UNICODE}
  2844. function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LONG_PTR;
  2845. {$EXTERNALSYM GetWindowLongPtr}
  2846. {$ELSE}
  2847. function GetWindowLongPtr(hWnd: HWND; nIndex: Integer): LONG_PTR;
  2848. {$EXTERNALSYM GetWindowLongPtr}
  2849. {$ENDIF}
  2851. function SetWindowLongPtrA(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR;
  2852. {$EXTERNALSYM SetWindowLongPtrA}
  2854. function SetWindowLongPtrW(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR;
  2855. {$EXTERNALSYM SetWindowLongPtrW}
  2857. {$IFDEF UNICODE}
  2858. function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR;
  2859. {$EXTERNALSYM SetWindowLongPtr}
  2860. {$ELSE}
  2861. function SetWindowLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: LONG_PTR): LONG_PTR;
  2862. {$EXTERNALSYM SetWindowLongPtr}
  2863. {$ENDIF}
  2865. function GetClassWord(hWnd: HWND; nIndex: Integer): WORD; stdcall;
  2866. {$EXTERNALSYM GetClassWord}
  2868. function SetClassWord(hWnd: HWND; nIndex: Integer; wNewWord: WORD): WORD; stdcall;
  2869. {$EXTERNALSYM SetClassWord}
  2871. function GetClassLongA(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  2872. {$EXTERNALSYM GetClassLongA}
  2873. function GetClassLongW(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  2874. {$EXTERNALSYM GetClassLongW}
  2876. {$IFDEF UNICODE}
  2877. function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  2878. {$EXTERNALSYM GetClassLong}
  2879. {$ELSE}
  2880. function GetClassLong(hWnd: HWND; nIndex: Integer): DWORD; stdcall;
  2881. {$EXTERNALSYM GetClassLong}
  2882. {$ENDIF}
  2884. function SetClassLongA(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): DWORD; stdcall;
  2885. {$EXTERNALSYM SetClassLongA}
  2886. function SetClassLongW(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): DWORD; stdcall;
  2887. {$EXTERNALSYM SetClassLongW}
  2889. {$IFDEF UNICODE}
  2890. function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): DWORD; stdcall;
  2891. {$EXTERNALSYM SetClassLong}
  2892. {$ELSE}
  2893. function SetClassLong(hWnd: HWND; nIndex: Integer; dwNewLong: LONG): DWORD; stdcall;
  2894. {$EXTERNALSYM SetClassLong}
  2895. {$ENDIF}
  2897. function GetClassLongPtrA(hWnd: HWND; nIndex: Integer): ULONG_PTR;
  2898. {$EXTERNALSYM GetClassLongPtrA}
  2900. function GetClassLongPtrW(hWnd: HWND; nIndex: Integer): ULONG_PTR;
  2901. {$EXTERNALSYM GetClassLongPtrW}
  2903. {$IFDEF UNICODE}
  2904. function GetClassLongPtr(hWnd: HWND; nIndex: Integer): ULONG_PTR;
  2905. {$EXTERNALSYM GetClassLongPtr}
  2906. {$ELSE}
  2907. function GetClassLongPtr(hWnd: HWND; nIndex: Integer): ULONG_PTR;
  2908. {$EXTERNALSYM GetClassLongPtr}
  2909. {$ENDIF}
  2911. function SetClassLongPtrA(hWnd: HWND; nIndex: Integer; dwNewLong: ULONG_PTR): ULONG_PTR;
  2912. {$EXTERNALSYM SetClassLongPtrA}
  2914. function SetClassLongPtrW(hWnd: HWND; nIndex: Integer; dwNewLong: ULONG_PTR): ULONG_PTR;
  2915. {$EXTERNALSYM SetClassLongPtrW}
  2917. {$IFDEF UNICODE}
  2918. function SetClassLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: ULONG_PTR): ULONG_PTR;
  2919. {$EXTERNALSYM SetClassLongPtr}
  2920. {$ELSE}
  2921. function SetClassLongPtr(hWnd: HWND; nIndex: Integer; dwNewLong: ULONG_PTR): ULONG_PTR;
  2922. {$EXTERNALSYM SetClassLongPtr}
  2923. {$ENDIF}
  2925. function GetProcessDefaultLayout(var pdwDefaultLayout: DWORD): BOOL; stdcall;
  2926. {$EXTERNALSYM GetProcessDefaultLayout}
  2928. function SetProcessDefaultLayout(dwDefaultLayout: DWORD): BOOL; stdcall;
  2929. {$EXTERNALSYM SetProcessDefaultLayout}
  2931. function GetDesktopWindow: HWND; stdcall;
  2932. {$EXTERNALSYM GetDesktopWindow}
  2934. function GetParent(hWnd: HWND): HWND; stdcall;
  2935. {$EXTERNALSYM GetParent}
  2937. function SetParent(hWndChild, hWndNewParent: HWND): HWND; stdcall;
  2938. {$EXTERNALSYM SetParent}
  2940. function EnumChildWindows(hWndParent: HWND; lpEnumFunc: WNDENUMPROC; lParam: LPARAM): BOOL; stdcall;
  2941. {$EXTERNALSYM EnumChildWindows}
  2943. function FindWindowA(lpClassName, lpWindowName: LPCSTR): HWND; stdcall;
  2944. {$EXTERNALSYM FindWindowA}
  2945. function FindWindowW(lpClassName, lpWindowName: LPCWSTR): HWND; stdcall;
  2946. {$EXTERNALSYM FindWindowW}
  2948. {$IFDEF UNICODE}
  2949. function FindWindow(lpClassName, lpWindowName: LPCWSTR): HWND; stdcall;
  2950. {$EXTERNALSYM FindWindow}
  2951. {$ELSE}
  2952. function FindWindow(lpClassName, lpWindowName: LPCSTR): HWND; stdcall;
  2953. {$EXTERNALSYM FindWindow}
  2954. {$ENDIF}
  2956. function FindWindowExA(hwndParent, hwndChildAfter: HWND; lpszClass, lpszWindow: LPCSTR): HWND; stdcall;
  2957. {$EXTERNALSYM FindWindowExA}
  2958. function FindWindowExW(hwndParent, hwndChildAfter: HWND; lpszClass, lpszWindow: LPCWSTR): HWND; stdcall;
  2959. {$EXTERNALSYM FindWindowExW}
  2961. {$IFDEF UNICODE}
  2962. function FindWindowEx(hwndParent, hwndChildAfter: HWND; lpszClass, lpszWindow: LPCWSTR): HWND; stdcall;
  2963. {$EXTERNALSYM FindWindowEx}
  2964. {$ELSE}
  2965. function FindWindowEx(hwndParent, hwndChildAfter: HWND; lpszClass, lpszWindow: LPCSTR): HWND; stdcall;
  2966. {$EXTERNALSYM FindWindowEx}
  2967. {$ENDIF}
  2969. function GetShellWindow: HWND; stdcall;
  2970. {$EXTERNALSYM GetShellWindow}
  2972. function EnumWindows(lpEnumFunc: WNDENUMPROC; lParam: LPARAM): BOOL; stdcall;
  2973. {$EXTERNALSYM EnumWindows}
  2975. function EnumThreadWindows(dwThreadId: DWORD; lpfn: WNDENUMPROC; lParam: LPARAM): BOOL; stdcall;
  2976. {$EXTERNALSYM EnumThreadWindows}
  2978. function EnumTaskWindows(hTask: HANDLE; lpfn: WNDENUMPROC; lParam: LPARAM): BOOL;
  2979. {$EXTERNALSYM EnumTaskWindows}
  2981. function GetClassNameA(hWnd: HWND; lpClassName: LPSTR; nMaxCount: Integer): Integer; stdcall;
  2982. {$EXTERNALSYM GetClassNameA}
  2983. function GetClassNameW(hWnd: HWND; lpClassName: LPWSTR; nMaxCount: Integer): Integer; stdcall;
  2984. {$EXTERNALSYM GetClassNameW}
  2986. {$IFDEF UNICODE}
  2987. function GetClassName(hWnd: HWND; lpClassName: LPWSTR; nMaxCount: Integer): Integer; stdcall;
  2988. {$EXTERNALSYM GetClassName}
  2989. {$ELSE}
  2990. function GetClassName(hWnd: HWND; lpClassName: LPSTR; nMaxCount: Integer): Integer; stdcall;
  2991. {$EXTERNALSYM GetClassName}
  2992. {$ENDIF}
  2994. function GetTopWindow(hWnd: HWND): HWND; stdcall;
  2995. {$EXTERNALSYM GetTopWindow}
  2997. function GetNextWindow(hWnd: HWND; wCmd: UINT): HWND;
  2998. {$EXTERNALSYM GetNextWindow}
  3000. function GetWindowThreadProcessId(hWnd: HWND; lpdwProcessId: LPDWORD): DWORD; stdcall;
  3001. {$EXTERNALSYM GetWindowThreadProcessId}
  3003. function IsGUIThread(bConvert: BOOL): BOOL; stdcall;
  3004. {$EXTERNALSYM IsGUIThread}
  3006. function GetWindowTask(hWnd: HWND): HANDLE;
  3007. {$EXTERNALSYM GetWindowTask}
  3009. function GetLastActivePopup(hWnd: HWND): HWND; stdcall;
  3010. {$EXTERNALSYM GetLastActivePopup}
  3012. //
  3013. // GetWindow() Constants
  3014. //
  3016. const
  3017.   GW_HWNDFIRST    = 0;
  3018.   {$EXTERNALSYM GW_HWNDFIRST}
  3019.   GW_HWNDLAST     = 1;
  3020.   {$EXTERNALSYM GW_HWNDLAST}
  3021.   GW_HWNDNEXT     = 2;
  3022.   {$EXTERNALSYM GW_HWNDNEXT}
  3023.   GW_HWNDPREV     = 3;
  3024.   {$EXTERNALSYM GW_HWNDPREV}
  3025.   GW_OWNER        = 4;
  3026.   {$EXTERNALSYM GW_OWNER}
  3027.   GW_CHILD        = 5;
  3028.   {$EXTERNALSYM GW_CHILD}
  3029. {$IFNDEF WINVER_0500_GREATER} // #if(WINVER <= 0x0400)
  3030.   GW_MAX          = 5;
  3031.   {$EXTERNALSYM GW_MAX}
  3032. {$ELSE}
  3033.   GW_ENABLEDPOPUP = 6;
  3034.   {$EXTERNALSYM GW_ENABLEDPOPUP}
  3035.   GW_MAX          = 6;
  3036.   {$EXTERNALSYM GW_MAX}
  3037. {$ENDIF}
  3039. function GetWindow(hWnd: HWND; uCmd: UINT): HWND; stdcall;
  3040. {$EXTERNALSYM GetWindow}
  3042. function SetWindowsHookA(nFilterType: Integer; pfnFilterProc: HOOKPROC): HHOOK; stdcall;
  3043. {$EXTERNALSYM SetWindowsHookA}
  3044. function SetWindowsHookW(nFilterType: Integer; pfnFilterProc: HOOKPROC): HHOOK; stdcall;
  3045. {$EXTERNALSYM SetWindowsHookW}
  3047. {$IFDEF UNICODE}
  3048. function SetWindowsHook(nFilterType: Integer; pfnFilterProc: HOOKPROC): HHOOK; stdcall;
  3049. {$EXTERNALSYM SetWindowsHook}
  3050. {$ELSE}
  3051. function SetWindowsHook(nFilterType: Integer; pfnFilterProc: HOOKPROC): HHOOK; stdcall;
  3052. {$EXTERNALSYM SetWindowsHook}
  3053. {$ENDIF}
  3055. function UnhookWindowsHook(nCode: Integer; pfnFilterProc: HOOKPROC): BOOL; stdcall;
  3056. {$EXTERNALSYM UnhookWindowsHook}
  3058. function SetWindowsHookExA(idHook: Integer; lpfn: HOOKPROC; hmod: HINSTANCE;
  3059.   dwThreadId: DWORD): HHOOK; stdcall;
  3060. {$EXTERNALSYM SetWindowsHookExA}
  3061. function SetWindowsHookExW(idHook: Integer; lpfn: HOOKPROC; hmod: HINSTANCE;
  3062.   dwThreadId: DWORD): HHOOK; stdcall;
  3063. {$EXTERNALSYM SetWindowsHookExW}
  3065. {$IFDEF UNICODE}
  3066. function SetWindowsHookEx(idHook: Integer; lpfn: HOOKPROC; hmod: HINSTANCE;
  3067.   dwThreadId: DWORD): HHOOK; stdcall;
  3068. {$EXTERNALSYM SetWindowsHookEx}
  3069. {$ELSE}
  3070. function SetWindowsHookEx(idHook: Integer; lpfn: HOOKPROC; hmod: HINSTANCE;
  3071.   dwThreadId: DWORD): HHOOK; stdcall;
  3072. {$EXTERNALSYM SetWindowsHookEx}
  3073. {$ENDIF}
  3075. function UnhookWindowsHookEx(hhk: HHOOK): BOOL; stdcall;
  3076. {$EXTERNALSYM UnhookWindowsHookEx}
  3078. function CallNextHookEx(hhk: HHOOK; nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
  3079. {$EXTERNALSYM CallNextHookEx}
  3081. //
  3082. // Macros for source-level compatibility with old functions.
  3083. //
  3085. function DefHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM; phhk: LPHHOOK): LRESULT;
  3086. {$EXTERNALSYM DefHookProc}
  3088. // ;win40  -- A lot of MF_* flags have been renamed as MFT_* and MFS_* flags//
  3089. //
  3090. // Menu flags for Add/Check/EnableMenuItem()
  3091. ///)
  3093. const
  3094.   MF_INSERT = $00000000;
  3095.   {$EXTERNALSYM MF_INSERT}
  3096.   MF_CHANGE = $00000080;
  3097.   {$EXTERNALSYM MF_CHANGE}
  3098.   MF_APPEND = $00000100;
  3099.   {$EXTERNALSYM MF_APPEND}
  3100.   MF_DELETE = $00000200;
  3101.   {$EXTERNALSYM MF_DELETE}
  3102.   MF_REMOVE = $00001000;
  3103.   {$EXTERNALSYM MF_REMOVE}
  3105.   MF_BYCOMMAND  = $00000000;
  3106.   {$EXTERNALSYM MF_BYCOMMAND}
  3107.   MF_BYPOSITION = $00000400;
  3108.   {$EXTERNALSYM MF_BYPOSITION}
  3110.   MF_SEPARATOR = $00000800;
  3111.   {$EXTERNALSYM MF_SEPARATOR}
  3113.   MF_ENABLED  = $00000000;
  3114.   {$EXTERNALSYM MF_ENABLED}
  3115.   MF_GRAYED   = $00000001;
  3116.   {$EXTERNALSYM MF_GRAYED}
  3117.   MF_DISABLED = $00000002;
  3118.   {$EXTERNALSYM MF_DISABLED}
  3120.   MF_UNCHECKED       = $00000000;
  3121.   {$EXTERNALSYM MF_UNCHECKED}
  3122.   MF_CHECKED         = $00000008;
  3123.   {$EXTERNALSYM MF_CHECKED}
  3124.   MF_USECHECKBITMAPS = $00000200;
  3125.   {$EXTERNALSYM MF_USECHECKBITMAPS}
  3127.   MF_STRING    = $00000000;
  3128.   {$EXTERNALSYM MF_STRING}
  3129.   MF_BITMAP    = $00000004;
  3130.   {$EXTERNALSYM MF_BITMAP}
  3131.   MF_OWNERDRAW = $00000100;
  3132.   {$EXTERNALSYM MF_OWNERDRAW}
  3134.   MF_POPUP        = $00000010;
  3135.   {$EXTERNALSYM MF_POPUP}
  3136.   MF_MENUBARBREAK = $00000020;
  3137.   {$EXTERNALSYM MF_MENUBARBREAK}
  3138.   MF_MENUBREAK    = $00000040;
  3139.   {$EXTERNALSYM MF_MENUBREAK}
  3141.   MF_UNHILITE = $00000000;
  3142.   {$EXTERNALSYM MF_UNHILITE}
  3143.   MF_HILITE   = $00000080;
  3144.   {$EXTERNALSYM MF_HILITE}
  3146.   MF_DEFAULT      = $00001000;
  3147.   {$EXTERNALSYM MF_DEFAULT}
  3148.   MF_SYSMENU      = $00002000;
  3149.   {$EXTERNALSYM MF_SYSMENU}
  3150.   MF_HELP         = $00004000;
  3151.   {$EXTERNALSYM MF_HELP}
  3152.   MF_RIGHTJUSTIFY = $00004000;
  3153.   {$EXTERNALSYM MF_RIGHTJUSTIFY}
  3155.   MF_MOUSESELECT = $00008000;
  3156.   {$EXTERNALSYM MF_MOUSESELECT}
  3157.   MF_END         = $00000080; // Obsolete -- only used by old RES files
  3158.   {$EXTERNALSYM MF_END}
  3160.   MFT_STRING       = MF_STRING;
  3161.   {$EXTERNALSYM MFT_STRING}
  3162.   MFT_BITMAP       = MF_BITMAP;
  3163.   {$EXTERNALSYM MFT_BITMAP}
  3164.   MFT_MENUBARBREAK = MF_MENUBARBREAK;
  3165.   {$EXTERNALSYM MFT_MENUBARBREAK}
  3166.   MFT_MENUBREAK    = MF_MENUBREAK;
  3167.   {$EXTERNALSYM MFT_MENUBREAK}
  3168.   MFT_OWNERDRAW    = MF_OWNERDRAW;
  3169.   {$EXTERNALSYM MFT_OWNERDRAW}
  3170.   MFT_RADIOCHECK   = $00000200;
  3171.   {$EXTERNALSYM MFT_RADIOCHECK}
  3172.   MFT_SEPARATOR    = MF_SEPARATOR;
  3173.   {$EXTERNALSYM MFT_SEPARATOR}
  3174.   MFT_RIGHTORDER   = $00002000;
  3175.   {$EXTERNALSYM MFT_RIGHTORDER}
  3176.   MFT_RIGHTJUSTIFY = MF_RIGHTJUSTIFY;
  3177.   {$EXTERNALSYM MFT_RIGHTJUSTIFY}
  3179. // Menu flags for Add/Check/EnableMenuItem()
  3181.   MFS_GRAYED    = $00000003;
  3182.   {$EXTERNALSYM MFS_GRAYED}
  3183.   MFS_DISABLED  = MFS_GRAYED;
  3184.   {$EXTERNALSYM MFS_DISABLED}
  3185.   MFS_CHECKED   = MF_CHECKED;
  3186.   {$EXTERNALSYM MFS_CHECKED}
  3187.   MFS_HILITE    = MF_HILITE;
  3188.   {$EXTERNALSYM MFS_HILITE}
  3189.   MFS_ENABLED   = MF_ENABLED;
  3190.   {$EXTERNALSYM MFS_ENABLED}
  3191.   MFS_UNCHECKED = MF_UNCHECKED;
  3192.   {$EXTERNALSYM MFS_UNCHECKED}
  3193.   MFS_UNHILITE  = MF_UNHILITE;
  3194.   {$EXTERNALSYM MFS_UNHILITE}
  3195.   MFS_DEFAULT   = MF_DEFAULT;
  3196.   {$EXTERNALSYM MFS_DEFAULT}
  3198. function CheckMenuRadioItem(hmenu: HMENU; idFirst, idLast, idCheck, uFlags: UINT): BOOL; stdcall;
  3199. {$EXTERNALSYM CheckMenuRadioItem}
  3201. //
  3202. // Menu item resource format
  3203. //
  3205. type
  3206.   PMENUITEMTEMPLATEHEADER = ^MENUITEMTEMPLATEHEADER;
  3207.   MENUITEMTEMPLATEHEADER = record
  3208.     versionNumber: WORD;
  3209.     offset: WORD;
  3210.   end;
  3211.   {$EXTERNALSYM MENUITEMTEMPLATEHEADER}
  3212.   TMenuItemTemplateHeader = MENUITEMTEMPLATEHEADER;
  3214.   PMENUITEMTEMPLATE = ^MENUITEMTEMPLATE; // version 0
  3215.   MENUITEMTEMPLATE = record
  3216.     mtOption: WORD;
  3217.     mtID: WORD;
  3218.     mtString: array [0..0] of WCHAR;
  3219.   end;
  3220.   {$EXTERNALSYM MENUITEMTEMPLATE}
  3221.   TMenuItemTemplate = MENUITEMTEMPLATE;
  3223. //
  3224. // System Menu Command Values
  3225. //
  3227. const
  3228.   SC_SIZE         = $F000;
  3229.   {$EXTERNALSYM SC_SIZE}
  3230.   SC_MOVE         = $F010;
  3231.   {$EXTERNALSYM SC_MOVE}
  3232.   SC_MINIMIZE     = $F020;
  3233.   {$EXTERNALSYM SC_MINIMIZE}
  3234.   SC_MAXIMIZE     = $F030;
  3235.   {$EXTERNALSYM SC_MAXIMIZE}
  3236.   SC_NEXTWINDOW   = $F040;
  3237.   {$EXTERNALSYM SC_NEXTWINDOW}
  3238.   SC_PREVWINDOW   = $F050;
  3239.   {$EXTERNALSYM SC_PREVWINDOW}
  3240.   SC_CLOSE        = $F060;
  3241.   {$EXTERNALSYM SC_CLOSE}
  3242.   SC_VSCROLL      = $F070;
  3243.   {$EXTERNALSYM SC_VSCROLL}
  3244.   SC_HSCROLL      = $F080;
  3245.   {$EXTERNALSYM SC_HSCROLL}
  3246.   SC_MOUSEMENU    = $F090;
  3247.   {$EXTERNALSYM SC_MOUSEMENU}
  3248.   SC_KEYMENU      = $F100;
  3249.   {$EXTERNALSYM SC_KEYMENU}
  3250.   SC_ARRANGE      = $F110;
  3251.   {$EXTERNALSYM SC_ARRANGE}
  3252.   SC_RESTORE      = $F120;
  3253.   {$EXTERNALSYM SC_RESTORE}
  3254.   SC_TASKLIST     = $F130;
  3255.   {$EXTERNALSYM SC_TASKLIST}
  3256.   SC_SCREENSAVE   = $F140;
  3257.   {$EXTERNALSYM SC_SCREENSAVE}
  3258.   SC_HOTKEY       = $F150;
  3259.   {$EXTERNALSYM SC_HOTKEY}
  3260.   SC_DEFAULT      = $F160;
  3261.   {$EXTERNALSYM SC_DEFAULT}
  3262.   SC_MONITORPOWER = $F170;
  3263.   {$EXTERNALSYM SC_MONITORPOWER}
  3264.   SC_CONTEXTHELP  = $F180;
  3265.   {$EXTERNALSYM SC_CONTEXTHELP}
  3266.   SC_SEPARATOR    = $F00F;
  3267.   {$EXTERNALSYM SC_SEPARATOR}
  3269. //
  3270. // Obsolete names
  3271. //
  3273. const
  3274.   SC_ICON = SC_MINIMIZE;
  3275.   {$EXTERNALSYM SC_ICON}
  3276.   SC_ZOOM = SC_MAXIMIZE;
  3277.   {$EXTERNALSYM SC_ZOOM}
  3279. //
  3280. // Resource Loading Routines
  3281. //
  3283. function LoadBitmapA(hInstance: HINSTANCE; lpBitmapName: LPCSTR): HBITMAP; stdcall;
  3284. {$EXTERNALSYM LoadBitmapA}
  3285. function LoadBitmapW(hInstance: HINSTANCE; lpBitmapName: LPCWSTR): HBITMAP; stdcall;
  3286. {$EXTERNALSYM LoadBitmapW}
  3288. {$IFDEF UNICODE}
  3289. function LoadBitmap(hInstance: HINSTANCE; lpBitmapName: LPCWSTR): HBITMAP; stdcall;
  3290. {$EXTERNALSYM LoadBitmap}
  3291. {$ELSE}
  3292. function LoadBitmap(hInstance: HINSTANCE; lpBitmapName: LPCSTR): HBITMAP; stdcall;
  3293. {$EXTERNALSYM LoadBitmap}
  3294. {$ENDIF}
  3296. function LoadCursorA(hInstance: HINSTANCE; lpCursorName: LPCSTR): HCURSOR; stdcall;
  3297. {$EXTERNALSYM LoadCursorA}
  3298. function LoadCursorW(hInstance: HINSTANCE; lpCursorName: LPCWSTR): HCURSOR; stdcall;
  3299. {$EXTERNALSYM LoadCursorW}
  3301. {$IFDEF UNICODE}
  3302. function LoadCursor(hInstance: HINSTANCE; lpCursorName: LPCWSTR): HCURSOR; stdcall;
  3303. {$EXTERNALSYM LoadCursor}
  3304. {$ELSE}
  3305. function LoadCursor(hInstance: HINSTANCE; lpCursorName: LPCSTR): HCURSOR; stdcall;
  3306. {$EXTERNALSYM LoadCursor}
  3307. {$ENDIF}
  3309. function LoadCursorFromFileA(lpFileName: LPCSTR): HCURSOR; stdcall;
  3310. {$EXTERNALSYM LoadCursorFromFileA}
  3311. function LoadCursorFromFileW(lpFileName: LPCWSTR): HCURSOR; stdcall;
  3312. {$EXTERNALSYM LoadCursorFromFileW}
  3314. {$IFDEF UNICODE}
  3315. function LoadCursorFromFile(lpFileName: LPCWSTR): HCURSOR; stdcall;
  3316. {$EXTERNALSYM LoadCursorFromFile}
  3317. {$ELSE}
  3318. function LoadCursorFromFile(lpFileName: LPCSTR): HCURSOR; stdcall;
  3319. {$EXTERNALSYM LoadCursorFromFile}
  3320. {$ENDIF}
  3322. function CreateCursor(hInst: HINSTANCE; xHotSpot, yHotSpot, nWidth, nHeight: Integer;
  3323.   pvANDPlane: PVOID; pvXORPlane: PVOID): HCURSOR; stdcall;
  3324. {$EXTERNALSYM CreateCursor}
  3326. function DestroyCursor(hCursor: HCURSOR): BOOL; stdcall;
  3327. {$EXTERNALSYM DestroyCursor}
  3329. function CopyCursor(pcur: HCURSOR): HCURSOR;
  3330. {$EXTERNALSYM CopyCursor}
  3332. //
  3333. // Standard Cursor IDs
  3334. //
  3336. const
  3337.   IDC_ARROW       = MAKEINTRESOURCE(32512);
  3338.   {$EXTERNALSYM IDC_ARROW}
  3339.   IDC_IBEAM       = MAKEINTRESOURCE(32513);
  3340.   {$EXTERNALSYM IDC_IBEAM}
  3341.   IDC_WAIT        = MAKEINTRESOURCE(32514);
  3342.   {$EXTERNALSYM IDC_WAIT}
  3343.   IDC_CROSS       = MAKEINTRESOURCE(32515);
  3344.   {$EXTERNALSYM IDC_CROSS}
  3345.   IDC_UPARROW     = MAKEINTRESOURCE(32516);
  3346.   {$EXTERNALSYM IDC_UPARROW}
  3347.   IDC_SIZE        = MAKEINTRESOURCE(32640); // OBSOLETE: use IDC_SIZEALL
  3348.   {$EXTERNALSYM IDC_SIZE}
  3349.   IDC_ICON        = MAKEINTRESOURCE(32641); // OBSOLETE: use IDC_ARROW
  3350.   {$EXTERNALSYM IDC_ICON}
  3351.   IDC_SIZENWSE    = MAKEINTRESOURCE(32642);
  3352.   {$EXTERNALSYM IDC_SIZENWSE}
  3353.   IDC_SIZENESW    = MAKEINTRESOURCE(32643);
  3354.   {$EXTERNALSYM IDC_SIZENESW}
  3355.   IDC_SIZEWE      = MAKEINTRESOURCE(32644);
  3356.   {$EXTERNALSYM IDC_SIZEWE}
  3357.   IDC_SIZENS      = MAKEINTRESOURCE(32645);
  3358.   {$EXTERNALSYM IDC_SIZENS}
  3359.   IDC_SIZEALL     = MAKEINTRESOURCE(32646);
  3360.   {$EXTERNALSYM IDC_SIZEALL}
  3361.   IDC_NO          = MAKEINTRESOURCE(32648); // not in win3.1
  3362.   {$EXTERNALSYM IDC_NO}
  3363.   IDC_HAND        = MAKEINTRESOURCE(32649);
  3364.   {$EXTERNALSYM IDC_HAND}
  3365.   IDC_APPSTARTING = MAKEINTRESOURCE(32650); // not in win3.1
  3366.   {$EXTERNALSYM IDC_APPSTARTING}
  3367.   IDC_HELP        = MAKEINTRESOURCE(32651);
  3368.   {$EXTERNALSYM IDC_HELP}
  3370. function SetSystemCursor(hcur: HCURSOR; id: DWORD): BOOL; stdcall;
  3371. {$EXTERNALSYM SetSystemCursor}
  3373. type
  3374.   PICONINFO = ^ICONINFO;
  3375.   _ICONINFO = record
  3376.     fIcon: BOOL;
  3377.     xHotspot: DWORD;
  3378.     yHotspot: DWORD;
  3379.     hbmMask: HBITMAP;
  3380.     hbmColor: HBITMAP;
  3381.   end;
  3382.   {$EXTERNALSYM _ICONINFO}
  3383.   ICONINFO = _ICONINFO;
  3384.   {$EXTERNALSYM ICONINFO}
  3385.   TIconInfo = ICONINFO;
  3387. function LoadIconA(hInstance: HINSTANCE; lpIconName: LPCSTR): HICON; stdcall;
  3388. {$EXTERNALSYM LoadIconA}
  3389. function LoadIconW(hInstance: HINSTANCE; lpIconName: LPCWSTR): HICON; stdcall;
  3390. {$EXTERNALSYM LoadIconW}
  3392. {$IFDEF UNICODE}
  3393. function LoadIcon(hInstance: HINSTANCE; lpIconName: LPCWSTR): HICON; stdcall;
  3394. {$EXTERNALSYM LoadIcon}
  3395. {$ELSE}
  3396. function LoadIcon(hInstance: HINSTANCE; lpIconName: LPCSTR): HICON; stdcall;
  3397. {$EXTERNALSYM LoadIcon}
  3398. {$ENDIF}
  3400. function PrivateExtractIconsA(szFileName: LPCSTR; nIconIndex, cxIcon, cyIcon: Integer; var phicon: HICON;
  3401.   var piconid: UINT; nIcons, flags: UINT): UINT; stdcall;
  3402. {$EXTERNALSYM PrivateExtractIconsA}
  3403. function PrivateExtractIconsW(szFileName: LPCWSTR; nIconIndex, cxIcon, cyIcon: Integer; var phicon: HICON;
  3404.   var piconid: UINT; nIcons, flags: UINT): UINT; stdcall;
  3405. {$EXTERNALSYM PrivateExtractIconsW}
  3407. {$IFDEF UNICODE}
  3408. function PrivateExtractIcons(szFileName: LPCWSTR; nIconIndex, cxIcon, cyIcon: Integer; var phicon: HICON;
  3409.   var piconid: UINT; nIcons, flags: UINT): UINT; stdcall;
  3410. {$EXTERNALSYM PrivateExtractIcons}
  3411. {$ELSE}
  3412. function PrivateExtractIcons(szFileName: LPCSTR; nIconIndex, cxIcon, cyIcon: Integer; var phicon: HICON;
  3413.   var piconid: UINT; nIcons, flags: UINT): UINT; stdcall;
  3414. {$EXTERNALSYM PrivateExtractIcons}
  3415. {$ENDIF}
  3417. function CreateIcon(hInstance: HINSTANCE; nWidth, nHeight: Integer; cPlanes,
  3418.   cBitsPixel: BYTE; lpbANDbits: LPBYTE; lpbXORbits: LPBYTE): HICON; stdcall;
  3419. {$EXTERNALSYM CreateIcon}
  3421. function DestroyIcon(hIcon: HICON): BOOL; stdcall;
  3422. {$EXTERNALSYM DestroyIcon}
  3424. function LookupIconIdFromDirectory(presbits: PBYTE; fIcon: BOOL): Integer; stdcall;
  3425. {$EXTERNALSYM LookupIconIdFromDirectory}
  3427. function LookupIconIdFromDirectoryEx(presbits: PBYTE; fIcon: BOOL;
  3428.   cxDesired, cyDesired: Integer; Flags: UINT): Integer; stdcall;
  3429. {$EXTERNALSYM LookupIconIdFromDirectoryEx}
  3431. function CreateIconFromResource(presbits: PBYTE; dwResSize: DWORD;
  3432.   fIcon: BOOL; dwVer: DWORD): HICON; stdcall;
  3433. {$EXTERNALSYM CreateIconFromResource}
  3435. function CreateIconFromResourceEx(presbits: PBYTE; dwResSize: DWORD; fIcon: BOOL;
  3436.   dwVer: DWORD; cxDesired, cyDesired: Integer; Flags: UINT): HICON; stdcall;
  3437. {$EXTERNALSYM CreateIconFromResourceEx}
  3439. // Icon/Cursor header//
  3441. type
  3442.   LPCURSORSHAPE = ^CURSORSHAPE;
  3443.   {$EXTERNALSYM LPCURSORSHAPE}
  3444.   tagCURSORSHAPE = record
  3445.     xHotSpot: Integer;
  3446.     yHotSpot: Integer;
  3447.     cx: Integer;
  3448.     cy: Integer;
  3449.     cbWidth: Integer;
  3450.     Planes: BYTE;
  3451.     BitsPixel: BYTE;
  3452.   end;
  3453.   {$EXTERNALSYM tagCURSORSHAPE}
  3454.   CURSORSHAPE = tagCURSORSHAPE;
  3455.   {$EXTERNALSYM CURSORSHAPE}
  3456.   TCursorShape = CURSORSHAPE;
  3457.   PCursorShape = LPCURSORSHAPE;
  3459. const
  3460.   IMAGE_BITMAP      = 0;
  3461.   {$EXTERNALSYM IMAGE_BITMAP}
  3462.   IMAGE_ICON        = 1;
  3463.   {$EXTERNALSYM IMAGE_ICON}
  3464.   IMAGE_CURSOR      = 2;
  3465.   {$EXTERNALSYM IMAGE_CURSOR}
  3466.   IMAGE_ENHMETAFILE = 3;
  3467.   {$EXTERNALSYM IMAGE_ENHMETAFILE}
  3469.   LR_DEFAULTCOLOR     = $0000;
  3470.   {$EXTERNALSYM LR_DEFAULTCOLOR}
  3471.   LR_MONOCHROME       = $0001;
  3472.   {$EXTERNALSYM LR_MONOCHROME}
  3473.   LR_COLOR            = $0002;
  3474.   {$EXTERNALSYM LR_COLOR}
  3475.   LR_COPYRETURNORG    = $0004;
  3476.   {$EXTERNALSYM LR_COPYRETURNORG}
  3477.   LR_COPYDELETEORG    = $0008;
  3478.   {$EXTERNALSYM LR_COPYDELETEORG}
  3479.   LR_LOADFROMFILE     = $0010;
  3480.   {$EXTERNALSYM LR_LOADFROMFILE}
  3481.   LR_LOADTRANSPARENT  = $0020;
  3482.   {$EXTERNALSYM LR_LOADTRANSPARENT}
  3483.   LR_DEFAULTSIZE      = $0040;
  3484.   {$EXTERNALSYM LR_DEFAULTSIZE}
  3485.   LR_VGACOLOR         = $0080;
  3486.   {$EXTERNALSYM LR_VGACOLOR}
  3487.   LR_LOADMAP3DCOLORS  = $1000;
  3488.   {$EXTERNALSYM LR_LOADMAP3DCOLORS}
  3489.   LR_CREATEDIBSECTION = $2000;
  3490.   {$EXTERNALSYM LR_CREATEDIBSECTION}
  3491.   LR_COPYFROMRESOURCE = $4000;
  3492.   {$EXTERNALSYM LR_COPYFROMRESOURCE}
  3493.   LR_SHARED           = $8000;
  3494.   {$EXTERNALSYM LR_SHARED}
  3496. function LoadImageA(hinst: HINSTANCE; lpszName: LPCSTR; uType: UINT;
  3497.   cxDesired, cyDesired: Integer; fuLoad: UINT): HANDLE; stdcall;
  3498. {$EXTERNALSYM LoadImageA}
  3499. function LoadImageW(hinst: HINSTANCE; lpszName: LPCWSTR; uType: UINT;
  3500.   cxDesired, cyDesired: Integer; fuLoad: UINT): HANDLE; stdcall;
  3501. {$EXTERNALSYM LoadImageW}
  3503. {$IFDEF UNICODE}
  3504. function LoadImage(hinst: HINSTANCE; lpszName: LPCWSTR; uType: UINT;
  3505.   cxDesired, cyDesired: Integer; fuLoad: UINT): HANDLE; stdcall;
  3506. {$EXTERNALSYM LoadImage}
  3507. {$ELSE}
  3508. function LoadImage(hinst: HINSTANCE; lpszName: LPCSTR; uType: UINT;
  3509.   cxDesired, cyDesired: Integer; fuLoad: UINT): HANDLE; stdcall;
  3510. {$EXTERNALSYM LoadImage}
  3511. {$ENDIF}
  3513. function CopyImage(hinst: HANDLE; lpszName: UINT; cxDesired, cyDesired: Integer;
  3514.   fuFlags: UINT): HANDLE; stdcall;
  3515. {$EXTERNALSYM CopyImage}
  3517. const
  3518.   DI_MASK        = $0001;
  3519.   {$EXTERNALSYM DI_MASK}
  3520.   DI_IMAGE       = $0002;
  3521.   {$EXTERNALSYM DI_IMAGE}
  3522.   DI_NORMAL      = $0003;
  3523.   {$EXTERNALSYM DI_NORMAL}
  3524.   DI_COMPAT      = $0004;
  3525.   {$EXTERNALSYM DI_COMPAT}
  3526.   DI_DEFAULTSIZE = $0008;
  3527.   {$EXTERNALSYM DI_DEFAULTSIZE}
  3528.   DI_NOMIRROR    = $0010;
  3529.   {$EXTERNALSYM DI_NOMIRROR}
  3531. function DrawIconEx(hdc: HDC; xLeft, yTop: Integer; hIcon: HICON;
  3532.   cxWidth, cyWidth: Integer; istepIfAniCur: UINT; hbrFlickerFreeDraw: HBRUSH;
  3533.   diFlags: UINT): BOOL; stdcall;
  3534. {$EXTERNALSYM DrawIconEx}
  3536. function CreateIconIndirect(const piconinfo: ICONINFO): HICON; stdcall;
  3537. {$EXTERNALSYM CreateIconIndirect}
  3539. function CopyIcon(hIcon: HICON): HICON; stdcall;
  3540. {$EXTERNALSYM CopyIcon}
  3542. function GetIconInfo(hIcon: HICON; var piconinfo: ICONINFO): BOOL; stdcall;
  3543. {$EXTERNALSYM GetIconInfo}
  3545. const
  3546.   RES_ICON   = 1;
  3547.   {$EXTERNALSYM RES_ICON}
  3548.   RES_CURSOR = 2;
  3549.   {$EXTERNALSYM RES_CURSOR}
  3551. //
  3552. // OEM Resource Ordinal Numbers
  3553. //
  3555.   OBM_CLOSE    = 32754;
  3556.   {$EXTERNALSYM OBM_CLOSE}
  3557.   OBM_UPARROW  = 32753;
  3558.   {$EXTERNALSYM OBM_UPARROW}
  3559.   OBM_DNARROW  = 32752;
  3560.   {$EXTERNALSYM OBM_DNARROW}
  3561.   OBM_RGARROW  = 32751;
  3562.   {$EXTERNALSYM OBM_RGARROW}
  3563.   OBM_LFARROW  = 32750;
  3564.   {$EXTERNALSYM OBM_LFARROW}
  3565.   OBM_REDUCE   = 32749;
  3566.   {$EXTERNALSYM OBM_REDUCE}
  3567.   OBM_ZOOM     = 32748;
  3568.   {$EXTERNALSYM OBM_ZOOM}
  3569.   OBM_RESTORE  = 32747;
  3570.   {$EXTERNALSYM OBM_RESTORE}
  3571.   OBM_REDUCED  = 32746;
  3572.   {$EXTERNALSYM OBM_REDUCED}
  3573.   OBM_ZOOMD    = 32745;
  3574.   {$EXTERNALSYM OBM_ZOOMD}
  3575.   OBM_RESTORED = 32744;
  3576.   {$EXTERNALSYM OBM_RESTORED}
  3577.   OBM_UPARROWD = 32743;
  3578.   {$EXTERNALSYM OBM_UPARROWD}
  3579.   OBM_DNARROWD = 32742;
  3580.   {$EXTERNALSYM OBM_DNARROWD}
  3581.   OBM_RGARROWD = 32741;
  3582.   {$EXTERNALSYM OBM_RGARROWD}
  3583.   OBM_LFARROWD = 32740;
  3584.   {$EXTERNALSYM OBM_LFARROWD}
  3585.   OBM_MNARROW  = 32739;
  3586.   {$EXTERNALSYM OBM_MNARROW}
  3587.   OBM_COMBO    = 32738;
  3588.   {$EXTERNALSYM OBM_COMBO}
  3589.   OBM_UPARROWI = 32737;
  3590.   {$EXTERNALSYM OBM_UPARROWI}
  3591.   OBM_DNARROWI = 32736;
  3592.   {$EXTERNALSYM OBM_DNARROWI}
  3593.   OBM_RGARROWI = 32735;
  3594.   {$EXTERNALSYM OBM_RGARROWI}
  3595.   OBM_LFARROWI = 32734;
  3596.   {$EXTERNALSYM OBM_LFARROWI}
  3598.   OBM_OLD_CLOSE   = 32767;
  3599.   {$EXTERNALSYM OBM_OLD_CLOSE}
  3600.   OBM_SIZE        = 32766;
  3601.   {$EXTERNALSYM OBM_SIZE}
  3602.   OBM_OLD_UPARROW = 32765;
  3603.   {$EXTERNALSYM OBM_OLD_UPARROW}
  3604.   OBM_OLD_DNARROW = 32764;
  3605.   {$EXTERNALSYM OBM_OLD_DNARROW}
  3606.   OBM_OLD_RGARROW = 32763;
  3607.   {$EXTERNALSYM OBM_OLD_RGARROW}
  3608.   OBM_OLD_LFARROW = 32762;
  3609.   {$EXTERNALSYM OBM_OLD_LFARROW}
  3610.   OBM_BTSIZE      = 32761;
  3611.   {$EXTERNALSYM OBM_BTSIZE}
  3612.   OBM_CHECK       = 32760;
  3613.   {$EXTERNALSYM OBM_CHECK}
  3614.   OBM_CHECKBOXES  = 32759;
  3615.   {$EXTERNALSYM OBM_CHECKBOXES}
  3616.   OBM_BTNCORNERS  = 32758;
  3617.   {$EXTERNALSYM OBM_BTNCORNERS}
  3618.   OBM_OLD_REDUCE  = 32757;
  3619.   {$EXTERNALSYM OBM_OLD_REDUCE}
  3620.   OBM_OLD_ZOOM    = 32756;
  3621.   {$EXTERNALSYM OBM_OLD_ZOOM}
  3622.   OBM_OLD_RESTORE = 32755;
  3623.   {$EXTERNALSYM OBM_OLD_RESTORE}
  3625.   OCR_NORMAL      = 32512;
  3626.   {$EXTERNALSYM OCR_NORMAL}
  3627.   OCR_IBEAM       = 32513;
  3628.   {$EXTERNALSYM OCR_IBEAM}
  3629.   OCR_WAIT        = 32514;
  3630.   {$EXTERNALSYM OCR_WAIT}
  3631.   OCR_CROSS       = 32515;
  3632.   {$EXTERNALSYM OCR_CROSS}
  3633.   OCR_UP          = 32516;
  3634.   {$EXTERNALSYM OCR_UP}
  3635.   OCR_SIZE        = 32640; // OBSOLETE: use OCR_SIZEALL
  3636.   {$EXTERNALSYM OCR_SIZE}
  3637.   OCR_ICON        = 32641; // OBSOLETE: use OCR_NORMAL
  3638.   {$EXTERNALSYM OCR_ICON}
  3639.   OCR_SIZENWSE    = 32642;
  3640.   {$EXTERNALSYM OCR_SIZENWSE}
  3641.   OCR_SIZENESW    = 32643;
  3642.   {$EXTERNALSYM OCR_SIZENESW}
  3643.   OCR_SIZEWE      = 32644;
  3644.   {$EXTERNALSYM OCR_SIZEWE}
  3645.   OCR_SIZENS      = 32645;
  3646.   {$EXTERNALSYM OCR_SIZENS}
  3647.   OCR_SIZEALL     = 32646;
  3648.   {$EXTERNALSYM OCR_SIZEALL}
  3649.   OCR_ICOCUR      = 32647; // OBSOLETE: use OIC_WINLOGO
  3650.   {$EXTERNALSYM OCR_ICOCUR}
  3651.   OCR_NO          = 32648;
  3652.   {$EXTERNALSYM OCR_NO}
  3653.   OCR_HAND        = 32649;
  3654.   {$EXTERNALSYM OCR_HAND}
  3655.   OCR_APPSTARTING = 32650;
  3656.   {$EXTERNALSYM OCR_APPSTARTING}
  3658.   OIC_SAMPLE      = 32512;
  3659.   {$EXTERNALSYM OIC_SAMPLE}
  3660.   OIC_HAND        = 32513;
  3661.   {$EXTERNALSYM OIC_HAND}
  3662.   OIC_QUES        = 32514;
  3663.   {$EXTERNALSYM OIC_QUES}
  3664.   OIC_BANG        = 32515;
  3665.   {$EXTERNALSYM OIC_BANG}
  3666.   OIC_NOTE        = 32516;
  3667.   {$EXTERNALSYM OIC_NOTE}
  3668.   OIC_WINLOGO     = 32517;
  3669.   {$EXTERNALSYM OIC_WINLOGO}
  3670.   OIC_WARNING     = OIC_BANG;
  3671.   {$EXTERNALSYM OIC_WARNING}
  3672.   OIC_ERROR       = OIC_HAND;
  3673.   {$EXTERNALSYM OIC_ERROR}
  3674.   OIC_INFORMATION = OIC_NOTE;
  3675.   {$EXTERNALSYM OIC_INFORMATION}
  3677.   ORD_LANGDRIVER = 1; // The ordinal number for the entry point of language drivers.
  3678.   {$EXTERNALSYM ORD_LANGDRIVER}
  3680. //
  3681. // Standard Icon IDs
  3682. //
  3684.   IDI_APPLICATION = MAKEINTRESOURCE(32512);
  3685.   {$EXTERNALSYM IDI_APPLICATION}
  3686.   IDI_HAND        = MAKEINTRESOURCE(32513);
  3687.   {$EXTERNALSYM IDI_HAND}
  3688.   IDI_QUESTION    = MAKEINTRESOURCE(32514);
  3689.   {$EXTERNALSYM IDI_QUESTION}
  3690.   IDI_EXCLAMATION = MAKEINTRESOURCE(32515);
  3691.   {$EXTERNALSYM IDI_EXCLAMATION}
  3692.   IDI_ASTERISK    = MAKEINTRESOURCE(32516);
  3693.   {$EXTERNALSYM IDI_ASTERISK}
  3694.   IDI_WINLOGO = MAKEINTRESOURCE(32517);
  3695.   {$EXTERNALSYM IDI_WINLOGO}
  3697.   IDI_WARNING     = IDI_EXCLAMATION;
  3698.   {$EXTERNALSYM IDI_WARNING}
  3699.   IDI_ERROR       = IDI_HAND;
  3700.   {$EXTERNALSYM IDI_ERROR}
  3701.   IDI_INFORMATION = IDI_ASTERISK;
  3702.   {$EXTERNALSYM IDI_INFORMATION}
  3704. function LoadStringA(hInstance: HINSTANCE; uID: UINT; lpBuffer: LPSTR;
  3705.   nBufferMax: Integer): Integer; stdcall;
  3706. {$EXTERNALSYM LoadStringA}
  3707. function LoadStringW(hInstance: HINSTANCE; uID: UINT; lpBuffer: LPWSTR;
  3708.   nBufferMax: Integer): Integer; stdcall;
  3709. {$EXTERNALSYM LoadStringW}
  3711. {$IFDEF UNICODE}
  3712. function LoadString(hInstance: HINSTANCE; uID: UINT; lpBuffer: LPWSTR;
  3713.   nBufferMax: Integer): Integer; stdcall;
  3714. {$EXTERNALSYM LoadString}
  3715. {$ELSE}
  3716. function LoadString(hInstance: HINSTANCE; uID: UINT; lpBuffer: LPSTR;
  3717.   nBufferMax: Integer): Integer; stdcall;
  3718. {$EXTERNALSYM LoadString}
  3719. {$ENDIF}
  3721. //
  3722. // Dialog Box Command IDs
  3723. //
  3725. const
  3726.   IDOK     = 1;
  3727.   {$EXTERNALSYM IDOK}
  3728.   IDCANCEL = 2;
  3729.   {$EXTERNALSYM IDCANCEL}
  3730.   IDABORT  = 3;
  3731.   {$EXTERNALSYM IDABORT}
  3732.   IDRETRY  = 4;
  3733.   {$EXTERNALSYM IDRETRY}
  3734.   IDIGNORE = 5;
  3735.   {$EXTERNALSYM IDIGNORE}
  3736.   IDYES    = 6;
  3737.   {$EXTERNALSYM IDYES}
  3738.   IDNO     = 7;
  3739.   {$EXTERNALSYM IDNO}
  3740.   IDCLOSE  = 8;
  3741.   {$EXTERNALSYM IDCLOSE}
  3742.   IDHELP   = 9;
  3743.   {$EXTERNALSYM IDHELP}
  3745.   IDTRYAGAIN = 10;
  3746.   {$EXTERNALSYM IDTRYAGAIN}
  3747.   IDCONTINUE = 11;
  3748.   {$EXTERNALSYM IDCONTINUE}
  3750.   IDTIMEOUT  = 32000;
  3751.   {$EXTERNALSYM IDTIMEOUT}
  3753. //
  3754. // Control Manager Structures and Definitions
  3755. //
  3757. //
  3758. // Edit Control Styles
  3759. //
  3761.   ES_LEFT        = $0000;
  3762.   {$EXTERNALSYM ES_LEFT}
  3763.   ES_CENTER      = $0001;
  3764.   {$EXTERNALSYM ES_CENTER}
  3765.   ES_RIGHT       = $0002;
  3766.   {$EXTERNALSYM ES_RIGHT}
  3767.   ES_MULTILINE   = $0004;
  3768.   {$EXTERNALSYM ES_MULTILINE}
  3769.   ES_UPPERCASE   = $0008;
  3770.   {$EXTERNALSYM ES_UPPERCASE}
  3771.   ES_LOWERCASE   = $0010;
  3772.   {$EXTERNALSYM ES_LOWERCASE}
  3773.   ES_PASSWORD    = $0020;
  3774.   {$EXTERNALSYM ES_PASSWORD}
  3775.   ES_AUTOVSCROLL = $0040;
  3776.   {$EXTERNALSYM ES_AUTOVSCROLL}
  3777.   ES_AUTOHSCROLL = $0080;
  3778.   {$EXTERNALSYM ES_AUTOHSCROLL}
  3779.   ES_NOHIDESEL   = $0100;
  3780.   {$EXTERNALSYM ES_NOHIDESEL}
  3781.   ES_OEMCONVERT  = $0400;
  3782.   {$EXTERNALSYM ES_OEMCONVERT}
  3783.   ES_READONLY    = $0800;
  3784.   {$EXTERNALSYM ES_READONLY}
  3785.   ES_WANTRETURN  = $1000;
  3786.   {$EXTERNALSYM ES_WANTRETURN}
  3787.   ES_NUMBER      = $2000;
  3788.   {$EXTERNALSYM ES_NUMBER}
  3790. //
  3791. // Edit Control Notification Codes
  3792. //
  3794.   EN_SETFOCUS  = $0100;
  3795.   {$EXTERNALSYM EN_SETFOCUS}
  3796.   EN_KILLFOCUS = $0200;
  3797.   {$EXTERNALSYM EN_KILLFOCUS}
  3798.   EN_CHANGE    = $0300;
  3799.   {$EXTERNALSYM EN_CHANGE}
  3800.   EN_UPDATE    = $0400;
  3801.   {$EXTERNALSYM EN_UPDATE}
  3802.   EN_ERRSPACE  = $0500;
  3803.   {$EXTERNALSYM EN_ERRSPACE}
  3804.   EN_MAXTEXT   = $0501;
  3805.   {$EXTERNALSYM EN_MAXTEXT}
  3806.   EN_HSCROLL   = $0601;
  3807.   {$EXTERNALSYM EN_HSCROLL}
  3808.   EN_VSCROLL   = $0602;
  3809.   {$EXTERNALSYM EN_VSCROLL}
  3811.   EN_ALIGN_LTR_EC = $0700;
  3812.   {$EXTERNALSYM EN_ALIGN_LTR_EC}
  3813.   EN_ALIGN_RTL_EC = $0701;
  3814.   {$EXTERNALSYM EN_ALIGN_RTL_EC}
  3816. // Edit control EM_SETMARGIN parameters//
  3818.   EC_LEFTMARGIN  = $0001;
  3819.   {$EXTERNALSYM EC_LEFTMARGIN}
  3820.   EC_RIGHTMARGIN = $0002;
  3821.   {$EXTERNALSYM EC_RIGHTMARGIN}
  3822.   EC_USEFONTINFO = $ffff;
  3823.   {$EXTERNALSYM EC_USEFONTINFO}
  3825. // wParam of EM_GET/SETIMESTATUS //
  3827.   EMSIS_COMPOSITIONSTRING = $0001;
  3828.   {$EXTERNALSYM EMSIS_COMPOSITIONSTRING}
  3830. // lParam for EMSIS_COMPOSITIONSTRING //
  3832.   EIMES_GETCOMPSTRATONCE         = $0001;
  3833.   {$EXTERNALSYM EIMES_GETCOMPSTRATONCE}
  3834.   EIMES_CANCELCOMPSTRINFOCUS     = $0002;
  3835.   {$EXTERNALSYM EIMES_CANCELCOMPSTRINFOCUS}
  3836.   EIMES_COMPLETECOMPSTRKILLFOCUS = $0004;
  3837.   {$EXTERNALSYM EIMES_COMPLETECOMPSTRKILLFOCUS}
  3839. //
  3840. // Edit Control Messages
  3841. //
  3843.   EM_GETSEL              = $00B0;
  3844.   {$EXTERNALSYM EM_GETSEL}
  3845.   EM_SETSEL              = $00B1;
  3846.   {$EXTERNALSYM EM_SETSEL}
  3847.   EM_GETRECT             = $00B2;
  3848.   {$EXTERNALSYM EM_GETRECT}
  3849.   EM_SETRECT             = $00B3;
  3850.   {$EXTERNALSYM EM_SETRECT}
  3851.   EM_SETRECTNP           = $00B4;
  3852.   {$EXTERNALSYM EM_SETRECTNP}
  3853.   EM_SCROLL              = $00B5;
  3854.   {$EXTERNALSYM EM_SCROLL}
  3855.   EM_LINESCROLL          = $00B6;
  3856.   {$EXTERNALSYM EM_LINESCROLL}
  3857.   EM_SCROLLCARET         = $00B7;
  3858.   {$EXTERNALSYM EM_SCROLLCARET}
  3859.   EM_GETMODIFY           = $00B8;
  3860.   {$EXTERNALSYM EM_GETMODIFY}
  3861.   EM_SETMODIFY           = $00B9;
  3862.   {$EXTERNALSYM EM_SETMODIFY}
  3863.   EM_GETLINECOUNT        = $00BA;
  3864.   {$EXTERNALSYM EM_GETLINECOUNT}
  3865.   EM_LINEINDEX           = $00BB;
  3866.   {$EXTERNALSYM EM_LINEINDEX}
  3867.   EM_SETHANDLE           = $00BC;
  3868.   {$EXTERNALSYM EM_SETHANDLE}
  3869.   EM_GETHANDLE           = $00BD;
  3870.   {$EXTERNALSYM EM_GETHANDLE}
  3871.   EM_GETTHUMB            = $00BE;
  3872.   {$EXTERNALSYM EM_GETTHUMB}
  3873.   EM_LINELENGTH          = $00C1;
  3874.   {$EXTERNALSYM EM_LINELENGTH}
  3875.   EM_REPLACESEL          = $00C2;
  3876.   {$EXTERNALSYM EM_REPLACESEL}
  3877.   EM_GETLINE             = $00C4;
  3878.   {$EXTERNALSYM EM_GETLINE}
  3879.   EM_LIMITTEXT           = $00C5;
  3880.   {$EXTERNALSYM EM_LIMITTEXT}
  3881.   EM_CANUNDO             = $00C6;
  3882.   {$EXTERNALSYM EM_CANUNDO}
  3883.   EM_UNDO                = $00C7;
  3884.   {$EXTERNALSYM EM_UNDO}
  3885.   EM_FMTLINES            = $00C8;
  3886.   {$EXTERNALSYM EM_FMTLINES}
  3887.   EM_LINEFROMCHAR        = $00C9;
  3888.   {$EXTERNALSYM EM_LINEFROMCHAR}
  3889.   EM_SETTABSTOPS         = $00CB;
  3890.   {$EXTERNALSYM EM_SETTABSTOPS}
  3891.   EM_SETPASSWORDCHAR     = $00CC;
  3892.   {$EXTERNALSYM EM_SETPASSWORDCHAR}
  3893.   EM_EMPTYUNDOBUFFER     = $00CD;
  3894.   {$EXTERNALSYM EM_EMPTYUNDOBUFFER}
  3895.   EM_GETFIRSTVISIBLELINE = $00CE;
  3896.   {$EXTERNALSYM EM_GETFIRSTVISIBLELINE}
  3897.   EM_SETREADONLY         = $00CF;
  3898.   {$EXTERNALSYM EM_SETREADONLY}
  3899.   EM_SETWORDBREAKPROC    = $00D0;
  3900.   {$EXTERNALSYM EM_SETWORDBREAKPROC}
  3901.   EM_GETWORDBREAKPROC    = $00D1;
  3902.   {$EXTERNALSYM EM_GETWORDBREAKPROC}
  3903.   EM_GETPASSWORDCHAR     = $00D2;
  3904.   {$EXTERNALSYM EM_GETPASSWORDCHAR}
  3905.   EM_SETMARGINS          = $00D3;
  3906.   {$EXTERNALSYM EM_SETMARGINS}
  3907.   EM_GETMARGINS          = $00D4;
  3908.   {$EXTERNALSYM EM_GETMARGINS}
  3909.   EM_SETLIMITTEXT        = EM_LIMITTEXT; // ;win40 Name change
  3910.   {$EXTERNALSYM EM_SETLIMITTEXT}
  3911.   EM_GETLIMITTEXT        = $00D5;
  3912.   {$EXTERNALSYM EM_GETLIMITTEXT}
  3913.   EM_POSFROMCHAR         = $00D6;
  3914.   {$EXTERNALSYM EM_POSFROMCHAR}
  3915.   EM_CHARFROMPOS         = $00D7;
  3916.   {$EXTERNALSYM EM_CHARFROMPOS}
  3918.   EM_SETIMESTATUS = $00D8;
  3919.   {$EXTERNALSYM EM_SETIMESTATUS}
  3920.   EM_GETIMESTATUS = $00D9;
  3921.   {$EXTERNALSYM EM_GETIMESTATUS}
  3923. //
  3924. // EDITWORDBREAKPROC code values
  3925. //
  3927.   WB_LEFT        = 0;
  3928.   {$EXTERNALSYM WB_LEFT}
  3929.   WB_RIGHT       = 1;
  3930.   {$EXTERNALSYM WB_RIGHT}
  3931.   WB_ISDELIMITER = 2;
  3932.   {$EXTERNALSYM WB_ISDELIMITER}
  3934. //
  3935. // Button Control Styles
  3936. //
  3938.   BS_PUSHBUTTON      = $00000000;
  3939.   {$EXTERNALSYM BS_PUSHBUTTON}
  3940.   BS_DEFPUSHBUTTON   = $00000001;
  3941.   {$EXTERNALSYM BS_DEFPUSHBUTTON}
  3942.   BS_CHECKBOX        = $00000002;
  3943.   {$EXTERNALSYM BS_CHECKBOX}
  3944.   BS_AUTOCHECKBOX    = $00000003;
  3945.   {$EXTERNALSYM BS_AUTOCHECKBOX}
  3946.   BS_RADIOBUTTON     = $00000004;
  3947.   {$EXTERNALSYM BS_RADIOBUTTON}
  3948.   BS_3STATE          = $00000005;
  3949.   {$EXTERNALSYM BS_3STATE}
  3950.   BS_AUTO3STATE      = $00000006;
  3951.   {$EXTERNALSYM BS_AUTO3STATE}
  3952.   BS_GROUPBOX        = $00000007;
  3953.   {$EXTERNALSYM BS_GROUPBOX}
  3954.   BS_USERBUTTON      = $00000008;
  3955.   {$EXTERNALSYM BS_USERBUTTON}
  3956.   BS_AUTORADIOBUTTON = $00000009;
  3957.   {$EXTERNALSYM BS_AUTORADIOBUTTON}
  3958.   BS_PUSHBOX         = $0000000A;
  3959.   {$EXTERNALSYM BS_PUSHBOX}
  3960.   BS_OWNERDRAW       = $0000000B;
  3961.   {$EXTERNALSYM BS_OWNERDRAW}
  3962.   BS_TYPEMASK        = $0000000F;
  3963.   {$EXTERNALSYM BS_TYPEMASK}
  3964.   BS_LEFTTEXT        = $00000020;
  3965.   {$EXTERNALSYM BS_LEFTTEXT}
  3966.   BS_TEXT            = $00000000;
  3967.   {$EXTERNALSYM BS_TEXT}
  3968.   BS_ICON            = $00000040;
  3969.   {$EXTERNALSYM BS_ICON}
  3970.   BS_BITMAP          = $00000080;
  3971.   {$EXTERNALSYM BS_BITMAP}
  3972.   BS_LEFT            = $00000100;
  3973.   {$EXTERNALSYM BS_LEFT}
  3974.   BS_RIGHT           = $00000200;
  3975.   {$EXTERNALSYM BS_RIGHT}
  3976.   BS_CENTER          = $00000300;
  3977.   {$EXTERNALSYM BS_CENTER}
  3978.   BS_TOP             = $00000400;
  3979.   {$EXTERNALSYM BS_TOP}
  3980.   BS_BOTTOM          = $00000800;
  3981.   {$EXTERNALSYM BS_BOTTOM}
  3982.   BS_VCENTER         = $00000C00;
  3983.   {$EXTERNALSYM BS_VCENTER}
  3984.   BS_PUSHLIKE        = $00001000;
  3985.   {$EXTERNALSYM BS_PUSHLIKE}
  3986.   BS_MULTILINE       = $00002000;
  3987.   {$EXTERNALSYM BS_MULTILINE}
  3988.   BS_NOTIFY          = $00004000;
  3989.   {$EXTERNALSYM BS_NOTIFY}
  3990.   BS_FLAT            = $00008000;
  3991.   {$EXTERNALSYM BS_FLAT}
  3992.   BS_RIGHTBUTTON     = BS_LEFTTEXT;
  3993.   {$EXTERNALSYM BS_RIGHTBUTTON}
  3995. //
  3996. // User Button Notification Codes
  3997. //
  3999.   BN_CLICKED       = 0;
  4000.   {$EXTERNALSYM BN_CLICKED}
  4001.   BN_PAINT         = 1;
  4002.   {$EXTERNALSYM BN_PAINT}
  4003.   BN_HILITE        = 2;
  4004.   {$EXTERNALSYM BN_HILITE}
  4005.   BN_UNHILITE      = 3;
  4006.   {$EXTERNALSYM BN_UNHILITE}
  4007.   BN_DISABLE       = 4;
  4008.   {$EXTERNALSYM BN_DISABLE}
  4009.   BN_DOUBLECLICKED = 5;
  4010.   {$EXTERNALSYM BN_DOUBLECLICKED}
  4011.   BN_PUSHED        = BN_HILITE;
  4012.   {$EXTERNALSYM BN_PUSHED}
  4013.   BN_UNPUSHED      = BN_UNHILITE;
  4014.   {$EXTERNALSYM BN_UNPUSHED}
  4015.   BN_DBLCLK        = BN_DOUBLECLICKED;
  4016.   {$EXTERNALSYM BN_DBLCLK}
  4017.   BN_SETFOCUS      = 6;
  4018.   {$EXTERNALSYM BN_SETFOCUS}
  4019.   BN_KILLFOCUS     = 7;
  4020.   {$EXTERNALSYM BN_KILLFOCUS}
  4022. //
  4023. // Button Control Messages
  4024. //
  4026.   BM_GETCHECK = $00F0;
  4027.   {$EXTERNALSYM BM_GETCHECK}
  4028.   BM_SETCHECK = $00F1;
  4029.   {$EXTERNALSYM BM_SETCHECK}
  4030.   BM_GETSTATE = $00F2;
  4031.   {$EXTERNALSYM BM_GETSTATE}
  4032.   BM_SETSTATE = $00F3;
  4033.   {$EXTERNALSYM BM_SETSTATE}
  4034.   BM_SETSTYLE = $00F4;
  4035.   {$EXTERNALSYM BM_SETSTYLE}
  4036.   BM_CLICK    = $00F5;
  4037.   {$EXTERNALSYM BM_CLICK}
  4038.   BM_GETIMAGE = $00F6;
  4039.   {$EXTERNALSYM BM_GETIMAGE}
  4040.   BM_SETIMAGE = $00F7;
  4041.   {$EXTERNALSYM BM_SETIMAGE}
  4043.   BST_UNCHECKED     = $0000;
  4044.   {$EXTERNALSYM BST_UNCHECKED}
  4045.   BST_CHECKED       = $0001;
  4046.   {$EXTERNALSYM BST_CHECKED}
  4047.   BST_INDETERMINATE = $0002;
  4048.   {$EXTERNALSYM BST_INDETERMINATE}
  4049.   BST_PUSHED        = $0004;
  4050.   {$EXTERNALSYM BST_PUSHED}
  4051.   BST_FOCUS         = $0008;
  4052.   {$EXTERNALSYM BST_FOCUS}
  4054. //
  4055. // Static Control Constants
  4056. //
  4058.   SS_LEFT           = $00000000;
  4059.   {$EXTERNALSYM SS_LEFT}
  4060.   SS_CENTER         = $00000001;
  4061.   {$EXTERNALSYM SS_CENTER}
  4062.   SS_RIGHT          = $00000002;
  4063.   {$EXTERNALSYM SS_RIGHT}
  4064.   SS_ICON           = $00000003;
  4065.   {$EXTERNALSYM SS_ICON}
  4066.   SS_BLACKRECT      = $00000004;
  4067.   {$EXTERNALSYM SS_BLACKRECT}
  4068.   SS_GRAYRECT       = $00000005;
  4069.   {$EXTERNALSYM SS_GRAYRECT}
  4070.   SS_WHITERECT      = $00000006;
  4071.   {$EXTERNALSYM SS_WHITERECT}
  4072.   SS_BLACKFRAME     = $00000007;
  4073.   {$EXTERNALSYM SS_BLACKFRAME}
  4074.   SS_GRAYFRAME      = $00000008;
  4075.   {$EXTERNALSYM SS_GRAYFRAME}
  4076.   SS_WHITEFRAME     = $00000009;
  4077.   {$EXTERNALSYM SS_WHITEFRAME}
  4078.   SS_USERITEM       = $0000000A;
  4079.   {$EXTERNALSYM SS_USERITEM}
  4080.   SS_SIMPLE         = $0000000B;
  4081.   {$EXTERNALSYM SS_SIMPLE}
  4082.   SS_LEFTNOWORDWRAP = $0000000C;
  4083.   {$EXTERNALSYM SS_LEFTNOWORDWRAP}
  4084.   SS_OWNERDRAW      = $0000000D;
  4085.   {$EXTERNALSYM SS_OWNERDRAW}
  4086.   SS_BITMAP         = $0000000E;
  4087.   {$EXTERNALSYM SS_BITMAP}
  4088.   SS_ENHMETAFILE    = $0000000F;
  4089.   {$EXTERNALSYM SS_ENHMETAFILE}
  4090.   SS_ETCHEDHORZ     = $00000010;
  4091.   {$EXTERNALSYM SS_ETCHEDHORZ}
  4092.   SS_ETCHEDVERT     = $00000011;
  4093.   {$EXTERNALSYM SS_ETCHEDVERT}
  4094.   SS_ETCHEDFRAME    = $00000012;
  4095.   {$EXTERNALSYM SS_ETCHEDFRAME}
  4096.   SS_TYPEMASK       = $0000001F;
  4097.   {$EXTERNALSYM SS_TYPEMASK}
  4098.   SS_REALSIZECONTROL = $00000040;
  4099.   {$EXTERNALSYM SS_REALSIZECONTROL}
  4100.   SS_NOPREFIX       = $00000080; // Don't do "&" character translation
  4101.   {$EXTERNALSYM SS_NOPREFIX}
  4102.   SS_NOTIFY         = $00000100;
  4103.   {$EXTERNALSYM SS_NOTIFY}
  4104.   SS_CENTERIMAGE    = $00000200;
  4105.   {$EXTERNALSYM SS_CENTERIMAGE}
  4106.   SS_RIGHTJUST      = $00000400;
  4107.   {$EXTERNALSYM SS_RIGHTJUST}
  4108.   SS_REALSIZEIMAGE  = $00000800;
  4109.   {$EXTERNALSYM SS_REALSIZEIMAGE}
  4110.   SS_SUNKEN         = $00001000;
  4111.   {$EXTERNALSYM SS_SUNKEN}
  4112.   SS_EDITCONTROL    = $00002000;
  4113.   {$EXTERNALSYM SS_EDITCONTROL}
  4114.   SS_ENDELLIPSIS    = $00004000;
  4115.   {$EXTERNALSYM SS_ENDELLIPSIS}
  4116.   SS_PATHELLIPSIS   = $00008000;
  4117.   {$EXTERNALSYM SS_PATHELLIPSIS}
  4118.   SS_WORDELLIPSIS   = $0000C000;
  4119.   {$EXTERNALSYM SS_WORDELLIPSIS}
  4120.   SS_ELLIPSISMASK   = $0000C000;
  4121.   {$EXTERNALSYM SS_ELLIPSISMASK}
  4123. //
  4124. // Static Control Mesages
  4125. //
  4127.   STM_SETICON  = $0170;
  4128.   {$EXTERNALSYM STM_SETICON}
  4129.   STM_GETICON  = $0171;
  4130.   {$EXTERNALSYM STM_GETICON}
  4131.   STM_SETIMAGE = $0172;
  4132.   {$EXTERNALSYM STM_SETIMAGE}
  4133.   STM_GETIMAGE = $0173;
  4134.   {$EXTERNALSYM STM_GETIMAGE}
  4135.   STN_CLICKED  = 0;
  4136.   {$EXTERNALSYM STN_CLICKED}
  4137.   STN_DBLCLK   = 1;
  4138.   {$EXTERNALSYM STN_DBLCLK}
  4139.   STN_ENABLE   = 2;
  4140.   {$EXTERNALSYM STN_ENABLE}
  4141.   STN_DISABLE  = 3;
  4142.   {$EXTERNALSYM STN_DISABLE}
  4143.   STM_MSGMAX   = $0174;
  4144.   {$EXTERNALSYM STM_MSGMAX}
  4146. //
  4147. // Dialog window class
  4148. //
  4150.   WC_DIALOG = (MAKEINTATOM($8002));
  4151.   {$EXTERNALSYM WC_DIALOG}
  4153. //
  4154. // Get/SetWindowWord/Long offsets for use with WC_DIALOG windows
  4155. //
  4157.   DWL_MSGRESULT = 0;
  4158.   {$EXTERNALSYM DWL_MSGRESULT}
  4159.   DWL_DLGPROC   = 4;
  4160.   {$EXTERNALSYM DWL_DLGPROC}
  4161.   DWL_USER      = 8;
  4162.   {$EXTERNALSYM DWL_USER}
  4164.   DWLP_MSGRESULT = 0;
  4165.   {$EXTERNALSYM DWLP_MSGRESULT}
  4166.   DWLP_DLGPROC   = DWLP_MSGRESULT + SizeOf(LRESULT);
  4167.   {$EXTERNALSYM DWLP_DLGPROC}
  4168.   DWLP_USER      = DWLP_DLGPROC + SizeOf(DLGPROC);
  4169.   {$EXTERNALSYM DWLP_USER}
  4171. //
  4172. // Dialog Manager Routines
  4173. //
  4175. function IsDialogMessageA(hDlg: HWND; const lpMsg: MSG): BOOL; stdcall;
  4176. {$EXTERNALSYM IsDialogMessageA}
  4177. function IsDialogMessageW(hDlg: HWND; const lpMsg: MSG): BOOL; stdcall;
  4178. {$EXTERNALSYM IsDialogMessageW}
  4180. {$IFDEF UNICODE}
  4181. function IsDialogMessage(hDlg: HWND; const lpMsg: MSG): BOOL; stdcall;
  4182. {$EXTERNALSYM IsDialogMessage}
  4183. {$ELSE}
  4184. function IsDialogMessage(hDlg: HWND; const lpMsg: MSG): BOOL; stdcall;
  4185. {$EXTERNALSYM IsDialogMessage}
  4186. {$ENDIF}
  4188. function MapDialogRect(hDlg: HWND; var lpRect: RECT): BOOL; stdcall;
  4189. {$EXTERNALSYM MapDialogRect}
  4191. function DlgDirListA(hDlg: HWND; lpPathSpec: LPSTR; nIDListBox: Integer;
  4192.   nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  4193. {$EXTERNALSYM DlgDirListA}
  4194. function DlgDirListW(hDlg: HWND; lpPathSpec: LPWSTR; nIDListBox: Integer;
  4195.   nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  4196. {$EXTERNALSYM DlgDirListW}
  4198. {$IFDEF UNICODE}
  4199. function DlgDirList(hDlg: HWND; lpPathSpec: LPWSTR; nIDListBox: Integer;
  4200.   nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  4201. {$EXTERNALSYM DlgDirList}
  4202. {$ELSE}
  4203. function DlgDirList(hDlg: HWND; lpPathSpec: LPSTR; nIDListBox: Integer;
  4204.   nIDStaticPath: Integer; uFileType: UINT): Integer; stdcall;
  4205. {$EXTERNALSYM DlgDirList}
  4206. {$ENDIF}
  4208. //
  4209. // DlgDirList, DlgDirListComboBox flags values
  4210. //
  4212. const
  4213.   DDL_READWRITE = $0000;
  4214.   {$EXTERNALSYM DDL_READWRITE}
  4215.   DDL_READONLY  = $0001;
  4216.   {$EXTERNALSYM DDL_READONLY}
  4217.   DDL_HIDDEN    = $0002;
  4218.   {$EXTERNALSYM DDL_HIDDEN}
  4219.   DDL_SYSTEM    = $0004;
  4220.   {$EXTERNALSYM DDL_SYSTEM}
  4221.   DDL_DIRECTORY = $0010;
  4222.   {$EXTERNALSYM DDL_DIRECTORY}
  4223.   DDL_ARCHIVE   = $0020;
  4224.   {$EXTERNALSYM DDL_ARCHIVE}
  4226.   DDL_POSTMSGS  = $2000;
  4227.   {$EXTERNALSYM DDL_POSTMSGS}
  4228.   DDL_DRIVES    = $4000;
  4229.   {$EXTERNALSYM DDL_DRIVES}
  4230.   DDL_EXCLUSIVE = $8000;
  4231.   {$EXTERNALSYM DDL_EXCLUSIVE}
  4233. function DlgDirSelectExA(hDlg: HWND; lpString: LPSTR; nCount, nIDListBox: Integer): BOOL; stdcall;
  4234. {$EXTERNALSYM DlgDirSelectExA}
  4235. function DlgDirSelectExW(hDlg: HWND; lpString: LPWSTR; nCount, nIDListBox: Integer): BOOL; stdcall;
  4236. {$EXTERNALSYM DlgDirSelectExW}
  4238. {$IFDEF UNICODE}
  4239. function DlgDirSelectEx(hDlg: HWND; lpString: LPWSTR; nCount, nIDListBox: Integer): BOOL; stdcall;
  4240. {$EXTERNALSYM DlgDirSelectEx}
  4241. {$ELSE}
  4242. function DlgDirSelectEx(hDlg: HWND; lpString: LPSTR; nCount, nIDListBox: Integer): BOOL; stdcall;
  4243. {$EXTERNALSYM DlgDirSelectEx}
  4244. {$ENDIF}
  4246. function DlgDirListComboBoxA(hDlg: HWND; lpPathSpec: LPSTR; nIDComboBox: Integer;
  4247.   nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  4248. {$EXTERNALSYM DlgDirListComboBoxA}
  4249. function DlgDirListComboBoxW(hDlg: HWND; lpPathSpec: LPWSTR; nIDComboBox: Integer;
  4250.   nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  4251. {$EXTERNALSYM DlgDirListComboBoxW}
  4253. {$IFDEF UNICODE}
  4254. function DlgDirListComboBox(hDlg: HWND; lpPathSpec: LPWSTR; nIDComboBox: Integer;
  4255.   nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  4256. {$EXTERNALSYM DlgDirListComboBox}
  4257. {$ELSE}
  4258. function DlgDirListComboBox(hDlg: HWND; lpPathSpec: LPSTR; nIDComboBox: Integer;
  4259.   nIDStaticPath: Integer; uFiletype: UINT): Integer; stdcall;
  4260. {$EXTERNALSYM DlgDirListComboBox}
  4261. {$ENDIF}
  4263. function DlgDirSelectComboBoxExA(hDlg: HWND; lpString: LPSTR; nCount: Integer;
  4264.   nIDComboBox: Integer): BOOL; stdcall;
  4265. {$EXTERNALSYM DlgDirSelectComboBoxExA}
  4266. function DlgDirSelectComboBoxExW(hDlg: HWND; lpString: LPWSTR; nCount: Integer;
  4267.   nIDComboBox: Integer): BOOL; stdcall;
  4268. {$EXTERNALSYM DlgDirSelectComboBoxExW}
  4270. {$IFDEF UNICODE}
  4271. function DlgDirSelectComboBoxEx(hDlg: HWND; lpString: LPWSTR; nCount: Integer;
  4272.   nIDComboBox: Integer): BOOL; stdcall;
  4273. {$EXTERNALSYM DlgDirSelectComboBoxEx}
  4274. {$ELSE}
  4275. function DlgDirSelectComboBoxEx(hDlg: HWND; lpString: LPSTR; nCount: Integer;
  4276.   nIDComboBox: Integer): BOOL; stdcall;
  4277. {$EXTERNALSYM DlgDirSelectComboBoxEx}
  4278. {$ENDIF}
  4280. //
  4281. // Dialog Styles
  4282. //
  4284. const
  4285.   DS_ABSALIGN      = $01;
  4286.   {$EXTERNALSYM DS_ABSALIGN}
  4287.   DS_SYSMODAL      = $02;
  4288.   {$EXTERNALSYM DS_SYSMODAL}
  4289.   DS_LOCALEDIT     = $20; // Edit items get Local storage.
  4290.   {$EXTERNALSYM DS_LOCALEDIT}
  4291.   DS_SETFONT       = $40; // User specified font for Dlg controls
  4292.   {$EXTERNALSYM DS_SETFONT}
  4293.   DS_MODALFRAME    = $80; // Can be combined with WS_CAPTION
  4294.   {$EXTERNALSYM DS_MODALFRAME}
  4295.   DS_NOIDLEMSG     = $100; // WM_ENTERIDLE message will not be sent
  4296.   {$EXTERNALSYM DS_NOIDLEMSG}
  4297.   DS_SETFOREGROUND = $200; // not in win3.1
  4298.   {$EXTERNALSYM DS_SETFOREGROUND}
  4300.   DS_3DLOOK       = $0004;
  4301.   {$EXTERNALSYM DS_3DLOOK}
  4302.   DS_FIXEDSYS     = $0008;
  4303.   {$EXTERNALSYM DS_FIXEDSYS}
  4304.   DS_NOFAILCREATE = $0010;
  4305.   {$EXTERNALSYM DS_NOFAILCREATE}
  4306.   DS_CONTROL      = $0400;
  4307.   {$EXTERNALSYM DS_CONTROL}
  4308.   DS_CENTER       = $0800;
  4309.   {$EXTERNALSYM DS_CENTER}
  4310.   DS_CENTERMOUSE  = $1000;
  4311.   {$EXTERNALSYM DS_CENTERMOUSE}
  4312.   DS_CONTEXTHELP  = $2000;
  4313.   {$EXTERNALSYM DS_CONTEXTHELP}
  4315.   DS_SHELLFONT = (DS_SETFONT or DS_FIXEDSYS);
  4316.   {$EXTERNALSYM DS_SHELLFONT}
  4318. //#if(_WIN32_WCE >= 0x0500)
  4319.   DS_USEPIXELS = $8000;
  4320.   {$EXTERNALSYM DS_USEPIXELS}
  4321. //#endif
  4323.   DM_GETDEFID = (WM_USER+0);
  4324.   {$EXTERNALSYM DM_GETDEFID}
  4325.   DM_SETDEFID = (WM_USER+1);
  4326.   {$EXTERNALSYM DM_SETDEFID}
  4328.   DM_REPOSITION = (WM_USER+2);
  4329.   {$EXTERNALSYM DM_REPOSITION}
  4331. //
  4332. // Returned in HIWORD() of DM_GETDEFID result if msg is supported
  4333. //
  4335.   DC_HASDEFID = $534B;
  4336.   {$EXTERNALSYM DC_HASDEFID}
  4338. //
  4339. // Dialog Codes
  4340. //
  4342.   DLGC_WANTARROWS      = $0001; // Control wants arrow keys
  4343.   {$EXTERNALSYM DLGC_WANTARROWS}
  4344.   DLGC_WANTTAB         = $0002; // Control wants tab keys
  4345.   {$EXTERNALSYM DLGC_WANTTAB}
  4346.   DLGC_WANTALLKEYS     = $0004; // Control wants all keys
  4347.   {$EXTERNALSYM DLGC_WANTALLKEYS}
  4348.   DLGC_WANTMESSAGE     = $0004; // Pass message to control
  4349.   {$EXTERNALSYM DLGC_WANTMESSAGE}
  4350.   DLGC_HASSETSEL       = $0008; // Understands EM_SETSEL message
  4351.   {$EXTERNALSYM DLGC_HASSETSEL}
  4352.   DLGC_DEFPUSHBUTTON   = $0010; // Default pushbutton
  4353.   {$EXTERNALSYM DLGC_DEFPUSHBUTTON}
  4354.   DLGC_UNDEFPUSHBUTTON = $0020; // Non-default pushbutton
  4355.   {$EXTERNALSYM DLGC_UNDEFPUSHBUTTON}
  4356.   DLGC_RADIOBUTTON     = $0040; // Radio button
  4357.   {$EXTERNALSYM DLGC_RADIOBUTTON}
  4358.   DLGC_WANTCHARS       = $0080; // Want WM_CHAR messages
  4359.   {$EXTERNALSYM DLGC_WANTCHARS}
  4360.   DLGC_STATIC          = $0100; // Static item: don't include
  4361.   {$EXTERNALSYM DLGC_STATIC}
  4362.   DLGC_BUTTON          = $2000; // Button item: can be checked
  4363.   {$EXTERNALSYM DLGC_BUTTON}
  4365.   LB_CTLCODE = 0;
  4366.   {$EXTERNALSYM LB_CTLCODE}
  4368. //
  4369. // Listbox Return Values
  4370. //
  4372.   LB_OKAY     = 0;
  4373.   {$EXTERNALSYM LB_OKAY}
  4374.   LB_ERR      = DWORD(-1);
  4375.   {$EXTERNALSYM LB_ERR}
  4376.   LB_ERRSPACE = DWORD(-2);
  4377.   {$EXTERNALSYM LB_ERRSPACE}
  4379. //
  4380. //  The idStaticPath parameter to DlgDirList can have the following values
  4381. //  ORed if the list box should show other details of the files along with
  4382. //  the name of the files;
  4383. //
  4384. // all other details also will be returned
  4386. //
  4387. // Listbox Notification Codes
  4388. //
  4390.   LBN_ERRSPACE  = DWORD(-2);
  4391.   {$EXTERNALSYM LBN_ERRSPACE}
  4392.   LBN_SELCHANGE = 1;
  4393.   {$EXTERNALSYM LBN_SELCHANGE}
  4394.   LBN_DBLCLK    = 2;
  4395.   {$EXTERNALSYM LBN_DBLCLK}
  4396.   LBN_SELCANCEL = 3;
  4397.   {$EXTERNALSYM LBN_SELCANCEL}
  4398.   LBN_SETFOCUS  = 4;
  4399.   {$EXTERNALSYM LBN_SETFOCUS}
  4400.   LBN_KILLFOCUS = 5;
  4401.   {$EXTERNALSYM LBN_KILLFOCUS}
  4403. //
  4404. // Listbox messages
  4405. //
  4407.   LB_ADDSTRING           = $0180;
  4408.   {$EXTERNALSYM LB_ADDSTRING}
  4409.   LB_INSERTSTRING        = $0181;
  4410.   {$EXTERNALSYM LB_INSERTSTRING}
  4411.   LB_DELETESTRING        = $0182;
  4412.   {$EXTERNALSYM LB_DELETESTRING}
  4413.   LB_SELITEMRANGEEX      = $0183;
  4414.   {$EXTERNALSYM LB_SELITEMRANGEEX}
  4415.   LB_RESETCONTENT        = $0184;
  4416.   {$EXTERNALSYM LB_RESETCONTENT}
  4417.   LB_SETSEL              = $0185;
  4418.   {$EXTERNALSYM LB_SETSEL}
  4419.   LB_SETCURSEL           = $0186;
  4420.   {$EXTERNALSYM LB_SETCURSEL}
  4421.   LB_GETSEL              = $0187;
  4422.   {$EXTERNALSYM LB_GETSEL}
  4423.   LB_GETCURSEL           = $0188;
  4424.   {$EXTERNALSYM LB_GETCURSEL}
  4425.   LB_GETTEXT             = $0189;
  4426.   {$EXTERNALSYM LB_GETTEXT}
  4427.   LB_GETTEXTLEN          = $018A;
  4428.   {$EXTERNALSYM LB_GETTEXTLEN}
  4429.   LB_GETCOUNT            = $018B;
  4430.   {$EXTERNALSYM LB_GETCOUNT}
  4431.   LB_SELECTSTRING        = $018C;
  4432.   {$EXTERNALSYM LB_SELECTSTRING}
  4433.   LB_DIR                 = $018D;
  4434.   {$EXTERNALSYM LB_DIR}
  4435.   LB_GETTOPINDEX         = $018E;
  4436.   {$EXTERNALSYM LB_GETTOPINDEX}
  4437.   LB_FINDSTRING          = $018F;
  4438.   {$EXTERNALSYM LB_FINDSTRING}
  4439.   LB_GETSELCOUNT         = $0190;
  4440.   {$EXTERNALSYM LB_GETSELCOUNT}
  4441.   LB_GETSELITEMS         = $0191;
  4442.   {$EXTERNALSYM LB_GETSELITEMS}
  4443.   LB_SETTABSTOPS         = $0192;
  4444.   {$EXTERNALSYM LB_SETTABSTOPS}
  4445.   LB_GETHORIZONTALEXTENT = $0193;
  4446.   {$EXTERNALSYM LB_GETHORIZONTALEXTENT}
  4447.   LB_SETHORIZONTALEXTENT = $0194;
  4448.   {$EXTERNALSYM LB_SETHORIZONTALEXTENT}
  4449.   LB_SETCOLUMNWIDTH      = $0195;
  4450.   {$EXTERNALSYM LB_SETCOLUMNWIDTH}
  4451.   LB_ADDFILE             = $0196;
  4452.   {$EXTERNALSYM LB_ADDFILE}
  4453.   LB_SETTOPINDEX         = $0197;
  4454.   {$EXTERNALSYM LB_SETTOPINDEX}
  4455.   LB_GETITEMRECT         = $0198;
  4456.   {$EXTERNALSYM LB_GETITEMRECT}
  4457.   LB_GETITEMDATA         = $0199;
  4458.   {$EXTERNALSYM LB_GETITEMDATA}
  4459.   LB_SETITEMDATA         = $019A;
  4460.   {$EXTERNALSYM LB_SETITEMDATA}
  4461.   LB_SELITEMRANGE        = $019B;
  4462.   {$EXTERNALSYM LB_SELITEMRANGE}
  4463.   LB_SETANCHORINDEX      = $019C;
  4464.   {$EXTERNALSYM LB_SETANCHORINDEX}
  4465.   LB_GETANCHORINDEX      = $019D;
  4466.   {$EXTERNALSYM LB_GETANCHORINDEX}
  4467.   LB_SETCARETINDEX       = $019E;
  4468.   {$EXTERNALSYM LB_SETCARETINDEX}
  4469.   LB_GETCARETINDEX       = $019F;
  4470.   {$EXTERNALSYM LB_GETCARETINDEX}
  4471.   LB_SETITEMHEIGHT       = $01A0;
  4472.   {$EXTERNALSYM LB_SETITEMHEIGHT}
  4473.   LB_GETITEMHEIGHT       = $01A1;
  4474.   {$EXTERNALSYM LB_GETITEMHEIGHT}
  4475.   LB_FINDSTRINGEXACT     = $01A2;
  4476.   {$EXTERNALSYM LB_FINDSTRINGEXACT}
  4477.   LB_SETLOCALE           = $01A5;
  4478.   {$EXTERNALSYM LB_SETLOCALE}
  4479.   LB_GETLOCALE           = $01A6;
  4480.   {$EXTERNALSYM LB_GETLOCALE}
  4481.   LB_SETCOUNT            = $01A7;
  4482.   {$EXTERNALSYM LB_SETCOUNT}
  4483.   LB_INITSTORAGE   = $01A8;
  4484.   {$EXTERNALSYM LB_INITSTORAGE}
  4485.   LB_ITEMFROMPOINT = $01A9;
  4486.   {$EXTERNALSYM LB_ITEMFROMPOINT}
  4487.   LB_MULTIPLEADDSTRING = $01B1;
  4488.   {$EXTERNALSYM LB_MULTIPLEADDSTRING}
  4489.   LB_GETLISTBOXINFO    = $01B2;
  4490.   {$EXTERNALSYM LB_GETLISTBOXINFO}
  4492. {$IFDEF WINVER_0400_GREATER}
  4493.   LB_MSGMAX = $01B3;
  4494.   {$EXTERNALSYM LB_MSGMAX}
  4495. {$ELSE}
  4496. {$IFDEF WINVER_0400_GREATER}
  4497.   LB_MSGMAX = $01B0;
  4498.   {$EXTERNALSYM LB_MSGMAX}
  4499. {$ELSE}
  4500.   LB_MSGMAX = $01A8;
  4501.   {$EXTERNALSYM LB_MSGMAX}
  4502. {$ENDIF}
  4503. {$ENDIF}
  4505. //
  4506. // Listbox Styles
  4507. //
  4509.   LBS_NOTIFY            = $0001;
  4510.   {$EXTERNALSYM LBS_NOTIFY}
  4511.   LBS_SORT              = $0002;
  4512.   {$EXTERNALSYM LBS_SORT}
  4513.   LBS_NOREDRAW          = $0004;
  4514.   {$EXTERNALSYM LBS_NOREDRAW}
  4515.   LBS_MULTIPLESEL       = $0008;
  4516.   {$EXTERNALSYM LBS_MULTIPLESEL}
  4517.   LBS_OWNERDRAWFIXED    = $0010;
  4518.   {$EXTERNALSYM LBS_OWNERDRAWFIXED}
  4519.   LBS_OWNERDRAWVARIABLE = $0020;
  4520.   {$EXTERNALSYM LBS_OWNERDRAWVARIABLE}
  4521.   LBS_HASSTRINGS        = $0040;
  4522.   {$EXTERNALSYM LBS_HASSTRINGS}
  4523.   LBS_USETABSTOPS       = $0080;
  4524.   {$EXTERNALSYM LBS_USETABSTOPS}
  4525.   LBS_NOINTEGRALHEIGHT  = $0100;
  4526.   {$EXTERNALSYM LBS_NOINTEGRALHEIGHT}
  4527.   LBS_MULTICOLUMN       = $0200;
  4528.   {$EXTERNALSYM LBS_MULTICOLUMN}
  4529.   LBS_WANTKEYBOARDINPUT = $0400;
  4530.   {$EXTERNALSYM LBS_WANTKEYBOARDINPUT}
  4531.   LBS_EXTENDEDSEL       = $0800;
  4532.   {$EXTERNALSYM LBS_EXTENDEDSEL}
  4533.   LBS_DISABLENOSCROLL   = $1000;
  4534.   {$EXTERNALSYM LBS_DISABLENOSCROLL}
  4535.   LBS_NODATA            = $2000;
  4536.   {$EXTERNALSYM LBS_NODATA}
  4537.   LBS_NOSEL             = $4000;
  4538.   {$EXTERNALSYM LBS_NOSEL}
  4539.   LBS_COMBOBOX          = $8000;
  4540.   {$EXTERNALSYM LBS_COMBOBOX}
  4541.   
  4542.   LBS_STANDARD          = (LBS_NOTIFY or LBS_SORT or WS_VSCROLL or WS_BORDER);
  4543.   {$EXTERNALSYM LBS_STANDARD}
  4545. //
  4546. // Combo Box return Values
  4547. //
  4549.   CB_OKAY     = 0;
  4550.   {$EXTERNALSYM CB_OKAY}
  4551.   CB_ERR      = DWORD(-1);
  4552.   {$EXTERNALSYM CB_ERR}
  4553.   CB_ERRSPACE = DWORD(-2);
  4554.   {$EXTERNALSYM CB_ERRSPACE}
  4556. //
  4557. // Combo Box Notification Codes
  4558. //
  4560.   CBN_ERRSPACE     = DWORD(-1);
  4561.   {$EXTERNALSYM CBN_ERRSPACE}
  4562.   CBN_SELCHANGE    = 1;
  4563.   {$EXTERNALSYM CBN_SELCHANGE}
  4564.   CBN_DBLCLK       = 2;
  4565.   {$EXTERNALSYM CBN_DBLCLK}
  4566.   CBN_SETFOCUS     = 3;
  4567.   {$EXTERNALSYM CBN_SETFOCUS}
  4568.   CBN_KILLFOCUS    = 4;
  4569.   {$EXTERNALSYM CBN_KILLFOCUS}
  4570.   CBN_EDITCHANGE   = 5;
  4571.   {$EXTERNALSYM CBN_EDITCHANGE}
  4572.   CBN_EDITUPDATE   = 6;
  4573.   {$EXTERNALSYM CBN_EDITUPDATE}
  4574.   CBN_DROPDOWN     = 7;
  4575.   {$EXTERNALSYM CBN_DROPDOWN}
  4576.   CBN_CLOSEUP      = 8;
  4577.   {$EXTERNALSYM CBN_CLOSEUP}
  4578.   CBN_SELENDOK     = 9;
  4579.   {$EXTERNALSYM CBN_SELENDOK}
  4580.   CBN_SELENDCANCEL = 10;
  4581.   {$EXTERNALSYM CBN_SELENDCANCEL}