a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁(yè) > 編程 > Delphi > 正文

Delphi例程-應(yīng)用程序級(jí)信息

2019-11-18 18:24:10
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

1.application 變量(標(biāo)準(zhǔn)應(yīng)用程序)
  描繪應(yīng)用程序級(jí)的信息
單元
    Forms

    var Application: TApplication;
描述
  默認(rèn)地,當(dāng)創(chuàng)建一個(gè)新的項(xiàng)目,Delphi會(huì)構(gòu)造一個(gè)應(yīng)用程序?qū)ο蟛⑵滟x給位于Forms單元中的Application變量。Application擁有數(shù)個(gè)屬性,在應(yīng)用程序運(yùn)行時(shí)可心用于得到關(guān)于應(yīng)用程序的信息。
示例
  這段代碼將在編輯框中顯示你的項(xiàng)目的名稱:
    PRocedure TForm1.Button1Click(Sender: TObject);
    begin
      Edit1.Text := Application.Title;
    end;

2.CmdShow 變量
    CmdShow被傳遞給Windows API 函數(shù) ShowWindow。
單元
    System
   
    var CmdShow: Integer;
描述
    在程序中,當(dāng)應(yīng)用程序創(chuàng)建主窗口時(shí),CmdShow變量包含了 Windows 希望傳遞給 ShowWindow 的參數(shù)值。
    在庫(kù)(DLL)中,CmdShow總是為0。

3.CompilerVersion 常量 
    指明了Delphi編譯器的版本編號(hào)
單元
    System
   
    const CompilerVersion = 15.0;
描述
    使用CompilerVersion可以測(cè)試Delphi編譯器的統(tǒng)配級(jí)別。如果你想條件化利用了Delphi語(yǔ)言更新特色的代碼,這會(huì)很有用(This is useful if you want to conditionalize code that takes advantage of newer features in the Delphi language)。

4.ExitProcessProc 變量
    ExitProcessProc 指定在應(yīng)用程序關(guān)閉(shut down)前最后執(zhí)行的過(guò)程(procedure)。
單元
    System

    var ExitProcessProc: procedure;
描述
    賦值給 ExitProcessProc 來(lái)指定你想在應(yīng)用程序關(guān)閉前執(zhí)行的過(guò)程。ExitProcessProc 的值是一個(gè)沒(méi)有參數(shù)的過(guò)程。

5.GetFileVersion 函數(shù) 
    返回文件版本
單元
    SysUtils

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

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

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

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

    var HInstance: LongWord;
描述
    HInstance 容納了由Windows提供的應(yīng)用程序或庫(kù)的實(shí)例句柄

8.HintWindowClass 變量
    指定用于顯示幫助提示(help hint)的窗口的類。
單元
    Forms

    var HintWindowClass: THintWindowClass = THintWindow;
描述
    當(dāng)應(yīng)用程序顯示幫助提示(Help Hint)時(shí),它會(huì)創(chuàng)建一個(gè)HintWindowClass的實(shí)例來(lái)描繪用來(lái)顯示提示的窗口。應(yīng)用程序通過(guò)創(chuàng)建THintWindow的派生類,然后在應(yīng)用程序啟動(dòng)時(shí)將派生類賦予HintWindowClass變量,能夠定制這個(gè)窗口。

9.InitProc 變量
    InitProc 是最后一個(gè)安裝的初始化過(guò)程。
單元
    System

    var InitProc: Pointer;
描述
    賦值給InitProc來(lái)指定一個(gè)你想在應(yīng)用程序啟動(dòng)時(shí)執(zhí)行的過(guò)程。InitProc是一個(gè)無(wú)參數(shù)過(guò)程。例如:
    procedure MyInitProcedure;
    ...
    initialization
      InitProc := @MyInitProcedure;
    begin
    end;
    只有一個(gè)初始化過(guò)程能夠被賦予InitProc變量。如果你的應(yīng)用程序定義了多個(gè)初始化過(guò)程,僅最后一個(gè)賦予InitProc的會(huì)執(zhí)行。要允許其他初始化過(guò)程執(zhí)行,你必須將過(guò)程“鏈接”到一起,從InitProc的新值中調(diào)用原先的值。例如,下面來(lái)自ComObj單元的代碼在賦新值前保存了InitProc原先的值,然后在新賦予的初始化過(guò)程中調(diào)用保存在值:
    SaveInitProc := InitProc;
    InitProc := @InitComObj;

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

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

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

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

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

    var JITEnable: Byte = 0;
