delphi例程应用程序级信息.docx

delphi 例程－应用程序级信息 Application 变量(标准应用程序) 描绘应用程序级的信息 单元 Forms var Application: TApplication; 描述 默认地，当创建一个新的项目，Delphi 会构造一个应用程序对象并将其赋给位于 Forms 单元中的 Application 变量。Application 拥有数个属性，在应用程序运行时可心用于得到关于应用程序的信息。 示例 这段代码将在编辑框中显示你的项目的名称： procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := Application.Title; end; CmdShow 变量 CmdShow 被传递给 Windows API 函数 ShowWindow。 单元 System var CmdShow: Integer; 描述 在程序中，当应用程序创建主窗口时，CmdShow 变量 包含了 Windows 希望传递给 ShowWindow 的参数值。在库(DLL)中,CmdShow 总是为 0。 CompilerVersion 常量 指明了 Delphi 编译器的版本编号 单元 System const CompilerVersion = 15.0; 描述 使用 CompilerVersion 可以测试 Delphi 编译器的统配级 别。如果你想条件化利用了 Delphi 语言更新特色的代码，这会很有用(This is useful if you want to conditionalize code that takes advantage of newer features in the Delphi language)。 ExitProcessProc 变量 ExitProcessProc 指定在应用程序关闭(shut down)前最后执行的过程(procedure)。 单元 System var ExitProcessProc: procedure; 描述 赋值给 ExitProcessProc 来指定你想在应用程序关闭 前执行的过程。ExitProcessProc 的值是一个没有参数的过程。 GetFileVersion 函数返回文件版本 单元 SysUtils function GetFileVersion(const AFileName: string): Cardinal; 描述 GetFileVersion 返回一个文件二进制版本号中最有意义的 32 位。AFileName 指定文件名，可以使用和 LoadLibrary 函数相同的路径有哪些信誉好的足球投注网站到。 GetModuleName 函数 返回给定句柄的模块的完全限定名称(fully qualified name)。 单元 SysUtils function GetModuleName(Module: HMODULE): string; 描述 调用 GetModuleFileName 来获得给定句柄的模块的完全限定名称。 Module 是模块的句柄。 HInstance 变量 句柄，由 Windows 提供给模块(module)。 单元 SysInit var HInstance: LongWord; 描述 HInstance 容纳了由 Windows 提供的应用程序或库的 实例句柄 HintWindowClass 变量 指定用于显示帮助提示(help hint)的窗口的类。 单元 Forms var HintWindowClass: THintWindowClass = THintWindow; 描述 当应用程序显示帮助提示(Help Hint)时，它会创建一个HintWindowClass 的实例来描绘用来显示提示的窗口。应用 程序通过创建 THintWindow 的派生类，然后在应用程序启动时将派生类赋予 HintWindowClass 变量，能够定制这个窗口。9.InitProc 变量 InitProc 是最后一个安装的初始化过程。 单元 System var InitProc: Pointer; 描述 赋值给 InitProc 来指定一个你想在应用程序启动时执行 的过程。InitProc 是一个无参数过程。例如： procedure MyInitProcedure; ... initialization InitProc := @MyInitProcedure; begin end; 只有一个初始化过程能够被赋予 InitProc 变量。如果你的应用程序定义了多个初始化过程，仅最后一个赋予InitProc 的会执行。要允许其他初始化过程执行，你必须将过程#8220;链接#8221;到一