wincc应用例程:Delphi例程－应用程序级信息

1.Application 变量(标准应用)
　　描绘应用级信息
单元
    Forms

    var Application: TApplication;
描述
　　默认地当创建个新项目Delphi会构造个应用对象并将其赋给位于Forms单元中Application变量Application拥有数个属性在应用运行时可心用于得到有关应用信息
举例
　　这段代码将在编辑框中显示你项目名称:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Edit1.Text := Application.Title;
    end;

2.CmdShow 变量
    CmdShow被传递给Windows API ShowWindow
单元
    
    
    var CmdShow: Integer;
描述
    在中当应用创建主窗口时CmdShow变量包含了 Windows 希望传递给 ShowWindow 参数值
    在库(DLL)中,CmdShow总是为0

3.CompilerVersion 常量
    指明了Delphi编译器版本编号
单元
    
    
    const CompilerVersion = 15.0;
描述
    使用CompilerVersion可以测试Delphi编译器统配级别如果你想条件化利用了Delphi语言更新特色代码这会很有用(This is useful you want to conditionalize code that takes advantage of er features in the Delphi language)

4.ExitProcessProc 变量
    ExitProcessProc 指定在应用关闭(shut down)前最后执行过程(procedure)
单元
    

    var ExitProcessProc: procedure;
描述
    赋值给 ExitProcessProc 来指定你想在应用关闭前执行过程ExitProcessProc 值是个没有参数过程

5.GetFileVersion
    返回文件版本
单元
    SysUtils

    function GetFileVersion(const AFileName: ): Cardinal;
描述
    GetFileVersion返回个文件 2进制版本号中最有意义32位AFileName指定文件名可以使用和LoadLibrary相同路径搜索到

6.GetModuleName
    返回给定句柄模块完全限定名称(fully qualied name)
单元
    SysUtils

    function GetModuleName(Module: HMODULE): ;
描述
    GetModuleFileName来获得给定句柄模块完全限定名称
    Module是模块句柄

7.HInstance 变量
    句柄由Windows提供给模块(module)
单元
    SysInit

    var HInstance: LongWord;
描述
    HInstance 容纳了由Windows提供应用或库例子句柄

8.HWindowClass 变量
    指定用于显示帮助提示(help h)窗口类
单元
    Forms

    var HWindowClass: THWindowClass = THWindow;
描述
    当应用显示帮助提示(Help H)时它会创建个HWindowClass例子来描绘用来显示提示窗口应用通过创建THWindow派生类然后在应用启动时将派生类赋予HWindowClass变量能够定制这个窗口

9.InitProc 变量
    InitProc 是最后个安装化过程
单元
    

    var InitProc: Poer;
描述
    赋值给InitProc来指定个你想在应用启动时执行过程InitProc是个无参数过程例如:
    procedure MyInitProcedure;
    ...
    initialization
      InitProc := @MyInitProcedure;
    begin
    end;
    只有个化过程能够被赋予InitProc变量如果你应用定义了多个化过程仅最后个赋予InitProc会执行要允许其他化过程执行你必须将过程“链接”到起从InitProc新值中原先值例如下面来自ComObj单元代码在赋新值前保存了InitProc原先值然后在新赋予化过程中保存在值:
    SaveInitProc := InitProc;
    InitProc := @InitComObj;

10.IsConsole 变量
    指示模块(module)是否作为控制台应用编译
单元
    

    var IsConsole: Boolean;
描述
    如果模块作为控制台应用编译那么IsConsole变量为True同时在可执行文件和DLL中将为True(This will be True in both an executable and a DLL)

11.IsLibrary 变量
    指示模块是否是个DLL
单元
    

    var IsLibrary: Boolean;
描述
    如果模块是个DLL那么IsLibrary变量为True

12.JITEnable 变量
    控制何时及时调度器会被(Controls when the just-in-time debugger is called)
单元
    

    var JITEnable: Byte = 0;
