麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > Delphi > 正文

Delphi例程-應用程序級信息

2019-11-18 18:24:10
字體:
來源:轉載
供稿:網友

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。
單元
    System
   
    var CmdShow: Integer;
描述
    在程序中,當應用程序創建主窗口時,CmdShow變量包含了 Windows 希望傳遞給 ShowWindow 的參數值。
    在庫(DLL)中,CmdShow總是為0。

3.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)。

4.ExitProcessProc 變量
    ExitProcessProc 指定在應用程序關閉(shut down)前最后執行的過程(procedure)。
單元
    System

    var ExitProcessProc: procedure;
描述
    賦值給 ExitProcessProc 來指定你想在應用程序關閉前執行的過程。ExitProcessProc 的值是一個沒有參數的過程。

5.GetFileVersion 函數 
    返回文件版本
單元
    SysUtils

    function GetFileVersion(const AFileName: string): Cardinal;
描述
    GetFileVersion返回一個文件二進制版本號中最有意義的32位。AFileName指定文件名,可以使用和LoadLibrary函數相同的路徑搜索到。

6.GetModuleName 函數
    返回給定句柄的模塊的完全限定名稱(fully qualified name)。
單元
    SysUtils

    function GetModuleName(Module: HMODULE): string;
描述
    調用GetModuleFileName來獲得給定句柄的模塊的完全限定名稱。
    Module是模塊的句柄。

7.HInstance 變量
    句柄,由Windows提供給模塊(module)。
單元
    SysInit

    var HInstance: LongWord;
描述
    HInstance 容納了由Windows提供的應用程序或庫的實例句柄

8.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的會執行。要允許其他初始化過程執行,你必須將過程“鏈接”到一起,從InitProc的新值中調用原先的值。例如,下面來自ComObj單元的代碼在賦新值前保存了InitProc原先的值,然后在新賦予的初始化過程中調用保存在值:
    SaveInitProc := InitProc;
    InitProc := @InitComObj;

10.IsConsole 變量
    指示模塊(module)是否作為控制臺應用程序編譯。
單元
    System

    var IsConsole: Boolean;
描述
    如果模塊作為控制臺應用程序編譯,那么IsConsole變量為True。同時在可執行文件和DLL中將為True(This will be True in both an executable and a DLL)。

11.IsLibrary 變量
    指示模塊是否是一個DLL。
單元
    System

    var IsLibrary: Boolean;
描述
    如果模塊是一個DLL,那么IsLibrary變量為True。

12.JITEnable 變量
    控制何時及時調度器會被調用(Controls when the just-in-time debugger is called)。
單元
    System

    var JITEnable: Byte = 0;
描述
    使用JITEnable來指示什么類型的異常會觸發及時調試器。
    當JITEnable為0(默認值)時,所有的異常將使用應用程序的異常處理機制處理。及時調試器僅當應用程序沒有提供任何捕獲異常的機制時被調用。注意,除了Delphi單元中的初始化和結束化區,任何包含了Forms單元的應用程序都提供了異常處理(通過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-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變量
    指示主要的可執行文件的實例句柄。
單元
    System
   
    var MainInstance: LongWord;
描述
    使用MainInstance來獲得一個應用程序中主要的可執行文件的實例句柄。在使用了運行時庫或包的應用程序中,當你需要可執行文件而不是庫的句柄時,這很有用。
    注意:當從一個使用其他工具編譯的可執行文件中運行一個CLX動態鏈接庫(Windows)或者共享對象(linux)時,不要使用MainInstance。

15.MainThreadID變量
    指示當前模塊中主執行線程。
單元
    System

    var MainThreadID: LongWord;
描述
    使用MainThreadID來獲得主執行線程(模塊初始化時的當前線程)的線程ID。
    在調試時,這個主線程ID顯示在線程狀態盒中。
    在Windows上,MainThreadID的值和一些Win32API調用所需要的線程ID是兼容的。

16.NoErrMsg變量
    控制當運行時錯誤發生時應用程序是否顯示一個錯誤信息。
單元
    System

    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運行時庫的版本號。
單元
    System

    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上可用。


上一篇:用Delphi編寫Win2000服務程序

下一篇:使用ACTIVEX和DELPHI開發串口通訊

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 1024亚洲天堂 | 国产精品刺激对白麻豆99 | 叶子楣成人爽a毛片免费啪啪 | 国产日韩线路一线路二 | v片在线看| 久草在线最新免费 | 欧美一级久久 | 免费a视频在线观看 | 在线看一级片 | 亚洲福利视频52 | 欧美中文字幕一区二区三区亚洲 | 日韩黄色片在线观看 | 日日噜噜噜夜夜狠狠久久蜜桃 | 快播av在线 | 国产成人77亚洲精品www | 伊人av影院 | 精品一区二区久久久久久按摩 | 一级免费看片 | 538任你躁在线精品视频网站 | 激情综合网俺也去 | 国产精品久久久久久久午夜片 | 免费一级片观看 | 欧美亚洲国产成人 | 免费欧美一级视频 | 久久国产一 | 深夜视频在线观看 | 欧美视频一区二区 | 毛片在线免费视频 | www亚洲成人 | 欧美一级片网站 | 羞羞答答影院 | 在线香蕉视频 | 国产午夜精品久久久 | 午夜看毛片 | 91小视频在线观看免费版高清 | 中文字幕在线观看二区 | 国产91免费看 | 国产妇女乱码一区二区三区 | 欧美精品毛片 | 成人午夜激情网 | 看免费的毛片 |