Delphi 5中使用Manifest处理UAC时出现空白窗口问题求助

你遇到的问题主要是Delphi 5对manifest资源的处理存在兼容性细节偏差，再加上资源配置的小错误导致的。我整理了几个关键修复步骤，一步步来就能解决：

1. 修正RC资源文件的格式问题 #

你的Carrie.rc文件内容是1 24 "InstallTester.manifest"，这里有两个容易踩的坑：

• Delphi 5里，RT_MANIFEST（类型值24）的资源ID虽然可以用数字1，但更规范的写法是用宏定义明确资源类型和ID，避免编译时的歧义；
• 如果manifest文件和RC文件不在同一目录，要确保路径绝对正确。

修改后的RC文件内容应该是：

#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
#define RT_MANIFEST 24
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "InstallTester.manifest"

2. 处理Manifest文件的编码问题 #

Delphi 5自带的brcc32资源编译器不支持UTF-8编码的manifest文件，这会导致资源编译异常。你需要把InstallTester.manifest转成ANSI编码（比如Windows-1252）：

• 用记事本打开manifest文件，点击「文件」→「另存为」，编码选择「ANSI」，覆盖原文件即可。

3. 移除重复的资源引用 #

你的InstallTester.dpr里同时引用了{$R *.res}和{$R 'Carrie.res'}，这很可能造成资源冲突。保留一个就行，建议移除{$R *.res}（因为默认项目res文件不含我们需要的manifest，手动编译的Carrie.res已经包含了），修改后的dpr代码：

program InstallTester;
{$R 'Carrie.res'}
uses
  Forms,
  InstallTest in 'InstallTest.pas' {Form1};
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

4. 手动重新编译资源文件 #

为了避免IDE自动编译可能出现的异常，建议手动用brcc32编译RC文件：

1. 打开Delphi 5的命令提示符（开始菜单→Borland Delphi 5→Command Prompt）；
2. 切换到你的项目目录，执行命令：

brcc32 Carrie.rc

生成正确的Carrie.res后，回到IDE重新编译整个项目。

5. 验证Manifest是否正确嵌入 #

编译完成后，你可以用Resource Hacker这类工具打开生成的InstallTester.exe，检查是否存在「RT_MANIFEST」类型的资源，且内容和你的manifest一致。如果存在，说明嵌入成功。

完成以上步骤后，再在IDE外运行程序，应该会正常弹出UAC权限确认窗口，不会再出现空白命令行窗口了。

附你提供的原始代码参考： #

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>

原始Carrie.rc

1 24 "InstallTester.manifest"

原始InstallTester.dpr

program InstallTester;
{$R *.res}
{$R 'Carrie.res'}
uses
  Forms,
  InstallTest in 'InstallTest.pas' {Form1};
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

InstallTest.pas

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.

内容的提问来源于stack exchange，提问作者Keila