[Delphi] Проблема CopyFile в Windows 8

Сегодня первый раз столкнулся с Windows 8. И как понял она даже мне администратору выдает предупреждение при переносе файлов с раб стола в C:\, не говоря уже о том что при создании в списке вылезает только "Папку". А мне нужно программно скопировать например:

Code:

CopyFile(Pchar('C:\test.txt'), Pchar('C:\test2.txt'), True);

И это не получается, что же делать?

 

Запускай приложения с админ права, всего одно окно предупреждения при старте.

 

Да помогло, теперь вопрос в другом, как бы программно запустить программу с этими правами?

 

Нужно добавить файл-манифест, в нем указать что программе нужны права администратора, примеров в гугле кучаааа.

 

С манифестом все отлично получилось заюзал вот эту статью http://krez0n.org.ua/archives/318 а точнее вот этот код засунул через программу Restorator:

Code:

<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
        <requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
      </requestedPrivileges>
    </security>
  </trustInfo>
</asmv1:assembly>

Программа открывается от имени Администратора, единственное палево остается в алерте подтверждения запуска, решается же цифровой подписью программы, но это уже другая история.

Теперь же проблема в том что не получается программно удалить файл из за "TrustedInstaller":


Как бы ее обойти или решить программно?

 

Москва зловреда пишеш? Посодют

 

Да не совсем зловреда, заразить одного чтоб спасти миллионы)