程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi例程-應用程序級信息

Delphi例程-應用程序級信息

編輯: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。
  單元
      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上可用。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved