windows.pp 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. This unit contains the record definition for the Win32 API
  5. Copyright (c) 1999-2000 by Florian KLaempfl,
  6. member of the Free Pascal development team.
  7. See the file COPYING.FPC, included in this distribution,
  8. for details about the copyright.
  9. This program is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  12. **********************************************************************}
  13. unit windows;
  14. {$ifndef VER0_99_14}
  15. {$ifndef NO_SMART_LINK}
  16. {$define support_smartlink}
  17. {$endif}
  18. {$endif}
  19. {$ifdef support_smartlink}
  20. {$smartlink on}
  21. {$endif}
  22. interface
  23. {$define read_interface}
  24. {$undef read_implementation}
  25. {$i base.inc}
  26. {$i errors.inc}
  27. {$i defines.inc}
  28. {$i messages.inc}
  29. {$i struct.inc}
  30. {$i ascfun.inc}
  31. {$i unifun.inc}
  32. {$ifdef UNICODE}
  33. {$i unidef.inc}
  34. {$else not UNICODE}
  35. {$i ascdef.inc}
  36. {$endif UNICODE}
  37. {$i func.inc}
  38. {$i redef.inc}
  39. implementation
  40. {$undef read_interface}
  41. {$define read_implementation}
  42. {$i base.inc}
  43. {$i errors.inc}
  44. {$i defines.inc}
  45. {$i messages.inc}
  46. {$i struct.inc}
  47. {$i ascfun.inc}
  48. {$i unifun.inc}
  49. {$ifdef UNICODE}
  50. {$i unidef.inc}
  51. {$else not UNICODE}
  52. {$i ascdef.inc}
  53. {$endif UNICODE}
  54. {$i func.inc}
  55. {$i redef.inc}
  56. end.
  57. {
  58. $Log$
  59. Revision 1.1 2000-07-13 06:31:22 michael
  60. + Initial import
  61. Revision 1.13 2000/06/15 11:26:57 pierre
  62. * avoid lines longer than 255 chars
  63. + add smartlink on by default, if not version 0.99.14
  64. * some functions not present in win95 DLL's are now only inserted if
  65. smartlink is on.
  66. Revision 1.12 2000/06/11 07:04:58 peter
  67. * Windows unit has now more Delphi compatibile functions
  68. * placed the external functions only in the interface
  69. Revision 1.11 2000/05/17 11:00:29 marco
  70. * JCL alias
  71. Revision 1.10 2000/04/22 19:51:08 marco
  72. * Forgot to remove the tpoint stuff.
  73. Revision 1.9 2000/04/22 17:46:05 marco
  74. * some redef fixes (for lazarus mwedit component)
  75. Revision 1.8 2000/03/19 20:30:27 marco
  76. * Some more delphi compatible kernelfunc headers for JCL.
  77. Revision 1.7 2000/02/09 16:59:35 peter
  78. * truncated log
  79. Revision 1.6 2000/01/07 16:41:53 daniel
  80. * copyright 2000
  81. Revision 1.5 2000/01/07 16:32:35 daniel
  82. * copyright 2000 added
  83. Revision 1.4 1999/09/16 13:38:21 peter
  84. * windows unit include moved to wininc/
  85. }