delphi例程-应用程序级信息

1、delphi 例程应用程序级信息1. Application 变量 ( 标准应用程序 ) 描绘应用程序级的信息单元Formsvar Application: TApplication;描述默认地，当创建一个新的项目， Delphi 会构造一个应 用程序对象并将其赋给位于 Forms 单元中的 Application 变量。 Application 拥有数个属性，在应用程序运行时可心 用于得到关于应用程序的信息。示例 这段代码将在编辑框中显示你的项目的名称： procedure TForm1.Button1Click(Sender: TObject); beginEdit1.Text := Ap

2、plication.Title;end;2. CmdShow 变量CmdShow 被传递给 Windows API 函数ShowWindow 。 单元System var CmdShow: Integer;描述 在程序中，当应用程序创建主窗口时， CmdShow 变 量包含了 Windows 希望传递给 ShowWindow 的参数 值。在库(DLL)中,CmdShow 总是为0。3. CompilerVersion 常量 指明了 Delphi 编译器的版本编号 单元System const CompilerVersion = 15.0;描述使用 CompilerVersion 可以测试 De

3、lphi 编译器的统 配级别。如果你想条件化利用了 Delphi 语言更新特色的代 码，这会很有用 (This is useful if you want to conditionalize code that takes advantage of newer features in the Delphi language) 。4. ExitProcessProc 变量ExitProcessProc 指定在应用程序关闭 (shut down) 前 最后执行的过程 (procedure) 。 单元Systemvar ExitProcessProc: procedure; 描述赋值给 ExitPr

4、ocessProc 来指定你想在应用程序关闭 前执行的过程。 ExitProcessProc 的值是一个没有参数的过 程。5. GetFileVersion 函数返回文件版本 单元SysUtilsfunction GetFileVersion(const AFileName: string):Cardinal; 描述GetFileVersion 返回一个文件二进制版本号中最有意 义的 32 位。 AFileName 指定文件名，可以使用和 LoadLibrary 函数相同的路径搜索到。6. GetModuleName 函数 返回给定句柄的模块的完全限定名称 (fully qualified n

5、ame) 。单元SysUtilsfunction GetModuleName(Module: HMODULE): string;描述调用 GetModuleFileName 来获得给定句柄的模块的 完全限定名称。Module 是模块的句柄。7. HInstance 变量句柄，由 Windows 提供给模块 (module) 。 单元SysInitvar HInstance: LongWord;描述HInstance 容纳了由 Windows 提供的应用程序或库 的实例句柄8. HintWindowClass 变量指定用于显示帮助提示 (help hint) 的窗口的类。 单元Formsvar

6、HintWindowClass: THintWindowClass = THintWindow;描述当应用程序显示帮助提示 (Help Hint) 时，它会创建一 个 HintWindowClass 的实例来描绘用来显示提示的窗口。 应用程序通过创建 THintWindow 的派生类，然后在应用 程序启动时将派生类赋予 HintWindowClass 变量，能够定 制这个窗口。9.InitProc 变量InitProc 是最后一个安装的初始化过程。单元Systemvar InitProc: Pointer;描述赋值给 InitProc 来指定一个你想在应用程序启动时执 行的过程。 InitPr

7、oc 是一个无参数过程。例如：procedure MyInitProcedure;initializationInitProc := MyInitProcedure;beginend;只有一个初始化过程能够被赋予 InitProc 变量。如果 你的应用程序定义了多个初始化过程，仅最后一个赋予 InitProc 的会执行。要允许其他初始化过程执行，你必须将过程 “ 链接 ” 到一起，从 InitProc 的新值中 调用原先的值。例如，下面来自 ComObj 单元的代码在赋 新值前保存了 InitProc 原先的值，然后在新赋予的初始化 过程中调用保存在值：

8、SaveInitProc := InitProc;InitProc := InitComObj;10.IsConsole 变量 指示模块 (module) 是否作为控制台应用程序编译。单元Systemvar IsConsole: Boolean;描述如果模块作为控制台应用程序编译，那么 IsConsole 变量为 True 。同时在可执行文件和 DLL 中将为 True(This will be True in both an executable and a DLL)。11.IsLibrary 变量指示模块是否是一个 DLL 。单元Systemvar IsLibrary: Boolean;

