Как предоставить высоту с Delphi

Я написал приложение базы данных, которое импортирует данные из файла Excel в базу данных Access.

У меня никогда не было проблем с запуском приложения, вставкой записей в базу данных, но как только я запускаю функцию импорта данных из Excel в Access, я получаю следующее предупреждение:

запрошенная операция требует повышения по коду штампа:

LAccess := CreateOleObject('Access.Application');

что вызывает это и есть ли способ обойти это

1 ответов


на CreateOleObject функция delphi внутренне вызывает CoCreateInstance метод WinApi, который требует повышения. у вас есть несколько вариантов, чтобы справиться с этим.

1) Добавление манифеста в приложение, включая запрошенный уровень выполнения requireAdministrator.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    name="Your app name goes here"
    processorArchitecture="x86"
    version="5.1.0.0"
    type="win32"/>
<description>your app description goes here</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
           type="win32"
           name="Microsoft.Windows.Common-Controls"
           version="6.0.0.0"
           processorArchitecture="x86"
           publicKeyToken="6595b64144ccf1df"
           language="*"
        />
     </dependentAssembly>
  </dependency>
   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
      <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
      </requestedPrivileges>
    </security>
   </trustInfo>
</assembly>

2) Вы можете запустить вторичный процесс с повышенными правами, который будет выполнять задачу или создать COM-объект, который работает с повышенными правами, вы можете найти подробнее в эти записи в MSDN