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

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

Windows编程

开发平台：

Delphi

JwaPrSht.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { Property Sheet Pages API interface Unit for Object Pascal                    }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: prsht.h, released June 2000. The original Pascal       }
  9. { code is: PrSht.pas, released December 2000. The initial developer of the     }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaPrSht;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "ntdsapi.h"'}
  50. {$HPPEMIT ''}
  51. {$HPPEMIT 'typedef PHPROPSHEETPAGE  *HPROPSHEETPAGE'}
  52. {$HPPEMIT ''}
  54. {$I WINDEFINES.INC}
  56. interface
  58. uses
  59.   JwaWinNT, JwaWinUser, JwaWinType;
  61. //#ifndef CCSIZEOF_STRUCT
  62. //#define CCSIZEOF_STRUCT(structname, member)  (((int)((LPBYTE)(&((structname*)0)->member) - ((LPBYTE)((structname*)0)))) + sizeof(((structname*)0)->member))
  63. //#endif
  65. //
  66. // For compilers that don't support nameless unions
  67. //
  69. const
  70.   MAXPROPPAGES           = 100;
  71.   {$EXTERNALSYM MAXPROPPAGES}
  73. type
  74.   HPROPSHEETPAGE = Pointer;
  75.   {$EXTERNALSYM HPROPSHEETPAGE}
  76.   PHPROPSHEETPAGE = ^HPROPSHEETPAGE;
  77.   {$NODEFINE PHPROPSHEETPAGE}
  79.   LPFNPSPCALLBACKA = function (hwnd: HWND; uMsg: UINT; ppsp: Pointer{LPPROPSHEETPAGEA}): UINT; stdcall;
  80.   {$EXTERNALSYM LPFNPSPCALLBACKA}
  81.   LPFNPSPCALLBACKW = function (hwnd: HWND; uMsg: UINT; ppsp: Pointer{LPPROPSHEETPAGEW}): UINT; stdcall;
  82.   {$EXTERNALSYM LPFNPSPCALLBACKW}
  84. {$IFDEF UNICODE}
  85.   LPFNPSPCALLBACK = function (hwnd: HWND; uMsg: UINT; ppsp: Pointer{LPPROPSHEETPAGEW}): UINT; stdcall;
  86.   {$EXTERNALSYM LPFNPSPCALLBACK}
  87. {$ELSE}
  88.   LPFNPSPCALLBACK = function (hwnd: HWND; uMsg: UINT; ppsp: Pointer{LPPROPSHEETPAGEA}): UINT; stdcall;
  89.   {$EXTERNALSYM LPFNPSPCALLBACK}
  90. {$ENDIF}
  91.   
  92. const
  93.   PSP_DEFAULT               = $00000000;
  94.   {$EXTERNALSYM PSP_DEFAULT}
  95.   PSP_DLGINDIRECT           = $00000001;
  96.   {$EXTERNALSYM PSP_DLGINDIRECT}
  97.   PSP_USEHICON              = $00000002;
  98.   {$EXTERNALSYM PSP_USEHICON}
  99.   PSP_USEICONID             = $00000004;
  100.   {$EXTERNALSYM PSP_USEICONID}
  101.   PSP_USETITLE              = $00000008;
  102.   {$EXTERNALSYM PSP_USETITLE}
  103.   PSP_RTLREADING            = $00000010;
  104.   {$EXTERNALSYM PSP_RTLREADING}
  106.   PSP_HASHELP               = $00000020;
  107.   {$EXTERNALSYM PSP_HASHELP}
  108.   PSP_USEREFPARENT          = $00000040;
  109.   {$EXTERNALSYM PSP_USEREFPARENT}
  110.   PSP_USECALLBACK           = $00000080;
  111.   {$EXTERNALSYM PSP_USECALLBACK}
  112.   PSP_PREMATURE             = $00000400;
  113.   {$EXTERNALSYM PSP_PREMATURE}
  115. //----- New flags for wizard97 --------------
  117.   PSP_HIDEHEADER            = $00000800;
  118.   {$EXTERNALSYM PSP_HIDEHEADER}
  119.   PSP_USEHEADERTITLE        = $00001000;
  120.   {$EXTERNALSYM PSP_USEHEADERTITLE}
  121.   PSP_USEHEADERSUBTITLE     = $00002000;
  122.   {$EXTERNALSYM PSP_USEHEADERSUBTITLE}
  124. //-------------------------------------------
  126.   PSPCB_ADDREF           = 0;
  127.   {$EXTERNALSYM PSPCB_ADDREF}
  128.   PSPCB_RELEASE          = 1;
  129.   {$EXTERNALSYM PSPCB_RELEASE}
  130.   PSPCB_CREATE           = 2;
  131.   {$EXTERNALSYM PSPCB_CREATE}
  133. //#define PROPSHEETPAGEA_V1_SIZE CCSIZEOF_STRUCT(PROPSHEETPAGEA, pcRefParent)
  134. //#define PROPSHEETPAGEW_V1_SIZE CCSIZEOF_STRUCT(PROPSHEETPAGEW, pcRefParent)
  136. type
  137.   _PROPSHEETPAGEA = record
  138.     dwSize: DWORD;
  139.     dwFlags: DWORD;
  140.     hInstance: HINSTANCE;
  141.     u: record
  142.     case Integer of
  143.       0: (pszTemplate: LPCSTR);
  144.       1: (pResource: LPCDLGTEMPLATE);
  145.     end;
  146.     u2: record
  147.     case Integer of
  148.       0: (hIcon: HICON);
  149.       1: (pszIcon: LPCSTR);
  150.     end;
  151.     pszTitle: LPCSTR;
  152.     pfnDlgProc: DLGPROC;
  153.     lParam: LPARAM;
  154.     pfnCallback: LPFNPSPCALLBACKA;
  155.     pcRefParent: LPUINT;
  156.     {$IFDEF _WIN32_IE_GE_0x0400}
  157.     pszHeaderTitle: LPCSTR;    // this is displayed in the header
  158.     pszHeaderSubTitle: LPCSTR; //
  159.     {$ENDIF}
  160.   end;
  161.   {$EXTERNALSYM _PROPSHEETPAGEA}
  162.   PROPSHEETPAGEA = _PROPSHEETPAGEA;
  163.   {$EXTERNALSYM PROPSHEETPAGEA}
  164.   LPPROPSHEETPAGEA = ^PROPSHEETPAGEA;
  165.   {$EXTERNALSYM LPPROPSHEETPAGEA}
  166.   LPCPROPSHEETPAGEA = LPPROPSHEETPAGEA;
  167.   {$EXTERNALSYM LPCPROPSHEETPAGEA}
  168.   TPropSheetPageA = PROPSHEETPAGEA;
  169.   PPropSheetPageA = LPPROPSHEETPAGEA;
  171.   _PROPSHEETPAGEW = record
  172.     dwSize: DWORD;
  173.     dwFlags: DWORD;
  174.     hInstance: HINSTANCE;
  175.     u: record
  176.     case Integer of
  177.       0: (pszTemplate: LPCWSTR);
  178.       1: (pResource: LPCDLGTEMPLATE);
  179.     end;
  180.     u2: record
  181.     case Integer of
  182.       0: (hIcon: HICON);
  183.       1: (pszIcon: LPCWSTR);
  184.     end;
  185.     pszTitle: LPCWSTR;
  186.     pfnDlgProc: DLGPROC;
  187.     lParam: LPARAM;
  188.     pfnCallback: LPFNPSPCALLBACKW;
  189.     pcRefParent: LPUINT;
  190.     {$IFDEF _WIN32_IE_GE_0x0400}
  191.     pszHeaderTitle: LPCWSTR;    // this is displayed in the header
  192.     pszHeaderSubTitle: LPCWSTR; //
  193.     {$ENDIF}
  194.   end;
  195.   {$EXTERNALSYM _PROPSHEETPAGEW}
  196.   PROPSHEETPAGEW = _PROPSHEETPAGEW;
  197.   {$EXTERNALSYM PROPSHEETPAGEW}
  198.   LPPROPSHEETPAGEW = ^PROPSHEETPAGEW;
  199.   {$EXTERNALSYM LPPROPSHEETPAGEW}
  200.   LPCPROPSHEETPAGEW = LPPROPSHEETPAGEW;
  201.   {$EXTERNALSYM LPCPROPSHEETPAGEW}
  202.   TPropSheetPageW = PROPSHEETPAGEW;
  203.   PPropSheetPageW = LPPROPSHEETPAGEW;
  205. {$IFDEF UNICODE}
  206.   PROPSHEETPAGE          = PROPSHEETPAGEW;
  207.   {$EXTERNALSYM PROPSHEETPAGE}
  208.   LPPROPSHEETPAGE        = LPPROPSHEETPAGEW;
  209.   {$EXTERNALSYM LPPROPSHEETPAGE}
  210.   LPCPROPSHEETPAGE       = LPCPROPSHEETPAGEW;
  211.   {$EXTERNALSYM LPCPROPSHEETPAGE}
  212.   TPropSheetPage = TPropSheetPageW;
  213.   PPropSheetPage = PPropSheetPageW;
  214.   
  215. const
  216.   PROPSHEETPAGE_V1_SIZE  = 40; {PROPSHEETPAGEW_V1_SIZE}
  217.   {$EXTERNALSYM PROPSHEETPAGE_V1_SIZE}
  218. {$ELSE}
  219.   PROPSHEETPAGE          = PROPSHEETPAGEA;
  220.   {$EXTERNALSYM PROPSHEETPAGE}
  221.   LPPROPSHEETPAGE        = LPPROPSHEETPAGEA;
  222.   {$EXTERNALSYM LPPROPSHEETPAGE}
  223.   LPCPROPSHEETPAGE       = LPCPROPSHEETPAGEA;
  224.   {$EXTERNALSYM LPCPROPSHEETPAGE}
  225.   TPropSheetPage = TPropSheetPageA;
  226.   PPropSheetPage = PPropSheetPageA;
  228. const
  229.   PROPSHEETPAGE_V1_SIZE  = 40; {PROPSHEETPAGEA_V1_SIZE}
  230.   {$EXTERNALSYM PROPSHEETPAGE_V1_SIZE}
  231. {$ENDIF}
  233. const
  234.   PSH_DEFAULT            = $00000000;
  235.   {$EXTERNALSYM PSH_DEFAULT}
  236.   PSH_PROPTITLE          = $00000001;
  237.   {$EXTERNALSYM PSH_PROPTITLE}
  238.   PSH_USEHICON           = $00000002;
  239.   {$EXTERNALSYM PSH_USEHICON}
  240.   PSH_USEICONID          = $00000004;
  241.   {$EXTERNALSYM PSH_USEICONID}
  242.   PSH_PROPSHEETPAGE      = $00000008;
  243.   {$EXTERNALSYM PSH_PROPSHEETPAGE}
  244.   PSH_WIZARDHASFINISH    = $00000010;
  245.   {$EXTERNALSYM PSH_WIZARDHASFINISH}
  246.   PSH_WIZARD             = $00000020;
  247.   {$EXTERNALSYM PSH_WIZARD}
  248.   PSH_USEPSTARTPAGE      = $00000040;
  249.   {$EXTERNALSYM PSH_USEPSTARTPAGE}
  250.   PSH_NOAPPLYNOW         = $00000080;
  251.   {$EXTERNALSYM PSH_NOAPPLYNOW}
  252.   PSH_USECALLBACK        = $00000100;
  253.   {$EXTERNALSYM PSH_USECALLBACK}
  254.   PSH_HASHELP            = $00000200;
  255.   {$EXTERNALSYM PSH_HASHELP}
  256.   PSH_MODELESS           = $00000400;
  257.   {$EXTERNALSYM PSH_MODELESS}
  258.   PSH_RTLREADING         = $00000800;
  259.   {$EXTERNALSYM PSH_RTLREADING}
  260.   PSH_WIZARDCONTEXTHELP  = $00001000;
  261.   {$EXTERNALSYM PSH_WIZARDCONTEXTHELP}
  263. //----- New flags for wizard97 -----------
  265. {$IFDEF _WIN32_IE_SMALLER_0500}
  266.   PSH_WIZARD97           = $00002000;
  267.   {$EXTERNALSYM PSH_WIZARD97}
  268. {$ELSE}
  269.   PSH_WIZARD97           = $01000000;
  270.   {$EXTERNALSYM PSH_WIZARD97}
  271. {$ENDIF}
  273. // 0x00004000 was not used by any previous release
  275.   PSH_WATERMARK          = $00008000;
  276.   {$EXTERNALSYM PSH_WATERMARK}
  277.   PSH_USEHBMWATERMARK    = $00010000;  // user pass in a hbmWatermark instead of pszbmWatermark
  278.   {$EXTERNALSYM PSH_USEHBMWATERMARK}
  279.   PSH_USEHPLWATERMARK    = $00020000;  //
  280.   {$EXTERNALSYM PSH_USEHPLWATERMARK}
  281.   PSH_STRETCHWATERMARK   = $00040000;  // stretchwatermark also applies for the header
  282.   {$EXTERNALSYM PSH_STRETCHWATERMARK}
  283.   PSH_HEADER             = $00080000;
  284.   {$EXTERNALSYM PSH_HEADER}
  285.   PSH_USEHBMHEADER       = $00100000;
  286.   {$EXTERNALSYM PSH_USEHBMHEADER}
  287.   PSH_USEPAGELANG        = $00200000;  // use frame dialog template matched to page
  288.   {$EXTERNALSYM PSH_USEPAGELANG}
  290. //----------------------------------------
  292. //----- New flags for wizard-lite --------
  294.  PSH_WIZARD_LITE        = $00400000;
  295.  {$EXTERNALSYM PSH_WIZARD_LITE}
  296.  PSH_NOCONTEXTHELP      = $02000000;
  297.  {$EXTERNALSYM PSH_NOCONTEXTHELP}
  299. //----------------------------------------
  301. type
  302.   PFNPROPSHEETCALLBACK = function (hwn: HWND; uMsg: UINT; lParam: LPARAM): Integer; stdcall;
  303.   {$EXTERNALSYM PFNPROPSHEETCALLBACK}
  305. //const
  306. //#define PROPSHEETHEADERA_V1_SIZE CCSIZEOF_STRUCT(PROPSHEETHEADERA, pfnCallback)
  307. //#define PROPSHEETHEADERW_V1_SIZE CCSIZEOF_STRUCT(PROPSHEETHEADERW, pfnCallback)
  309. type
  310.   _PROPSHEETHEADERA = record
  311.     dwSize: DWORD;
  312.     dwFlags: DWORD;
  313.     hwndParent: HWND;
  314.     hInstance: HINSTANCE;
  315.     u: record
  316.     case Integer of
  317.       0: (hIcon: HICON);
  318.       1: (pszIcon: LPCSTR);
  319.     end;
  320.     pszCaption: LPCSTR;
  321.     nPages: UINT;
  322.     u2: record
  323.     case Integer of
  324.       0: (nStartPage: UINT);
  325.       1: (pStartPage: LPCSTR);
  326.     end;
  327.     u3: record
  328.     case Integer of
  329.       0: (ppsp: LPCPROPSHEETPAGEA);
  330.       1: (phpage: PHPROPSHEETPAGE);
  331.     end;
  332.     pfnCallback: PFNPROPSHEETCALLBACK;
  333.     {$IFDEF _WIN32_IE_GE_0x0400}
  334.     u4: record
  335.     case Integer of
  336.       0: (hbmWatermark: HBITMAP);
  337.       1: (pszbmWatermark: LPCSTR);
  338.     end;
  339.     hplWatermark: HPALETTE;
  340.     u5: record
  341.     case Integer of
  342.       0: (hbmHeader: HBITMAP);     // Header  bitmap shares the palette with watermark
  343.       1: (pszbmHeader: LPCSTR);
  344.     end;
  345.     {$ENDIF}
  346.   end;
  347.   {$EXTERNALSYM _PROPSHEETHEADERA}
  348.   PROPSHEETHEADERA =_PROPSHEETHEADERA;
  349.   {$EXTERNALSYM PROPSHEETHEADERA}
  350.   LPPROPSHEETHEADERA = ^PROPSHEETHEADERA;
  351.   {$EXTERNALSYM LPPROPSHEETHEADERA}
  352.   LPCPROPSHEETHEADERA = LPPROPSHEETHEADERA;
  353.   {$EXTERNALSYM LPCPROPSHEETHEADERA}
  354.   TPropSheetHeaderA = PROPSHEETHEADERA;
  355.   PPropSheetHeaderA = LPPROPSHEETHEADERA;
  357.   _PROPSHEETHEADERW = record
  358.     dwSize: DWORD;
  359.     dwFlags: DWORD;
  360.     hwndParent: HWND;
  361.     hInstance: HINSTANCE;
  362.     u: record
  363.     case Integer of
  364.       0: (hIcon: HICON);
  365.       1: (pszIcon: LPCWSTR);
  366.     end;
  367.     pszCaption: LPCWSTR;
  368.     nPages: UINT;
  369.     u2: record
  370.     case Integer of
  371.       0: (nStartPage: UINT);
  372.       1: (pStartPage: LPCWSTR);
  373.     end;
  374.     u3: record
  375.     case Integer of
  376.       0: (ppsp: LPCPROPSHEETPAGEW);
  377.       1: (phpage: PHPROPSHEETPAGE);
  378.     end;
  379.     pfnCallback: PFNPROPSHEETCALLBACK;
  380.     {$IFDEF _WIN32_IE_GE_0x0400}
  381.     u4: record
  382.     case Integer of
  383.       0: (hbmWatermark: HBITMAP);
  384.       1: (pszbmWatermark: LPCWSTR);
  385.     end;
  386.     hplWatermark: HPALETTE;
  387.     u5: record
  388.     case Integer of
  389.       0: (hbmHeader: HBITMAP);     // Header  bitmap shares the palette with watermark
  390.       1: (pszbmHeader: LPCWSTR);
  391.     end;
  392.     {$ENDIF}
  393.   end;
  394.   {$EXTERNALSYM _PROPSHEETHEADERW}
  395.   PROPSHEETHEADERW =_PROPSHEETHEADERW;
  396.   {$EXTERNALSYM PROPSHEETHEADERW}
  397.   LPPROPSHEETHEADERW = ^PROPSHEETHEADERW;
  398.   {$EXTERNALSYM LPPROPSHEETHEADERW}
  399.   LPCPROPSHEETHEADERW = LPPROPSHEETHEADERW;
  400.   {$EXTERNALSYM LPCPROPSHEETHEADERW}
  401.   TPropSheetHeaderW = PROPSHEETHEADERW;
  402.   PPropSheetHeaderW = LPPROPSHEETHEADERW;
  404. {$IFDEF UNICODE}
  405.   PROPSHEETHEADER         = PROPSHEETHEADERW;
  406.   {$EXTERNALSYM PROPSHEETHEADER}
  407.   LPPROPSHEETHEADER       = LPPROPSHEETHEADERW;
  408.   {$EXTERNALSYM LPPROPSHEETHEADER}
  409.   LPCPROPSHEETHEADER      = LPCPROPSHEETHEADERW;
  410.   {$EXTERNALSYM LPCPROPSHEETHEADER}
  411.   TPropSheetHeader = TPropSheetHeaderW;
  412.   PPropSheetHeader = PPropSheetHeaderW;
  414. const
  415.   PROPSHEETHEADER_V1_SIZE = 40; {PROPSHEETHEADERW_V1_SIZE}
  416.   {$EXTERNALSYM PROPSHEETHEADER_V1_SIZE}
  417. {$ELSE}
  418.   PROPSHEETHEADER         = PROPSHEETHEADERA;
  419.   {$EXTERNALSYM PROPSHEETHEADER}
  420.   LPPROPSHEETHEADER       = LPPROPSHEETHEADERA;
  421.   {$EXTERNALSYM LPPROPSHEETHEADER}
  422.   LPCPROPSHEETHEADER      = LPCPROPSHEETHEADERA;
  423.   {$EXTERNALSYM LPCPROPSHEETHEADER}
  424.   TPropSheetHeader = TPropSheetHeaderA;
  425.   PPropSheetHeader = PPropSheetHeaderA;
  427. const
  428.   PROPSHEETHEADER_V1_SIZE = 40; {PROPSHEETHEADERA_V1_SIZE;}
  429.   {$EXTERNALSYM PROPSHEETHEADER_V1_SIZE}
  430. {$ENDIF}
  432. const
  433.   PSCB_INITIALIZED = 1;
  434.   {$EXTERNALSYM PSCB_INITIALIZED}
  435.   PSCB_PRECREATE   = 2;
  436.   {$EXTERNALSYM PSCB_PRECREATE}
  438. function CreatePropertySheetPageA(const lppsp: PROPSHEETPAGEA): HPROPSHEETPAGE; stdcall;
  439. {$EXTERNALSYM CreatePropertySheetPageA}
  440. function CreatePropertySheetPageW(const lppsp: PROPSHEETPAGEW): HPROPSHEETPAGE; stdcall;
  441. {$EXTERNALSYM DestroyPropertySheetPage}
  442. function DestroyPropertySheetPage(hPSPage: HPROPSHEETPAGE): BOOL; stdcall;
  443. {$EXTERNALSYM DestroyPropertySheetPage}
  444. function PropertySheetA(const lppsph: PROPSHEETHEADERA): INT_PTR; stdcall;
  445. {$EXTERNALSYM PropertySheetA}
  446. function PropertySheetW(const lppsph: PROPSHEETHEADERW): INT_PTR; stdcall;
  447. {$EXTERNALSYM PropertySheetW}
  449. {$IFDEF UNICODE}
  450. function CreatePropertySheetPage(const lppsp: PROPSHEETPAGEW): HPROPSHEETPAGE; stdcall;
  451. {$EXTERNALSYM DestroyPropertySheetPage}
  452. function PropertySheet(const lppsph: PROPSHEETHEADERW): INT_PTR; stdcall;
  453. {$EXTERNALSYM PropertySheet}
  454. {$ELSE}
  455. function CreatePropertySheetPage(const lppsp: PROPSHEETPAGEA): HPROPSHEETPAGE; stdcall;
  456. {$EXTERNALSYM CreatePropertySheetPage}
  457. function PropertySheet(const lppsph: PROPSHEETHEADERA): INT_PTR; stdcall;
  458. {$EXTERNALSYM PropertySheet}
  459. {$ENDIF}
  461. type
  462.   LPFNADDPROPSHEETPAGE = function (page: HPROPSHEETPAGE; lParam: LPARAM): BOOL; stdcall;
  463.   {$EXTERNALSYM LPFNADDPROPSHEETPAGE}
  464.   LPFNADDPROPSHEETPAGES = function (pv: LPVOID; fn: LPFNADDPROPSHEETPAGE; lParam: LPARAM): BOOL; stdcall;
  465.   {$EXTERNALSYM LPFNADDPROPSHEETPAGES}
  467.   _PSHNOTIFY = record
  468.     hdr: NMHDR;
  469.     lParam: LPARAM;
  470.   end;
  471.   {$EXTERNALSYM _PSHNOTIFY}
  472.   PSHNOTIFY = _PSHNOTIFY;
  473.   {$EXTERNALSYM PSHNOTIFY}
  474.   LPPSHNOTIFY = ^PSHNOTIFY;
  475.   {$EXTERNALSYM LPPSHNOTIFY}
  476.   TPSHNotify = PSHNOTIFY;
  477.   PPSHNotify = LPPSHNOTIFY;  
  479. const
  480.   PSN_FIRST              = ULONG(0-200);
  481.   {$EXTERNALSYM PSN_FIRST}
  482.   PSN_LAST               = ULONG(0-299);
  483.   {$EXTERNALSYM PSN_LAST}
  485.   PSN_SETACTIVE   = (PSN_FIRST-0);
  486.   {$EXTERNALSYM PSN_SETACTIVE}
  487.   PSN_KILLACTIVE  = (PSN_FIRST-1);
  488.   {$EXTERNALSYM PSN_KILLACTIVE}
  489.   //PSN_VALIDATE    = (PSN_FIRST-1);
  490.   //{$EXTERNALSYM PSN_VALIDATE}
  491.   PSN_APPLY       = (PSN_FIRST-2);
  492.   {$EXTERNALSYM PSN_APPLY}
  493.   PSN_RESET       = (PSN_FIRST-3);
  494.   {$EXTERNALSYM PSN_RESET}
  495.   //PSN_CANCEL      = (PSN_FIRST-3);
  496.   //{$EXTERNALSYM PSN_CANCEL}
  497.   PSN_HELP        = (PSN_FIRST-5);
  498.   {$EXTERNALSYM PSN_HELP}
  499.   PSN_WIZBACK     = (PSN_FIRST-6);
  500.   {$EXTERNALSYM PSN_WIZBACK}
  501.   PSN_WIZNEXT     = (PSN_FIRST-7);
  502.   {$EXTERNALSYM PSN_WIZNEXT}
  503.   PSN_WIZFINISH   = (PSN_FIRST-8);
  504.   {$EXTERNALSYM PSN_WIZFINISH}
  505.   PSN_QUERYCANCEL = (PSN_FIRST-9);
  506.   {$EXTERNALSYM PSN_QUERYCANCEL}
  507.   PSN_GETOBJECT = (PSN_FIRST-10);
  508.   {$EXTERNALSYM PSN_GETOBJECT}
  509.   PSN_TRANSLATEACCELERATOR = (PSN_FIRST-12);
  510.   {$EXTERNALSYM PSN_TRANSLATEACCELERATOR}
  511.   PSN_QUERYINITIALFOCUS    = (PSN_FIRST-13);
  512.   {$EXTERNALSYM PSN_QUERYINITIALFOCUS}
  514.   PSNRET_NOERROR              = 0;
  515.   {$EXTERNALSYM PSNRET_NOERROR}
  516.   PSNRET_INVALID              = 1;
  517.   {$EXTERNALSYM PSNRET_INVALID}
  518.   PSNRET_INVALID_NOCHANGEPAGE = 2;
  519.   {$EXTERNALSYM PSNRET_INVALID_NOCHANGEPAGE}
  520.   PSNRET_MESSAGEHANDLED       = 3;
  521.   {$EXTERNALSYM PSNRET_MESSAGEHANDLED}
  523.   PSM_SETCURSEL = (WM_USER + 101);
  524.   {$EXTERNALSYM PSM_SETCURSEL}
  526. function PropSheet_SetCurSel(hPropSheetDlg: HWND; hPage: HPROPSHEETPAGE; Index: Integer): BOOL;
  528. const
  529.   PSM_REMOVEPAGE = (WM_USER + 102);
  530.   {$EXTERNALSYM PSM_REMOVEPAGE}
  532. procedure PropSheet_RemovePage(hPropSheetDlg: HWND; Index: Integer; hPage: HPROPSHEETPAGE);
  534. const
  535.   PSM_ADDPAGE = (WM_USER + 103);
  536.   {$EXTERNALSYM PSM_ADDPAGE}
  538. function PropSheet_AddPage(hPropSheetDlg: HWND; hpage: HPROPSHEETPAGE): BOOL;
  540. const
  541.   PSM_CHANGED = (WM_USER + 104);
  542.   {$EXTERNALSYM PSM_CHANGED}
  544. function PropSheet_Changed(hPropSheetDlg: HWND; hwndPage: HWND): BOOL;
  546. const
  547.   PSM_RESTARTWINDOWS = (WM_USER + 105);
  548.   {$EXTERNALSYM PSM_RESTARTWINDOWS}
  550. procedure PropSheet_RestartWindows(hPropSheetDlg: HWND);
  552. const
  553.   PSM_REBOOTSYSTEM = (WM_USER + 106);
  554.   {$EXTERNALSYM PSM_REBOOTSYSTEM}
  556. procedure PropSheet_RebootSystem(hPropSheetDlg: HWND);
  558. const
  559.   PSM_CANCELTOCLOSE = (WM_USER + 107);
  560.   {$EXTERNALSYM PSM_CANCELTOCLOSE}
  562. procedure PropSheet_CancelToClose(hPropSheetDlg: HWND);
  564. const
  565.   PSM_QUERYSIBLINGS = (WM_USER + 108);
  566.   {$EXTERNALSYM PSM_QUERYSIBLINGS}
  568. function PropSheet_QuerySiblings(hPropSheetDlg: HWND; Param1: WPARAM; Param2: LPARAM): Integer;
  570. const
  571.   PSM_UNCHANGED = (WM_USER + 109);
  572.   {$EXTERNALSYM PSM_UNCHANGED}
  574. procedure PropSheet_UnChanged(hPropSheetDlg: HWND; hwndPage: HWND);
  576. const
  577.   PSM_APPLY = (WM_USER + 110);
  578.   {$EXTERNALSYM PSM_APPLY}
  580. function PropSheet_Apply(hPropSheetDlg: HWND): BOOL;
  582. const
  583.   PSM_SETTITLEA = (WM_USER + 111);
  584.   {$EXTERNALSYM PSM_SETTITLEA}
  585.   PSM_SETTITLEW = (WM_USER + 120);
  586.   {$EXTERNALSYM PSM_SETTITLEW}
  588. {$IFDEF UNICODE}
  589.   PSM_SETTITLE = PSM_SETTITLEW;
  590.   {$EXTERNALSYM PSM_SETTITLE}
  591. {$ELSE}
  592.   PSM_SETTITLE = PSM_SETTITLEA;
  593.   {$EXTERNALSYM PSM_SETTITLE}
  594. {$ENDIF}
  596. procedure PropSheet_SetTitle(hPropSheetDlg: HWND; dwStyle: DWORD; lpszText: LPTSTR);
  598. const
  599.   PSM_SETWIZBUTTONS = (WM_USER + 112);
  600.   {$EXTERNALSYM PSM_SETWIZBUTTONS}
  602. procedure PropSheet_SetWizButtons(hPropSheetDlg: HWND; dwFlags: DWORD);
  604. const
  605.   PSWIZB_BACK           = $00000001;
  606.   {$EXTERNALSYM PSWIZB_BACK}
  607.   PSWIZB_NEXT           = $00000002;
  608.   {$EXTERNALSYM PSWIZB_NEXT}
  609.   PSWIZB_FINISH         = $00000004;
  610.   {$EXTERNALSYM PSWIZB_FINISH}
  611.   PSWIZB_DISABLEDFINISH = $00000008;
  612.   {$EXTERNALSYM PSWIZB_DISABLEDFINISH}
  614.   PSM_PRESSBUTTON = (WM_USER + 113);
  615.   {$EXTERNALSYM PSM_PRESSBUTTON}
  617. function PropSheet_PressButton(hPropSheetDlg: HWND; iButton: Integer): BOOL;
  619. const
  620.   PSBTN_BACK     = 0;
  621.   {$EXTERNALSYM PSBTN_BACK}
  622.   PSBTN_NEXT     = 1;
  623.   {$EXTERNALSYM PSBTN_NEXT}
  624.   PSBTN_FINISH   = 2;
  625.   {$EXTERNALSYM PSBTN_FINISH}
  626.   PSBTN_OK       = 3;
  627.   {$EXTERNALSYM PSBTN_OK}
  628.   PSBTN_APPLYNOW = 4;
  629.   {$EXTERNALSYM PSBTN_APPLYNOW}
  630.   PSBTN_CANCEL   = 5;
  631.   {$EXTERNALSYM PSBTN_CANCEL}
  632.   PSBTN_HELP     = 6;
  633.   {$EXTERNALSYM PSBTN_HELP}
  634.   PSBTN_MAX      = 6;
  635.   {$EXTERNALSYM PSBTN_MAX}
  637.   PSM_SETCURSELID = (WM_USER + 114);
  638.   {$EXTERNALSYM PSM_SETCURSELID}
  640. function PropSheet_SetCurSelByID(hPropSheetDlg: HWND; id: Integer): BOOL;
  642. const
  643.   PSM_SETFINISHTEXTA = (WM_USER + 115);
  644.   {$EXTERNALSYM PSM_SETFINISHTEXTA}
  645.   PSM_SETFINISHTEXTW = (WM_USER + 121);
  646.   {$EXTERNALSYM PSM_SETFINISHTEXTW}
  648. {$IFDEF UNICODE}
  649.   PSM_SETFINISHTEXT = PSM_SETFINISHTEXTW;
  650.   {$EXTERNALSYM PSM_SETFINISHTEXT}
  651. {$ELSE}
  652.   PSM_SETFINISHTEXT = PSM_SETFINISHTEXTA;
  653.   {$EXTERNALSYM PSM_SETFINISHTEXT}
  654. {$ENDIF}
  656. procedure PropSheet_SetFinishText(hPropSheetDlg: HWND; lpszText: LPTSTR);
  658. const
  659.   PSM_GETTABCONTROL = (WM_USER + 116);
  660.   {$EXTERNALSYM PSM_GETTABCONTROL}
  662. function PropSheet_GetTabControl(hPropSheetDlg: HWND): HWND;
  664. const
  665.   PSM_ISDIALOGMESSAGE = (WM_USER + 117);
  666.   {$EXTERNALSYM PSM_ISDIALOGMESSAGE}
  668. function PropSheet_IsDialogMessage(hDlg: HWND; pMsg: LPMSG): BOOL;
  670. const
  671.   PSM_GETCURRENTPAGEHWND = (WM_USER + 118);
  672.   {$EXTERNALSYM PSM_GETCURRENTPAGEHWND}
  674. function PropSheet_GetCurrentPageHwnd(hDlg: HWND): HWND;
  676. const
  677.   PSM_INSERTPAGE = (WM_USER + 119);
  678.   {$EXTERNALSYM PSM_INSERTPAGE}
  680. function PropSheet_InsertPage(hPropSheetDlg: HWND; index: Integer; hpage: HPROPSHEETPAGE): BOOL;
  682. const
  683.   PSM_SETHEADERTITLEA = (WM_USER + 125);
  684.   {$EXTERNALSYM PSM_SETHEADERTITLEA}
  685.   PSM_SETHEADERTITLEW = (WM_USER + 126);
  686.   {$EXTERNALSYM PSM_SETHEADERTITLEW}
  688. {$IFDEF UNICODE}
  689.   PSM_SETHEADERTITLE = PSM_SETHEADERTITLEW;
  690.   {$EXTERNALSYM PSM_SETHEADERTITLE}
  691. {$ELSE}
  692.   PSM_SETHEADERTITLE = PSM_SETHEADERTITLEA;
  693.   {$EXTERNALSYM PSM_SETHEADERTITLE}
  694. {$ENDIF}
  696. function PropSheet_SetHeaderTitle(hWizardDlg: HWND; iPageIndex: Integer; lpszText: LPCSTR): Integer;
  698. const
  699.   PSM_SETHEADERSUBTITLEA = (WM_USER + 127);
  700.   {$EXTERNALSYM PSM_SETHEADERSUBTITLEA}
  701.   PSM_SETHEADERSUBTITLEW = (WM_USER + 128);
  702.   {$EXTERNALSYM PSM_SETHEADERSUBTITLEW}
  704. {$IFDEF UNICODE}
  705.   PSM_SETHEADERSUBTITLE = PSM_SETHEADERSUBTITLEW;
  706.   {$EXTERNALSYM PSM_SETHEADERSUBTITLE}
  707. {$ELSE}
  708.   PSM_SETHEADERSUBTITLE = PSM_SETHEADERSUBTITLEA;
  709.   {$EXTERNALSYM PSM_SETHEADERSUBTITLE}
  710. {$ENDIF}
  712. procedure PropSheet_SetHeaderSubTitle(hWizardDlg: HWND; iPageIndex: Integer; pszHeaderSubTitle: LPCSTR);
  714. const
  715.   PSM_HWNDTOINDEX = (WM_USER + 129);
  716.   {$EXTERNALSYM PSM_HWNDTOINDEX}
  718. function PropSheet_HwndToIndex(hPropSheetDlg: HWND; hPageDlg: HWND): Integer;
  720. const
  721.   PSM_INDEXTOHWND = (WM_USER + 130);
  722.   {$EXTERNALSYM PSM_INDEXTOHWND}
  724. function PropSheet_IndexToHwnd(hPropSheetDlg: HWND; iPageIndex: Integer): HWND;
  726. const
  727.   PSM_PAGETOINDEX = (WM_USER + 131);
  728.   {$EXTERNALSYM PSM_PAGETOINDEX}
  730. function PropSheet_PageToIndex(hPropSheetDlg: HWND; hPage: HPROPSHEETPAGE): Integer;
  732. const
  733.   PSM_INDEXTOPAGE = (WM_USER + 132);
  734.   {$EXTERNALSYM PSM_INDEXTOPAGE}
  736. function PropSheet_IndexToPage(hPropSheetDlg: HWND; iPageIndex: Integer): HPROPSHEETPAGE;
  738. const
  739.   PSM_IDTOINDEX = (WM_USER + 133);
  740.   {$EXTERNALSYM PSM_IDTOINDEX}
  742. function PropSheet_IdToIndex(hPropSheetDlg: HWND; iPageId: Integer): Integer;
  744. const
  745.   PSM_INDEXTOID = (WM_USER + 134);
  746.   {$EXTERNALSYM PSM_INDEXTOID}
  748. function PropSheet_IndexToId(hPropSheetDlg: HWND; iPageIndex: Integer): Integer;
  750. const
  751.   PSM_GETRESULT = (WM_USER + 135);
  752.   {$EXTERNALSYM PSM_GETRESULT}
  754. function PropSheet_GetResult(hPropSheetDlg: HWND): BOOL;
  756. const
  757.   PSM_RECALCPAGESIZES = (WM_USER + 136);
  758.   {$EXTERNALSYM PSM_RECALCPAGESIZES}
  760. function PropSheet_RecalcPageSizes(hPropSheetDlg: HWND): BOOL;
  762. const
  763.   ID_PSRESTARTWINDOWS = $2;
  764.   {$EXTERNALSYM ID_PSRESTARTWINDOWS}
  766.   ID_PSREBOOTSYSTEM   = (ID_PSRESTARTWINDOWS or $1);
  767.   {$EXTERNALSYM ID_PSREBOOTSYSTEM}
  769.   WIZ_CXDLG = 276;
  770.   {$EXTERNALSYM WIZ_CXDLG}
  771.   WIZ_CYDLG = 140;
  772.   {$EXTERNALSYM WIZ_CYDLG}
  774.   WIZ_CXBMP = 80;
  775.   {$EXTERNALSYM WIZ_CXBMP}
  777.   WIZ_BODYX  = 92;
  778.   {$EXTERNALSYM WIZ_BODYX}
  779.   WIZ_BODYCX = 184;
  780.   {$EXTERNALSYM WIZ_BODYCX}
  782.   PROP_SM_CXDLG = 212;
  783.   {$EXTERNALSYM PROP_SM_CXDLG}
  784.   PROP_SM_CYDLG = 188;
  785.   {$EXTERNALSYM PROP_SM_CYDLG}
  787.   PROP_MED_CXDLG = 227;
  788.   {$EXTERNALSYM PROP_MED_CXDLG}
  789.   PROP_MED_CYDLG = 215;
  790.   {$EXTERNALSYM PROP_MED_CYDLG}
  792.   PROP_LG_CXDLG = 252;
  793.   {$EXTERNALSYM PROP_LG_CXDLG}
  794.   PROP_LG_CYDLG = 218;
  795.   {$EXTERNALSYM PROP_LG_CYDLG}
  797. implementation
  799. const
  800.   comctl32 = 'comctl32.dll';
  803. {$IFDEF DYNAMIC_LINK}
  804. var
  805.   _CreatePropertySheetPageA: Pointer;
  807. function CreatePropertySheetPageA;
  808. begin
  809.   GetProcedureAddress(_CreatePropertySheetPageA, comctl32, 'CreatePropertySheetPageA');
  810.   asm
  811.     mov esp, ebp
  812.     pop ebp
  813.     jmp [_CreatePropertySheetPageA]
  814.   end;
  815. end;
  816. {$ELSE}
  817. function CreatePropertySheetPageA; external comctl32 name 'CreatePropertySheetPageA';
  818. {$ENDIF DYNAMIC_LINK}
  820. {$IFDEF DYNAMIC_LINK}
  821. var
  822.   _CreatePropertySheetPageW: Pointer;
  824. function CreatePropertySheetPageW;
  825. begin
  826.   GetProcedureAddress(_CreatePropertySheetPageW, comctl32, 'CreatePropertySheetPageW');
  827.   asm
  828.     mov esp, ebp
  829.     pop ebp
  830.     jmp [_CreatePropertySheetPageW]
  831.   end;
  832. end;
  833. {$ELSE}
  834. function CreatePropertySheetPageW; external comctl32 name 'CreatePropertySheetPageW';
  835. {$ENDIF DYNAMIC_LINK}
  837. {$IFDEF DYNAMIC_LINK}
  838. var
  839.   _DestroyPropertySheetPage: Pointer;
  841. function DestroyPropertySheetPage;
  842. begin
  843.   GetProcedureAddress(_DestroyPropertySheetPage, comctl32, 'DestroyPropertySheetPage');
  844.   asm
  845.     mov esp, ebp
  846.     pop ebp
  847.     jmp [_DestroyPropertySheetPage]
  848.   end;
  849. end;
  850. {$ELSE}
  851. function DestroyPropertySheetPage; external comctl32 name 'DestroyPropertySheetPage';
  852. {$ENDIF DYNAMIC_LINK}
  854. {$IFDEF DYNAMIC_LINK}
  855. var
  856.   _PropertySheetA: Pointer;
  858. function PropertySheetA;
  859. begin
  860.   GetProcedureAddress(_PropertySheetA, comctl32, 'PropertySheetA');
  861.   asm
  862.     mov esp, ebp
  863.     pop ebp
  864.     jmp [_PropertySheetA]
  865.   end;
  866. end;
  867. {$ELSE}
  868. function PropertySheetA; external comctl32 name 'PropertySheetA';
  869. {$ENDIF DYNAMIC_LINK}
  871. {$IFDEF DYNAMIC_LINK}
  872. var
  873.   _PropertySheetW: Pointer;
  875. function PropertySheetW;
  876. begin
  877.   GetProcedureAddress(_PropertySheetW, comctl32, 'PropertySheetW');
  878.   asm
  879.     mov esp, ebp
  880.     pop ebp
  881.     jmp [_PropertySheetW]
  882.   end;
  883. end;
  884. {$ELSE}
  885. function PropertySheetW; external comctl32 name 'PropertySheetW';
  886. {$ENDIF DYNAMIC_LINK}
  888. {$IFDEF UNICODE}
  890. {$IFDEF DYNAMIC_LINK}
  891. var
  892.   _CreatePropertySheetPage: Pointer;
  894. function CreatePropertySheetPage;
  895. begin
  896.   GetProcedureAddress(_CreatePropertySheetPage, comctl32, 'CreatePropertySheetPageW');
  897.   asm
  898.     mov esp, ebp
  899.     pop ebp
  900.     jmp [_CreatePropertySheetPage]
  901.   end;
  902. end;
  903. {$ELSE}
  904. function CreatePropertySheetPage; external comctl32 name 'CreatePropertySheetPageW';
  905. {$ENDIF DYNAMIC_LINK}
  907. {$IFDEF DYNAMIC_LINK}
  908. var
  909.   _PropertySheet: Pointer;
  911. function PropertySheet;
  912. begin
  913.   GetProcedureAddress(_PropertySheet, comctl32, 'PropertySheetW');
  914.   asm
  915.     mov esp, ebp
  916.     pop ebp
  917.     jmp [_PropertySheet]
  918.   end;
  919. end;
  920. {$ELSE}
  921. function PropertySheet; external comctl32 name 'PropertySheetW';
  922. {$ENDIF DYNAMIC_LINK}
  923. {$ELSE}
  925. {$IFDEF DYNAMIC_LINK}
  926. var
  927.   _CreatePropertySheetPage: Pointer;
  929. function CreatePropertySheetPage;
  930. begin
  931.   GetProcedureAddress(_CreatePropertySheetPage, comctl32, 'CreatePropertySheetPageA');
  932.   asm
  933.     mov esp, ebp
  934.     pop ebp
  935.     jmp [_CreatePropertySheetPage]
  936.   end;
  937. end;
  938. {$ELSE}
  939. function CreatePropertySheetPage; external comctl32 name 'CreatePropertySheetPageA';
  940. {$ENDIF DYNAMIC_LINK}
  942. {$IFDEF DYNAMIC_LINK}
  943. var
  944.   _PropertySheet: Pointer;
  946. function PropertySheet;
  947. begin
  948.   GetProcedureAddress(_PropertySheet, comctl32, 'PropertySheetA');
  949.   asm
  950.     mov esp, ebp
  951.     pop ebp
  952.     jmp [_PropertySheet]
  953.   end;
  954. end;
  955. {$ELSE}
  956. function PropertySheet; external comctl32 name 'PropertySheetA';
  957. {$ENDIF DYNAMIC_LINK}
  958. {$ENDIF}
  960. function PropSheet_SetCurSel(hPropSheetDlg: HWND; hPage: HPROPSHEETPAGE; Index: Integer): BOOL;
  961. begin
  962.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_SETCURSEL, WPARAM(Index), LPARAM(hPage)));
  963. end;
  965. procedure PropSheet_RemovePage(hPropSheetDlg: HWND; Index: Integer; hPage: HPROPSHEETPAGE);
  966. begin
  967.   SendMessage(hPropSheetDlg, PSM_REMOVEPAGE, Index, LPARAM(hPage));
  968. end;
  970. function PropSheet_AddPage(hPropSheetDlg: HWND; hpage: HPROPSHEETPAGE): BOOL;
  971. begin
  972.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_ADDPAGE, 0, LPARAM(hpage)));
  973. end;
  975. function PropSheet_Changed(hPropSheetDlg: HWND; hwndPage: HWND): BOOL;
  976. begin
  977.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_CHANGED, WPARAM(hwndPage), 0));
  978. end;
  980. procedure PropSheet_RestartWindows(hPropSheetDlg: HWND);
  981. begin
  982.   SendMessage(hPropSheetDlg, PSM_RESTARTWINDOWS, 0, 0);
  983. end;
  985. procedure PropSheet_RebootSystem(hPropSheetDlg: HWND);
  986. begin
  987.   SendMessage(hPropSheetDlg, PSM_REBOOTSYSTEM, 0, 0);
  988. end;
  990. procedure PropSheet_CancelToClose(hPropSheetDlg: HWND);
  991. begin
  992.   PostMessage(hPropSheetDlg, PSM_CANCELTOCLOSE, 0, 0);
  993. end;
  995. function PropSheet_QuerySiblings(hPropSheetDlg: HWND; Param1: WPARAM; Param2: LPARAM): Integer;
  996. begin
  997.   Result := SendMessage(hPropSheetDlg, PSM_QUERYSIBLINGS, Param1, Param2);
  998. end;
  1000. procedure PropSheet_UnChanged(hPropSheetDlg: HWND; hwndPage: HWND);
  1001. begin
  1002.   SendMessage(hPropSheetDlg, PSM_UNCHANGED, WPARAM(hwndPage), 0);
  1003. end;
  1005. function PropSheet_Apply(hPropSheetDlg: HWND): BOOL;
  1006. begin
  1007.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_APPLY, 0, 0));
  1008. end;
  1010. procedure PropSheet_SetTitle(hPropSheetDlg: HWND; dwStyle: DWORD; lpszText: LPTSTR);
  1011. begin
  1012.   SendMessage(hPropSheetDlg, PSM_SETTITLE, dwStyle, LPARAM(LPCTSTR(lpszText)));
  1013. end;
  1015. procedure PropSheet_SetWizButtons(hPropSheetDlg: HWND; dwFlags: DWORD);
  1016. begin
  1017.   PostMessage(hPropSheetDlg, PSM_SETWIZBUTTONS, 0, LPARAM(dwFlags));
  1018. end;
  1020. function PropSheet_PressButton(hPropSheetDlg: HWND; iButton: Integer): BOOL;
  1021. begin
  1022.   Result := PostMessage(hPropSheetDlg, PSM_PRESSBUTTON, WPARAM(iButton), 0);
  1023. end;
  1025. function PropSheet_SetCurSelByID(hPropSheetDlg: HWND; id: Integer): BOOL;
  1026. begin
  1027.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_SETCURSELID, 0, LPARAM(id)));
  1028. end;
  1030. procedure PropSheet_SetFinishText(hPropSheetDlg: HWND; lpszText: LPTSTR);
  1031. begin
  1032.   SendMessage(hPropSheetDlg, PSM_SETFINISHTEXT, 0, LPARAM(lpszText));
  1033. end;
  1035. function PropSheet_GetTabControl(hPropSheetDlg: HWND): HWND;
  1036. begin
  1037.   Result := SendMessage(hPropSheetDlg, PSM_GETTABCONTROL, 0, 0);
  1038. end;
  1040. function PropSheet_IsDialogMessage(hDlg: HWND; pMsg: LPMSG): BOOL;
  1041. begin
  1042.   Result := BOOL(SendMessage(hDlg, PSM_ISDIALOGMESSAGE, 0, LPARAM(pMsg)));
  1043. end;
  1045. function PropSheet_GetCurrentPageHwnd(hDlg: HWND): HWND;
  1046. begin
  1047.   Result := SendMessage(hDlg, PSM_GETCURRENTPAGEHWND, 0, 0);
  1048. end;
  1050. function PropSheet_InsertPage(hPropSheetDlg: HWND; index: Integer; hpage: HPROPSHEETPAGE): BOOL;
  1051. begin
  1052.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_INSERTPAGE, WPARAM(index), LPARAM(hpage)));
  1053. end;
  1055. function PropSheet_SetHeaderTitle(hWizardDlg: HWND; iPageIndex: Integer; lpszText: LPCSTR): Integer;
  1056. begin
  1057.   Result := SendMessage(hWizardDlg, PSM_SETHEADERTITLE, WPARAM(iPageIndex), LPARAM(lpszText));
  1058. end;
  1060. procedure PropSheet_SetHeaderSubTitle(hWizardDlg: HWND; iPageIndex: Integer; pszHeaderSubTitle: LPCSTR);
  1061. begin
  1062.   SendMessage(hWizardDlg, PSM_SETHEADERSUBTITLE, WPARAM(iPageIndex), LPARAM(pszHeaderSubTitle));
  1063. end;
  1065. function PropSheet_HwndToIndex(hPropSheetDlg: HWND; hPageDlg: HWND): Integer;
  1066. begin
  1067.   Result := SendMessage(hPropSheetDlg, PSM_HWNDTOINDEX, WPARAM(hPageDlg), 0);
  1068. end;
  1070. function PropSheet_IndexToHwnd(hPropSheetDlg: HWND; iPageIndex: Integer): HWND;
  1071. begin
  1072.   Result := SendMessage(hPropSheetDlg, PSM_INDEXTOHWND, WPARAM(iPageIndex), 0);
  1073. end;
  1075. function PropSheet_PageToIndex(hPropSheetDlg: HWND; hPage: HPROPSHEETPAGE): Integer;
  1076. begin
  1077.   Result := SendMessage(hPropSheetDlg, PSM_PAGETOINDEX, 0, LPARAM(hpage));
  1078. end;
  1080. function PropSheet_IndexToPage(hPropSheetDlg: HWND; iPageIndex: Integer): HPROPSHEETPAGE;
  1081. begin
  1082.   Result := HPROPSHEETPAGE(SendMessage(hPropSheetDlg, PSM_INDEXTOPAGE, WPARAM(iPageIndex), 0));
  1083. end;
  1085. function PropSheet_IdToIndex(hPropSheetDlg: HWND; iPageId: Integer): Integer;
  1086. begin
  1087.   Result := SendMessage(hPropSheetDlg, PSM_IDTOINDEX, 0, LPARAM(iPageId));
  1088. end;
  1090. function PropSheet_IndexToId(hPropSheetDlg: HWND; iPageIndex: Integer): Integer;
  1091. begin
  1092.   Result := SendMessage(hPropSheetDlg, PSM_INDEXTOID, WPARAM(iPageIndex), 0)
  1093. end;
  1095. function PropSheet_GetResult(hPropSheetDlg: HWND): BOOL;
  1096. begin
  1097.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_GETRESULT, 0, 0));
  1098. end;
  1100. function PropSheet_RecalcPageSizes(hPropSheetDlg: HWND): BOOL;
  1101. begin
  1102.   Result := BOOL(SendMessage(hPropSheetDlg, PSM_RECALCPAGESIZES, 0, 0));
  1103. end;
  1105. end.