development/compilers/freepascal/rtl/win32/windows.pp

   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
   8     See the file COPYING.FPC, included in this distribution,
   9     for details about the copyright.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  **********************************************************************}
  16 unit windows;
  17
  18
  19 {$ifndef VER0_99_14}
  20 {$ifndef NO_SMART_LINK}
  21 {$define support_smartlink}
  22 {$endif}
  23 {$endif}
  24
  25
  26 {$ifdef support_smartlink}
  27 {$smartlink on}
  28 {$endif}
  29
  30 interface
  31
  32 {$define read_interface}
  33 {$undef read_implementation}
  34
  35 {$i base.inc}
  36 {$i errors.inc}
  37 {$i defines.inc}
  38 {$i messages.inc}
  39 {$i struct.inc}
  40 {$i ascfun.inc}
  41 {$i unifun.inc}
  42 {$ifdef UNICODE}
  43 {$i unidef.inc}
  44 {$else not UNICODE}
  45 {$i ascdef.inc}
  46 {$endif UNICODE}
  47 {$i func.inc}
  48 {$i redef.inc}
  49
  50 implementation
  51
  52 {$undef read_interface}
  53 {$define read_implementation}
  54
  55 {$i base.inc}
  56 {$i errors.inc}
  57 {$i defines.inc}
  58 {$i messages.inc}
  59 {$i struct.inc}
  60 {$i ascfun.inc}
  61 {$i unifun.inc}
  62 {$ifdef UNICODE}
  63 {$i unidef.inc}
  64 {$else not UNICODE}
  65 {$i ascdef.inc}
  66 {$endif UNICODE}
  67 {$i func.inc}
  68 {$i redef.inc}
  69
  70 end.
  71 {
  72   $Log$
  73   Revision 1.1  2002/02/19 08:26:28  sasu
  74   Initial revision
  75
  76   Revision 1.1  2000/07/13 06:31:22  michael
  77   + Initial import
  78
  79   Revision 1.13  2000/06/15 11:26:57  pierre
  80     * avoid lines longer than 255 chars
  81     + add smartlink on by default, if not version 0.99.14
  82     * some functions not present in win95 DLL's are now only inserted if
  83       smartlink is on.
  84
  85   Revision 1.12  2000/06/11 07:04:58  peter
  86     * Windows unit has now more Delphi compatibile functions
  87     * placed the external functions only in the interface
  88
  89   Revision 1.11  2000/05/17 11:00:29  marco
  90    * JCL alias
  91
  92   Revision 1.10  2000/04/22 19:51:08  marco
  93    * Forgot to remove the tpoint stuff.
  94
  95   Revision 1.9  2000/04/22 17:46:05  marco
  96    * some redef fixes (for lazarus mwedit component)
  97
  98   Revision 1.8  2000/03/19 20:30:27  marco
  99    * Some more delphi compatible kernelfunc headers for JCL.
 100
 101   Revision 1.7  2000/02/09 16:59:35  peter
 102     * truncated log
 103
 104   Revision 1.6  2000/01/07 16:41:53  daniel
 105     * copyright 2000
 106
 107   Revision 1.5  2000/01/07 16:32:35  daniel
 108     * copyright 2000 added
 109
 110   Revision 1.4  1999/09/16 13:38:21  peter
 111     * windows unit include moved to wininc/
 112
 113 }