Question

在Windows 7 x64 SP1中，我收到此错误：

EInOutError：无法创建文件“C：\ Users \ Public \ Desktop \ test.txt”。访问被拒绝。

...当我运行以下程序时：

program TestConsoleApplication;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.IOUtils,
  System.Classes,
  System.SysUtils;

begin
  try
    System.IOUtils.TFile.WriteAllText('C:\Users\Public\Desktop\test.txt', 'test');
  except
    on E: Exception do
    begin
      Writeln(E.ClassName, ': ', E.Message);
      Readln;
    end;
  end;
end.

如何自动获取UAC提示？就像在Windows资源管理器中一样，我在尝试将文件复制到C:\Users\Public\Desktop时也会自动获得UAC提示。

编辑：我现在从Delphi 10.2内置的应用程序中提取了Manifest资源：

<?xml version="1.0" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0" xmlns:asmv3="urn:schemas-microsoft-com:asm.v3">
    <asmv3:application>
        <asmv3:windowsSettings xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">
            <dpiAware>True/PM</dpiAware>
        </asmv3:windowsSettings>
    </asmv3:application>
    <dependency>
        <dependentAssembly>
            <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" publicKeyToken="6595b64144ccf1df" language="*" processorArchitecture="*"/>
        </dependentAssembly>
    </dependency>
    <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>
            <!--The ID below indicates app support for Windows Vista -->
            <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"/>
            <!--The ID below indicates app support for Windows 7 -->
            <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>
            <!--The ID below indicates app support for Windows 8 -->
            <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"/>
            <!--The ID below indicates app support for Windows 8.1 -->
            <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}"/>
            <!--The ID below indicates app support for Windows 10 -->
            <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}"/>
        </application>
    </compatibility>
</assembly>

我可以在Delphi 10.1中将此清单文件用作自定义清单文件吗？

清单中的uiAccess="false"表达式是什么意思？

尝试写入受保护目录时自动获取UAC提示符？

0 个答案: