使用清单在Delphi 5中处理UAC会导致创建一个空白窗口

Question

我正在使用在Windows 7上运行的Delphi 5.我们现在要更新的旧应用程序存在UAC问题。我们可以通过更改注册表中的EnableLUA设置来绕过它，但这不是一个理想的解决方案。我试图提升它，并在网上发现了很多关于如何这样做的信息。在搞乱程序之前，我创建了一个名为InstallTester的非常简单的新程序，用于找出我需要用来解决这个问题的过程。然后我创建了一个名为InstallTester.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="InstallTester" 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>

然后我创建了.rc文件（名为Carrie.rc;起初我尝试将其称为InstallTester.rc，但我收到了重复资源错误，因此我更改了它）以包含清单：

1 24 "InstallTester.manifest"

然后我使用brcc32.exe编译了.rc文件，该文件创建了一个.res文件。然后我添加了行以在app.dpr中包含.res文件：

{$R 'Carrie.res'}

然后我建立了这个项目。现在当我运行它时（在IDE之外;在IDE内部，我得到错误，说它需要提升），我没有得到一个Windows窗口，询问我是否给予任何许可。相反，我得到了应用程序，加上一个看起来像命令提示符窗口但没有任何文本的窗口。它有一个光标，但我不能在其中键入任何内容：

如果它有用，请参阅完整代码：

program InstallTester;

{$R *.res}
{$R 'Carrie.res'}

uses
  Forms,
  InstallTest in 'InstallTest.pas' {Form1};

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit InstallTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg( 'Thanks!', mtInformation, [mbOK], 000 );
end;

end.

有没有人有解决方案？

Answer 1

此问题与您的清单无关。如果您的EXE编译为控制台应用程序而不是VCL GUI应用程序，那么您可以获得该黑色窗口的唯一方法。控制台应用程序可以访问Win32 API，因此可以显示GUI窗口，但它仍然需要一个控制台窗口。仔细检查您的项目，确保您创建了一个VCL表单应用程序，而不是控制台应用程序。

旁注：您的清单指定了对ComCtrl32 v6.0的依赖，以启用Visual Styles。 Delphi 5早于Visual Styles的引入，并且在启用Visual Styles时VCL中存在相当多的错误。其中一些是通过使用项目中的Soft-Gems XP Theme Manager组件修复的（最终在后来的Delphi版本中直接合并到VCL中）。否则，您应该从清单中删除对ComCtrls32 v6.0的依赖性，因为您不需要它来支持UAC。