「プログラム設定をレジストリに書き込むことは、アプリケーションの管理者権限を付与する適切な理由ではありません」とすでにコメントしました。ただし、どのような場合でも UAC マニフェストを含めることをお勧めします。共通requestedExecutionLevel
する必要がありますlevel="asInvoker"
。ドキュメントを参照してください
"Q: Adding manifest for admin rights request for delphi 7"
以下の 4 つのファイル (2 セット) を作成します。
(UAC のみ)
uac.manifest
<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="MyApp" type="win32"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
uac.rc
1 24 "uac.manifest"
(UAC + XP テーマ)
uac_xp.manifest
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity type="win32" name="MyApp" version="1.0.0.0" processorArchitecture="x86"/>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="*"/>
</dependentAssembly>
</dependency>
<!-- Windows Vista application security requirements. -->
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="requireAdministrator"
uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!--Windows 7-->
<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
<!--Windows Vista-->
<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
</application>
</compatibility>
</assembly>
uac_xp.rc
1 24 "uac_xp.manifest"
「プロジェクト > プロジェクトに追加」メニュー項目を使用して、目的のrc
ファイル (uac.rc
または) をプロジェクトに追加します。 uac_xp.rc
これ{$R}
により、プロジェクト ファイルにディレクティブが作成されます。
program Project1;
{.$R 'uac.res' 'uac.rc'} // UAC only
// OR
{$R 'uac_xp.res' 'uac_xp.rc'} // UAC + XP Themes
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
に注意してください{$R 'uac_xp.res' 'uac_xp.rc'}
。rc
Delphi はtoファイルを自動コンパイルしres
ます。
別の方法として、 Delphi IDE の外部でrc
ファイルをコンパイルすることもできます。次に、プロジェクトに手動でbrcc32 uac.rc
追加します。{$R 'uac_xp.res'}
他の XP マニフェストを使用していないことを確認してください。