9、描述如果模块是一个 DLL ，那么 IsLibrary 变量为 True12. JITEnable 变量控制何时及时调度器会被调用 (Controls when the just-in-time debugger is called) 。单元Systemvar JITEnable: Byte = 0;描述使用 JITEnable 来指示什么类型的异常会触发及时调试 器。当 JITEnable 为 0( 默认值 ) 时，所有的异常将使用应用 程序的异常处理机制处理。及时调试器仅当应用程序没有 提供任何捕获异常的机制时被调用。注意，除了 Delphi 单 元中的初始化和结束化区，任何包含了 For

10、ms 单元的应用 程序都提供了异常处理 (通过 Application 对象 )，不会触发 及时调试器 (Note that any application that includes the Forms unit provides exception handling (via the Application object) for all but the initialization and finalization sections and does not trigger the just-intime debugger) 。当 JITEnable 为 1 时，任何非原生 (non-n

11、ative) 异常 (使用其他产品编译的代码引发的异常 )。都会触发及时调试 器。原生异常由应用程序的异常处理机制处理。当 JITEnable 大于 1 时，所有的异常都会触发及时调 试器。注意：当你安装 IDE 时，它会被注册为及时调试器。 如果你安装了其他带调试器的工具，他们可能注册了自 己，而覆盖了 IDE 的注册。13. Languages 函数列出可用的支持区域 (List the locale for which support is available) 。单元SysUtilsfunction Languages: TLanguages;描述使用由 Languages 返回的值可

12、以获得系统支持的关于 区域的信息。这个函数仅可用在 Windows 平台14. MainInstance 变量指示主要的可执行文件的实例句柄。单元Systemvar MainInstance: LongWord;描述使用 MainInstance 来获得一个应用程序中主要的可执 行文件的实例句柄。在使用了运行时库或包的应用程序 中，当你需要可执行文件而不是库的句柄时，这很有用。注意：当从一个使用其他工具编译的可执行文件中运 行一个 CLX 动态链接库 (Windows) 或者共享对象 (Linux) 时，不要使用 MainInstance 。15. MainThreadID 变量指示当前模块中

13、主执行线程。单元Systemvar MainThreadID: LongWord;描述使用 MainThreadID 来获得主执行线程 (模块初始化时 的当前线程 )的线程 ID 。在调试时，这个主线程 ID 显示在线程状态盒中。在 Windows 上， MainThreadID 的值和一些 Win32API 调用所需要的线程 ID 是兼容的。16. NoErrMsg 变量控制当运行时错误发生时应用程序是否显示一个错误 信息。单元Systemvar NoErrMsg: Boolean = False;描述在 Windows 上，设置 NoErrMsg 来控制是否有一个 消息显示来指出有一个运行

14、时错误发生了。当 NoErrMsg 为 false( 默认值 ) 时，运行时错误会导致应用程序显示一个 消息框来提出发生的错误的类型。当 NoErrMsg 为 true 时，这些消息将被禁止。在 Linux 上， NoErrMsg 没有任何效果。注意： SysUtils 单元会将大部分的运行时错误转变成异 常。如果你的应用程序包含了 SysUtils ，那么即使 NoErrMsg 是 false ，运行时错误消息框也未必会显示。17. PopupList 变量提供了对发向弹出菜单 (popup menu) 的 Windows 消 息的集中处理 单元Menusvar PopupList: TPo

15、pupList;描述使用 PopupList 可以访问应用程序中的全部弹出菜单 或者访问响应弹出菜单消息的窗口的窗口句柄。 PopupList 维持了在应用程序中创建的全部弹出菜单组件的列表。这 个列表保存一个集中处理发向这些弹出菜单的 Windows 消 息的隐藏窗口的句柄。18. RTLVersion 常量指出 Delphi 运行时库的版本号。单元Systemconst RTLVersion = 15.0;描述使用 RTLVersion 可以检查不依赖于编译器版本级别的 Delphi 运行时库的版本号。19.Screen 变量表现一个屏幕设备单元Formsvar Screen: TScreen;描述Screen 变量是一个表现应用程序运行时所在系统的屏 幕的 TScreen 组件。默认地，应用程序会创建一个基于当 前屏幕设备有关信息的屏幕组件并将其赋给 Screen 变量 20.Win32Platform 变量