描述
    使用JITEnable來(lái)指示什么類型的異常會(huì)觸發(fā)及時(shí)調(diào)試器。
    當(dāng)JITEnable為0(默認(rèn)值)時(shí),所有的異常將使用應(yīng)用程序的異常處理機(jī)制處理。及時(shí)調(diào)試器僅當(dāng)應(yīng)用程序沒(méi)有提供任何捕獲異常的機(jī)制時(shí)被調(diào)用。注意,除了Delphi單元中的初始化和結(jié)束化區(qū),任何包含了Forms單元的應(yīng)用程序都提供了異常處理(通過(guò)Application對(duì)象),不會(huì)觸發(fā)及時(shí)調(diào)試器(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)。
    當(dāng)JITEnable為1時(shí),任何非原生(non-native)異常(使用其他產(chǎn)品編譯的代碼引發(fā)的異常)。都會(huì)觸發(fā)及時(shí)調(diào)試器。原生異常由應(yīng)用程序的異常處理機(jī)制處理。
    當(dāng)JITEnable大于1時(shí),所有的異常都會(huì)觸發(fā)及時(shí)調(diào)試器。
    注意:當(dāng)你安裝IDE時(shí),它會(huì)被注冊(cè)為及時(shí)調(diào)試器。如果你安裝了其他帶調(diào)試器的工具,他們可能注冊(cè)了自己,而覆蓋了IDE的注冊(cè)。

13.Languages 函數(shù)
    列出可用的支持區(qū)域(List the locale for which support is available)。
單元
    SysUtils

    function Languages: TLanguages;
描述
    使用由Languages返回的值可以獲得系統(tǒng)支持的關(guān)于區(qū)域的信息。這個(gè)函數(shù)僅可用在Windows平臺(tái)

14.MainInstance變量
    指示主要的可執(zhí)行文件的實(shí)例句柄。
單元
    System
   
    var MainInstance: LongWord;
描述
    使用MainInstance來(lái)獲得一個(gè)應(yīng)用程序中主要的可執(zhí)行文件的實(shí)例句柄。在使用了運(yùn)行時(shí)庫(kù)或包的應(yīng)用程序中,當(dāng)你需要可執(zhí)行文件而不是庫(kù)的句柄時(shí),這很有用。
    注意:當(dāng)從一個(gè)使用其他工具編譯的可執(zhí)行文件中運(yùn)行一個(gè)CLX動(dòng)態(tài)鏈接庫(kù)(Windows)或者共享對(duì)象(linux)時(shí),不要使用MainInstance。

15.MainThreadID變量
    指示當(dāng)前模塊中主執(zhí)行線程。
單元
    System

    var MainThreadID: LongWord;
描述
    使用MainThreadID來(lái)獲得主執(zhí)行線程(模塊初始化時(shí)的當(dāng)前線程)的線程ID。
    在調(diào)試時(shí),這個(gè)主線程ID顯示在線程狀態(tài)盒中。
    在Windows上,MainThreadID的值和一些Win32API調(diào)用所需要的線程ID是兼容的。

16.NoErrMsg變量
    控制當(dāng)運(yùn)行時(shí)錯(cuò)誤發(fā)生時(shí)應(yīng)用程序是否顯示一個(gè)錯(cuò)誤信息。
單元
    System

    var NoErrMsg: Boolean = False;
描述
    在Windows上,設(shè)置NoErrMsg來(lái)控制是否有一個(gè)消息顯示來(lái)指出有一個(gè)運(yùn)行時(shí)錯(cuò)誤發(fā)生了。當(dāng)NoErrMsg為false(默認(rèn)值)時(shí),運(yùn)行時(shí)錯(cuò)誤會(huì)導(dǎo)致應(yīng)用程序顯示一個(gè)消息框來(lái)提出發(fā)生的錯(cuò)誤的類型。當(dāng)NoErrMsg為true時(shí),這些消息將被禁止。
    在Linux上,NoErrMsg沒(méi)有任何效果。
    注意:SysUtils單元會(huì)將大部分的運(yùn)行時(shí)錯(cuò)誤轉(zhuǎn)變成異常。如果你的應(yīng)用程序包含了SysUtils,那么即使NoErrMsg是false,運(yùn)行時(shí)錯(cuò)誤消息框也未必會(huì)顯示。

17.PopupList變量
    提供了對(duì)發(fā)向彈出菜單(popup menu)的Windows消息的集中處理
單元
    Menus
    var PopupList: TPopupList;
描述
    使用PopupList可以訪問(wèn)應(yīng)用程序中的全部彈出菜單或者訪問(wèn)響應(yīng)彈出菜單消息的窗口的窗口句柄。PopupList維持了在應(yīng)用程序中創(chuàng)建的全部彈出菜單組件的列表。這個(gè)列表保存一個(gè)集中處理發(fā)向這些彈出菜單的Windows消息的隱藏窗口的句柄。

18.RTLVersion常量
    指出Delphi運(yùn)行時(shí)庫(kù)的版本號(hào)。
單元
    System

    const RTLVersion = 15.0;
描述
    使用RTLVersion可以檢查不依賴于編譯器版本級(jí)別的Delphi運(yùn)行時(shí)庫(kù)的版本號(hào)。

19.Screen變量
    表現(xiàn)一個(gè)屏幕設(shè)備
單元
    Forms

    var Screen: TScreen;
描述
    Screen變量是一個(gè)表現(xiàn)應(yīng)用程序運(yùn)行時(shí)所在系統(tǒng)的屏幕的TScreen組件。默認(rèn)地,應(yīng)用程序會(huì)創(chuàng)建一個(gè)基于當(dāng)前屏幕設(shè)備有關(guān)信息的屏幕組件并將其賦給Screen變量。

20.Win32Platform變量
    指定Win32平臺(tái)的標(biāo)識(shí)符
單元
    SysUtils

    var Win32Platform: Integer = 0;
描述
    Win32Platform用于標(biāo)識(shí)系統(tǒng)運(yùn)行的Win32平臺(tái)的類型。這將會(huì)是下列值之一:
    值              含義
    VER_PLATFORM_WIN32s 系統(tǒng)是Win32
    VER_PLATFORM_WIN32_WINDOWS 系統(tǒng)是Windows 95
    VER_PLATFORM_WN32_NT 系統(tǒng)是Windows NT
    Win32Platform僅在Windows上可用。


上一篇:用Delphi編寫Win2000服務(wù)程序

下一篇:使用ACTIVEX和DELPHI開發(fā)串口通訊

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
學(xué)習(xí)交流
熱門圖片

新聞熱點(diǎn)

疑難解答

圖片精選

網(wǎng)友關(guān)注

主站蜘蛛池模板: 欧美1区 | 97国产一区二区精品久久呦 | 欧美日韩在线免费 | 在线观看毛片视频 | 国产精品夜夜爽 | 国产亚洲精品久久久久久青梅 | 成人在线片 | 国产成人在线视频观看 | 中文字幕精品三区 | 九九热最新地址 | 欧美一级毛片免费看 | 你懂的在线视频播放 | 四虎影视在线 | 男人天堂a| 欧美99视频 | 97香蕉久久国产超碰青草软件 | 波多野结衣av中文字幕 | 亚洲91精品 | 久草在线在线精品观看 | 综合色综合 | 精品欧美乱码久久久久久 | 精品日韩av | 日韩在线观看中文字幕 | 亚洲精品一区二区三区四区高清 | 久久久国产一区二区三区 | 亚洲天堂久久 | 亚洲综合在 | 中文字幕自拍偷拍 | 久久精品国产亚洲 | 国产在线视频一区二区 | 日批视频免费观看 | 99热在线播放 | 欧美在线激情 | 日韩电影免费在线观看中文字幕 | 日韩高清在线一区 | 蜜桃视频日韩 | 久久久久久亚洲精品 | 国产中文字幕在线观看 | 欧美日韩在线免费 | 一区二区三区久久 | 欧美有码在线观看 |