描述
    使用JITEnable来指示什么类型异常会触发及时调试器
    当JITEnable为0(默认值)时所有异常将使用应用异常处理机制处理及时调试器仅当应用没有提供任何捕获异常机制时被注意除了Delphi单元中化和结束化区任何包含了Forms单元应用都提供了异常处理(通过Application对象)不会触发及时调试器(Note that any application that s the Forms unit provides exception handling (via the Application object) for all but the initialization and finalization sections and does not trigger the just-in-time debugger)
    当JITEnable为1时任何非原生(non-native)异常(使用其他产品编译代码引发异常)都会触发及时调试器原生异常由应用异常处理机制处理
    当JITEnable大于1时所有异常都会触发及时调试器
    注意:当你安装IDE时它会被注册为及时调试器如果你安装了其他带调试器工具他们可能注册了自己而覆盖了IDE注册

13.Languages
    列出可用支持区域(List the locale for which support is available)
单元
    SysUtils

    function Languages: TLanguages;
描述
    使用由Languages返回值可以获得系统支持有关区域信息这个仅可用在Windows平台

14.MainInstance变量
    指示主要可执行文件例子句柄
单元
    
    
    var MainInstance: LongWord;
描述
    使用MainInstance来获得个应用中主要可执行文件例子句柄在使用了运行时库或包应用中当你需要可执行文件而不是库句柄时这很有用
    注意:当从个使用其他工具编译可执行文件中运行个CLX动态链接库(Windows)或者共享对象(Linux)时不要使用MainInstance

15.MainThreadID变量
    指示当前模块中主执行线程
单元
    

    var MainThreadID: LongWord;
描述
    使用MainThreadID来获得主执行线程(模块化时当前线程)线程ID
    在调试时这个主线程ID显示在线程状态盒中
    在Windows上MainThreadID值和些Win32API所需要线程ID是兼容

16.NoErrMsg变量
    控制当运行时发生时应用是否显示个信息
单元
    

    var NoErrMsg: Boolean = False;
描述
    在Windows上设置NoErrMsg来控制是否有个消息显示来指出有个运行时发生了当NoErrMsg为false(默认值)时运行时会导致应用显示个消息框来提出发生类型当NoErrMsg为true时这些消息将被禁止
    在Linux上NoErrMsg没有任何效果
    注意:SysUtils单元会将大部分运行时转变成异常如果你应用包含了SysUtils那么即使NoErrMsg是false运行时消息框也未必会显示

17.PopupList变量
    提供了对发向弹出菜单(popup menu)Windows消息集中处理
单元
    Menus
    var PopupList: TPopupList;
描述
    使用PopupList可以访问应用中全部弹出菜单或者访问响应弹出菜单消息窗口窗口句柄PopupList维持了在应用中创建全部弹出菜单组件列表这个列表保存个集中处理发向这些弹出菜单Windows消息隐藏窗口句柄

18.RTLVersion常量
    指出Delphi运行时库版本号
单元
    

    const RTLVersion = 15.0;
描述
    使用RTLVersion可以检查不依赖于编译器版本级别Delphi运行时库版本号

19.Screen变量
    表现个屏幕设备
单元
    Forms

    var Screen: TScreen;
描述
    Screen变量是个表现应用运行时所在系统屏幕TScreen组件默认地应用会创建个基于当前屏幕设备有关信息屏幕组件并将其赋给Screen变量

20.Win32Platform变量
    指定Win32平台标识符
单元
    SysUtils

    var Win32Platform: Integer = 0;
描述
    Win32Platform用于标识系统运行Win32平台类型这将会是下列值的:
    值              含义
    VER_PLATFORM_WIN32s 系统是Win32
    VER_PLATFORM_WIN32_WINDOWS 系统是Windows 95
    VER_PLATFORM_WN32_NT 系统是Windows NT
    Win32Platform仅在Windows上可用

延伸阅读

• 2009-9-12-- delphi程序设计:几种程序自杀的思路方法(Delphi)
• 2008-12-26-- delphi程序开发:用Delphi开发简单的WebMail程序
• 2008-10-22-- delphi程序:用Delphi编写聊天程序
• 2008-10-22-- 触发器的功能:Delphi”程序级触发器”功能的实现
• 2009-2-12-- delphi程序设计:Delphi开发WEBMAIL程序
• 2008-9-24-- delphi应用程序:在Delphi中开发使用多显示器的应用程序
• 2008-9-24-- delphi数据类型:DELPHI程序错误类型
• 2008-9-24-- delphi程序设计:Delphi程序设计综合训练任务书
• 2009-2-12-- delphi程序设计:Delphi开发简单的WebMail程序方法
• 2009-2-12-- delphi应用程序:Delphi開發國際化應用程序