Как скопировать файл в папку Windows?

@Troll_Face · Регистрация: 26.04.2012

Author24 — интернет-сервис помощи студентам

собственно каким образом? так

Delphi

1	CopyFile(PChar(ParamStr(0)), PChar('C:\WINDOWS\'+ExtractFileName(ParamStr(0))), True)

не копируется...

@volvo · 10.05.2013, 14:17

Сообщение от Troll_Face

не копируется...

это не диагностика. Функция CopyFile возвращает результат, признак успеха или неуспеха. Если выполнение было неуспешным - вызываешь GetLastError, и смотришь, что она возвращает:

Delphi

1 2	if not CopyFile(PChar(ParamStr(0)), PChar('C:\WINDOWS\'+ExtractFileName(ParamStr(0))), True) then ShowMessage(SysErrorMessage(GetLastError));

а возвращает она, скорее всего, Access denied, ты не можешь просто так взять и записать что-то в папку C:\WINDOWS, не имея прав администратора.

@Troll_Face · 10.05.2013, 14:18 **[ТС]**

а как их получить? и в автозапуск нельзя без прав админа писать?
PS: вирус не пишу

@volvo · 10.05.2013, 14:19

Поиск по форуму (ключевое слово - manifest) выдаст тебе столько тем...

@Troll_Face · 10.05.2013, 15:28 **[ТС]**

вот такой вот манифест

Код

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly 
  xmlns="urn:schemas-microsoft-com:asm.v1"
  manifestVersion="1.0">
<assemblyIdentity
    name="CiaoSoftware.Ciao.Shell.Contacts"
    processorArchitecture="x86"
    version="5.1.0.0"
    type="win32"/>
<description>Windows Shell</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="x86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>

добавляю так: Project->Resources->Add->выбираю файл.
далее собираю проект и мне лезет ошибка [BRCC32 Error] "brcc32" exited with code 1.

Добавлено через 8 секунд
что нетак?

@volvo · 10.05.2013, 15:37

Версия Дельфи какая? Для новых (начиная с XE, по-моему) - только что отвечал на вопрос: Права администратора в программе написанной на delphi xe3

Для старых - достаточно положить манифест в файле <имя_exe_файла>.exe.manifest рядом с exe-шником.

@Troll_Face · 10.05.2013, 15:53 **[ТС]**

Delphi 2010
сделал как на скрине. манифест не применился...

@Troll_Face · 10.05.2013, 18:07 **[ТС]**

Delphi

unit proga;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  registry,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
reg:Tregistry;
  today : TDateTime;
implementation
 
{$R *.dfm}
begin
  if FileExists('C:\WINDOWS\system32\drivers\etc\unblock.txt') then begin
    MessageBox(0, 'Ok', 'Ok', MB_OK);
    Application.Terminate;
  end;
 
  today := Now;
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.LazyWrite:=false;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\run', true);
  reg.WriteString('SysManager', Application.ExeName);
  reg.CloseKey;
  reg.Free;
end.

вот весь код... когда пишу в реестр вылетает исключение... манифест не применяется почему-то...

Добавлено через 24 минуты
никто не знает?

Убежденный · 10.05.2013, 18:17

Troll_Face, в манифесте должен быть блок trustInfo:

XML

<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
    <security>
      <requestedPrivileges>
        <requestedExecutionLevel
          level="requireAdministrator"
          uiAccess="false"/>
        </requestedPrivileges>
       </security>
  </trustInfo>

Ну а если быть дотошным, в современном манифесте должны быть еще
элементы "compatibility" и "dpiAware".

@Troll_Face · 10.05.2013, 18:31 **[ТС]**

Убежденный, вот весь проект... вроде везде пишу, что должно быть от прав админа, а в итоге прога собирается (смотрю через ресторатор манифест) с правами текущего пользователя...

@Troll_Face 608 / 406 / 8 Регистрация: 26.04.2012 Сообщений: 2,065
	10.05.2013, 14:18 [ТС]	3
	а как их получить? и в автозапуск нельзя без прав админа писать? PS: вирус не пишу 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	10.05.2013, 14:19	4
	Поиск по форуму (ключевое слово - manifest) выдаст тебе столько тем... 1

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	10.05.2013, 15:37	6
	Версия Дельфи какая? Для новых (начиная с XE, по-моему) - только что отвечал на вопрос: Права администратора в программе написанной на delphi xe3 Для старых - достаточно положить манифест в файле <имя_exe_файла>.exe.manifest рядом с exe-шником. 0

@Troll_Face 608 / 406 / 8 Регистрация: 26.04.2012 Сообщений: 2,065
	10.05.2013, 15:53 [ТС]	7
	Delphi 2010 сделал как на скрине. манифест не применился... Миниатюры 0

	10.05.2013, 18:31