📄 jediapilib.inc
字号:
{$IFNDEF JEDIAPILIB_INC}
{$DEFINE JEDIAPILIB_INC}
{******************************************************************************}
{ }
{ Windows Version Unit for Object Pascal }
{ }
{ Portions created by Robert Marquardt are Copyright (C) 2004 }
{ Robert Marquardt. All Rights Reserved. }
{ }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ You may retrieve the latest version of this file at the Project JEDI }
{ APILIB home page, located at http://jedi-apilib.sourceforge.net }
{ }
{ The contents of this file are used with permission, subject to the Mozilla }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License. }
{ }
{ Alternatively, the contents of this file may be used under the terms of the }
{ GNU Lesser General Public License (the "LGPL License"), in which case the }
{ provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting the provisions above and }
{ replace them with the notice and other provisions required by the LGPL }
{ License. If you do not delete the provisions above, a recipient may use }
{ your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}
{$ifndef FPC}
{$A+}
{$endif FPC}
{$Z4}
// This file is intended for C header conversions.
// It defines several mutually exclusive IFDEFs which determine
// the Windows version the API conversion is usable with.
// Global switch to enable dynamic linking of some APIs
{.DEFINE DYNAMIC_LINK}
{$IFDEF DYNAMIC_LINK}
{$STACKFRAMES ON}
{$WARNINGS OFF}
{$ENDIF DYNAMIC_LINK}
// allow FPC compat without any extra params.
{$ifdef FPC}
{$MODE Delphi}
{$DEFINE NOVCL}
{$else}
{$DEFINE SUPPORTS_DISPID}
{$ENDIF}
// Global switch to make UNICODE versions of API functions default
{.DEFINE UNICODE}
// Global switch to activate the use of the original basic types of
// Delphi Windows.pas. Either indirectly in JwaWinType.pas or
// directly through the use of Windows.pas instead of JwaWinType.pas.
{$DEFINE USE_DELPHI_TYPES}
// Global switch for the Windows version the files are compatible with
// ONLY A SINGLE ONE IS ALLOWED TO BE ACTIVATED BY CHANGING THE DOT TO A DOLLAR SIGN!
// Default is WINXP
{.DEFINE WIN95}
{.DEFINE WIN98}
{.DEFINE WIN98SE}
{.DEFINE WIN98ME}
{.DEFINE WINNT4}
{.DEFINE WIN2000}
{$DEFINE WINXP}
{.DEFINE WIN2003}
// Global switch for the Windows Internet Explorer versions
// ONLY A SINGLE ONE IS ALLOWED TO BE ACTIVATED BY CHANGING THE DOT TO A DOLLAR SIGN!
// Default is IE600
{.DEFINE IE300}
{.DEFINE IE400}
{.DEFINE IE401}
{.DEFINE IE500}
{.DEFINE IE501}
{.DEFINE IE560}
{$DEFINE IE600}
// Global switch for the MSI (Microsoft Installer) versions
// ONLY A SINGLE ONE IS ALLOWED TO BE ACTIVATED BY CHANGING THE DOT TO A DOLLAR SIGN!
// if none is set a default is determined from the Windows version IFDEFs
{.DEFINE MSI100}
{.DEFINE MSI110}
{.DEFINE MSI200}
// Global switch for the HtmlHelp versions
// ONLY A SINGLE ONE IS ALLOWED TO BE ACTIVATED BY CHANGING THE DOT TO A DOLLAR SIGN!
// default is HTMLHELP12
{.DEFINE HTMLHELP11}
{$DEFINE HTMLHELP12}
// secondary IFDEFs for "_UP" which means also any later OS version
{$IFDEF WIN2003}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$DEFINE WIN98ME_UP}
{$DEFINE WINNT4_UP}
{$DEFINE WIN2000_UP}
{$DEFINE WINXP_UP}
{$DEFINE WIN2003_UP}
{$ENDIF WIN2003}
{$IFDEF WINXP}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$DEFINE WIN98ME_UP}
{$DEFINE WINNT4_UP}
{$DEFINE WIN2000_UP}
{$DEFINE WINXP_UP}
{$ENDIF WINXP}
{$IFDEF WIN2000}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$DEFINE WIN98ME_UP}
{$DEFINE WINNT4_UP}
{$DEFINE WIN2000_UP}
{$ENDIF WIN2000}
{$IFDEF WINNT4}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$DEFINE WIN98ME_UP}
{$DEFINE WINNT4_UP}
{$ENDIF WINNT4}
{$IFDEF WIN98ME}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$DEFINE WIN98ME_UP}
{$ENDIF WIN98ME}
{$IFDEF WIN98SE}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$DEFINE WIN98SE_UP}
{$ENDIF WIN98SE}
{$IFDEF WIN98}
{$DEFINE WIN95_UP}
{$DEFINE WIN98_UP}
{$ENDIF WIN98}
{$IFDEF WIN95}
{$DEFINE WIN95_UP}
{$ENDIF WIN95}
// secondary IFDEFs for "_UP" which means also any later IE version
{$IFDEF IE600}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$DEFINE IE401_UP}
{$DEFINE IE500_UP}
{$DEFINE IE501_UP}
{$DEFINE IE560_UP}
{$DEFINE IE600_UP}
{$ENDIF IE600}
{$IFDEF IE560}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$DEFINE IE401_UP}
{$DEFINE IE500_UP}
{$DEFINE IE501_UP}
{$DEFINE IE560_UP}
{$ENDIF IE560}
{$IFDEF IE501}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$DEFINE IE401_UP}
{$DEFINE IE500_UP}
{$DEFINE IE501_UP}
{$ENDIF IE501}
{$IFDEF IE500}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$DEFINE IE401_UP}
{$DEFINE IE500_UP}
{$ENDIF IE500}
{$IFDEF IE401}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$DEFINE IE401_UP}
{$ENDIF IE401}
{$IFDEF IE400}
{$DEFINE IE300_UP}
{$DEFINE IE400_UP}
{$ENDIF IE400}
{$IFDEF IE300}
{$DEFINE IE300_UP}
{$ENDIF IE300}
// IFDEF defaults for MSI (Microsoft Installer)
{$IFNDEF MSI200}
{$IFNDEF MSI110}
{$IFNDEF MSI100}
{$IFDEF WINXP_UP}
{$DEFINE MSI200}
{$ELSE}
{$IFDEF WIN2000_UP}
{$DEFINE MSI110}
{$ELSE}
{$DEFINE MSI100}
{$ENDIF WIN2000_UP}
{$ENDIF WINXP_UP}
{$ENDIF !MSI100}
{$ENDIF !MSI110}
{$ENDIF !MSI200}
// secondary IFDEFs for MSI (Microsoft Installer)
{$IFDEF MSI200}
{$DEFINE MSI200_UP}
{$DEFINE MSI110_UP}
{$DEFINE MSI100_UP}
{$ENDIF MSI200}
{$IFDEF MSI110}
{$DEFINE MSI110_UP}
{$DEFINE MSI100_UP}
{$ENDIF MSI110}
{$IFDEF MSI100}
{$DEFINE MSI100_UP}
{$ENDIF MSI100}
// secondary IFDEFs for HtmlHelp
{$IFDEF HTMLHELP12}
{$DEFINE HTMLHELP12_UP}
{$DEFINE HTMLHELP11_UP}
{$ENDIF HTMLHELP12}
{$IFDEF HTMLHELP11}
{$DEFINE HTMLHELP11_UP}
{$ENDIF HTMLHELP11}
{$ENDIF ~JEDIAPILIB_INC}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -