Delphi與Windows 7下的使用者賬戶控制(UAC)機制(加小盾牌),註冊表沒反應

來源:互聯網
上載者:User

WIN7, Vista提供的UAC機制,它的主要目的是防止對於作業系統本身的惡意修改。
對於Delphi程式的影響,UAC主要在於以下幾點:
1、由於UAC機制,Delphi對於系統的操作可能無聲的失敗,而同樣的程式,在2000/X下面可能運行正常。譬如註冊表的改動。。。
2、為了避免這樣的情況,Delphi程式必須支援Vista UAC標註,也就是說,在UAC程式的表徵圖下面顯示盾牌標誌。這樣可以在需要系統更高許可權的時候,提醒使用者。
為了讓程式顯示UAC標誌,現在看來Vista是通過讀取程式的資源(Resource)裡面的MANIFEST資源,來決定是否顯示“UAC盾牌”。
為了支援UAC,Delphi程式必須在資源裡面嵌入MANIFEST資訊。

1、首先編輯一個檔案名稱為UAC.manifest,內容如下:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">  
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel level="requireAdministrator"/>
      </requestedPrivileges>
    </security>
</trustInfo>
</assembly>

儲存為UAC.manifest,這裡檔案是隨意的。特別注意紅色的“requireAdministrator”,這個表示程式需要管理員(Administrator)才能正常運行。
 UAC Manifest 選項
          <requestedExecutionLevel  level="asInvoker" uiAccess="false"/>
          <requestedExecutionLevel  level="requireAdministrator" uiAccess="false"/>
          <requestedExecutionLevel  level="highestAvailable" uiAccess="false"/>

2、然後再建立一個編輯檔案,名為uac.rc,加入下面一行內容:
1 24 UAC.manifest

其中:
1-代表資源編號
24-資源類型為RTMAINIFEST
UAC.manifest-前面的檔案名稱

3、用brcc32編譯這個rc檔案為res檔案
brcc32 uac.rc -fouac.res
其中 -fo 設定輸出檔案名
4、開啟Project菜單下的View Source功能表項目或直接編輯項目的dpr檔案,然後在

{$R *.res}
下面添加一行
{$R uac.res}

或者將3,4合并為 {$R 'uac.res' 'uac.rc'}

重新編譯,讓Delphi編譯的時候,把uac.res編譯進exe檔案
程式表徵圖下面顯示UAC盾牌標誌了。

5、注意,這個程式不能運行在subst 虛擬磁碟機上,否則會提示“指定路徑不存在”
6、在編譯時間若產生錯誤:在project->options->application->enable runtime themes前面的勾取消,再編譯就可以了!

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.