123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110 |
- {
- $Id$
- This file is part of the Free Pascal run time library.
- This unit contains the record definition for the Win32 API
- Copyright (c) 1999-2000 by Florian KLaempfl,
- member of the Free Pascal development team.
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- unit windows;
- {$ifndef VER0_99_14}
- {$ifndef NO_SMART_LINK}
- {$define support_smartlink}
- {$endif}
- {$endif}
- {$ifdef support_smartlink}
- {$smartlink on}
- {$endif}
- interface
- {$define read_interface}
- {$undef read_implementation}
- {$i base.inc}
- {$i errors.inc}
- {$i defines.inc}
- {$i messages.inc}
- {$i struct.inc}
- {$i ascfun.inc}
- {$i unifun.inc}
- {$ifdef UNICODE}
- {$i unidef.inc}
- {$else not UNICODE}
- {$i ascdef.inc}
- {$endif UNICODE}
- {$i func.inc}
- {$i redef.inc}
- implementation
- {$undef read_interface}
- {$define read_implementation}
- {$i base.inc}
- {$i errors.inc}
- {$i defines.inc}
- {$i messages.inc}
- {$i struct.inc}
- {$i ascfun.inc}
- {$i unifun.inc}
- {$ifdef UNICODE}
- {$i unidef.inc}
- {$else not UNICODE}
- {$i ascdef.inc}
- {$endif UNICODE}
- {$i func.inc}
- {$i redef.inc}
- end.
- {
- $Log$
- Revision 1.1 2000-07-13 06:31:22 michael
- + Initial import
- Revision 1.13 2000/06/15 11:26:57 pierre
- * avoid lines longer than 255 chars
- + add smartlink on by default, if not version 0.99.14
- * some functions not present in win95 DLL's are now only inserted if
- smartlink is on.
- Revision 1.12 2000/06/11 07:04:58 peter
- * Windows unit has now more Delphi compatibile functions
- * placed the external functions only in the interface
- Revision 1.11 2000/05/17 11:00:29 marco
- * JCL alias
- Revision 1.10 2000/04/22 19:51:08 marco
- * Forgot to remove the tpoint stuff.
- Revision 1.9 2000/04/22 17:46:05 marco
- * some redef fixes (for lazarus mwedit component)
- Revision 1.8 2000/03/19 20:30:27 marco
- * Some more delphi compatible kernelfunc headers for JCL.
- Revision 1.7 2000/02/09 16:59:35 peter
- * truncated log
- Revision 1.6 2000/01/07 16:41:53 daniel
- * copyright 2000
- Revision 1.5 2000/01/07 16:32:35 daniel
- * copyright 2000 added
- Revision 1.4 1999/09/16 13:38:21 peter
- * windows unit include moved to wininc/
- }
|