Delphi 7 设置管理员权限及打包资源文件的方法

一，Delphi 7 设置管理员权限

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' uiAccess='false' />
      </requestedPrivileges>
    </security>
  </trustInfo>
</assembly>

2. 再新建一个文本文件，命名为uac.rc，文件内容如下：

1 24 uac.manifest

3. 打开命令行，编译成res的资源文件，使用如下指令进行编译：

brcc32 uac.rc

4. 在代码中加入资源文件

Main in 'Unit.pas' {frmMain};
{$R *.res}
{$R uac.res}

二，Delphi 7 将文件打包在EXE里面，生成资源文件

1. 用文本文件定义打包清单，文本文件命名成app.rc，格式如下：

RC1 FILE1 FILE1.DLL
RC2 FILE2 FILE1.EXE

2.使用命令行编译app.rc文件

brcc32 app.rc

3.在代码中加入资源文件的引用

Main in 'Unit.pas' {frmMain};
{$R *.res}
{$R app.res}

4.若要解压文件，则使用如下代码实现：

procedure ExtractResToFile(const ResName, ResType,FileName: string);
var
  Res: TResourceStream;
begin
  Res := TResourceStream.Create(HInstance,ResName, PChar(ResType));
  Res.SaveToFile(FileName);
  Res.Free;
end;

调用代码的方法如下：

ExtractResToFile('RC1','FILE1','FILE1.DLL');

三，Delphi 7 程序图标支持大图标

1. 用文本文件定义打包清单，文本文件命名成mainico.rc，例如Win7至少48x48，Windows 10最大的512x512等, 格式如下：

MAINICON ICON mainico.ico

2.使用命令行编译mainico.rc文件

brcc32 mainico.rc

3.在代码中加入资源文件的引用

Main in 'Unit.pas' {frmMain};
{$R *.res}
{$R mainico.res}