Delphi XE7 и Excel 2010

[GNDragonFly]

Здравствуйте, уважаемые коллеги и любители программирования.
Помогите, пожалуйста, решить следующую проблему.
Имеются следующие ОС и ПО: Windows 7 Профессиональная x86 (32-битная) sp1, Microsoft Office Professional 2010, Embarcadero RAD Studio XE7: Delphi XE7, встроенный планировщик заданий (taskschd.msc).
Написал программу, которая создает Excel-файл, вносит в ячейки данные, форматирует книгу и сохраняет ее. Программа, можно сказать, работает на ура, кроме одного случая. При запуске ее через планировщик заданий Excel-файл не сохраняется, т.е. не работает метод FWorkbook.SaveAs (как и FWorkbook.Save). Происходит следующая ошибка: "Метод SaveAs из класса Workbook завершен неверно".
Помогите решить вопрос.
Ниже привожу исходный код функции из моей программы по работе с Excel.

function TMainForm.Test: integer;
const
  xlWorkbookDefault = $00000033; // = xlOpenXMLWorkbook
var
  FCLSID: TCLSID;
  FExcel, FWorkbook: OLEVariant;
  FName: string;
begin
  Result := 0;
  FName := ExtractFilePath(Application.ExeName) + 'test' +
    FormatDateTime('_dmmyy_hnns', now) + '.xlsx';
  // проверка, установлен ли  excel
  if (CLSIDFromProgID(PChar('Excel.Application'), FCLSID) = S_OK) then
  begin
    // запускаем Excel и получаем на него ссылку
    try
      FExcel := CreateOleObject('Excel.Application');
      FExcel.Visible := false;
    except
      inc(Result, 2);
    end;
    if Result = 0 then
    begin
      FExcel.DisplayAlerts := false;
      FExcel.SheetsInNewWorkbook := 1;
      FWorkbook := FExcel.Workbooks.Add; // создание новой книги Excel
      try
        FWorkbook.SaveAs(FName, xlWorkbookDefault); // сохраняем книгу на диск
      except
        on e: Exception do
        begin
          inc(Result, 4);
          toLog('', '4  ' + e.Message);
        end;
      end;
      try
        FWorkbook.WorkSheets[1].Range['A1:B1'].Value := now;
        FWorkbook.WorkSheets[1].Columns[2].ColumnWidth := 20;
        FWorkbook.WorkSheets[1].Columns[1].NumberFormat := 'ДД.ММ.ГГ';
      except
      end;
      try
        FWorkbook.Save; // сохраняем книгу на диск
      except
        on e: Exception do
        begin
          inc(Result, 4);
          toLog('', '8  ' + e.Message);
        end;
      end;
      if not VarIsEmpty(FWorkbook) then
        try
          FWorkbook.Close;
        except
        end;
      FWorkbook := Unassigned;
      if not VarIsEmpty(FExcel) then
      begin
        try
          FExcel.DisplayAlerts := false;
          FExcel.Quit; // (FExcel.Application.quit;) - Закрываем Excel
        except
        end;
      end;
      FWorkbook := Unassigned;
      FExcel := Unassigned;
    end;
  end;
end;

P.S.
1. Функцию я упростил (см выше); создал отдельный проект, состоящий только из этой функции, ее автозапуска, логирования и автозакрытия приложения - ситуация аналогичная.
2. Возможно (но проверить возможности пока не имею):
а)Если программу скомпилировать в Delphi 2010, то все будет работать;
б)Если программу, скомпилированную в любой версии Delphi ( 2010 - XE7), запускать под Windows XP либо Windows 2003, то все будет работать.
3. Начиная с Delphi XE2 в проекты часто вставляю:

{$IF CompilerVersion >= 23}
{$IF DECLARED(System.Variants.DispatchUnsignedAsSigned)}
  System.Variants.DispatchUnsignedAsSigned := true;
{$IFEND}
{$ENDIF}

для некоторых методов форматирования в Excel. В данной программе этот код никак не влияет на ошибку.
4. Ещё раз повторюсь. Программа не работает при запуске через ПЛАНИРОВЩИК ЗАДАЧ. При ЛЮБОМ другом запуске (через среду разработки, через файл, через ярлык, с любыми правами) ВСЕ РАБОТАЕТ.
5. Во вложении проект, созданный в XE7.

[Аватар]

exe где находится? Как у планировщика с полномочиями на запись в каталог exe-шника? Немного не так конечно - с какими полномочиями он exe запускает?

[GNDragonFly]

Сообщение от Аватар

exe где находится? Как у планировщика с полномочиями на запись в каталог exe-шника? Немного не так конечно - с какими полномочиями он exe запускает?

1) Программа (даже та, которая во вложении) пишет лог в текстовый файл (открывает его на запись, если файла нет - то создает его).
2) Также аналогичные мои программы, которые запускаются через планировщик, создают каталоги и подкаталоги, копируют и удаляют файлы.
Соответственно, проблем с записью на диск (именно программой) нет, но про приложение MS Excel 2010 Pro (а именно им сохраняется книга) ничего сказать не могу.
Помимо этого уточню:
1) Пробовал создавать задание в планировщике от имени текущего пользователя, от админа ПК и от админа доменной сети - результаты одинаковы. PS комп входит в домен.
2) Пути для сохранения excel-файла ставил разные: а) корень диска C; б) папка на диске C; в,г) аналогично с дисками D и E; д) в папке Delphi проекта; е) в папке "Мои Документы"; ж) в расшареной для других пользователей сети папке на моем компе, со всеми правами чтения и записи.
Другими словами перепробовал практически все варианты, которые пришли в голову.
Но! Вполне возможно, что из-за политики безопасности Windows 7 для задач, запущенных через планировщик, и возникают эти грабли.

Сегодня проверил.
Программа, скомпилированная в Delphi XE2 и XE7 нормально (без сбоев) отрабатывает через планировщик задач в Windows XP sp3.
Про Delphi 2010 не проверял.

[northener]

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

1) Пробовал создавать задание в планировщике от имени текущего пользователя, от админа ПК и от админа доменной сети - результаты одинаковы.

В планировщике галку "Выполнить с наивысшими правами" не пробовал ставить?

[GNDragonFly]

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

В планировщике галку "Выполнить с наивысшими правами" не пробовал ставить?

Да, делал. Кажись, уже все перепробовал.

[GNDragonFly]

В общем, частично я проблему решил.
В планировщике заданий (Windows 7 pro sp1 с обновлениями на апрель) при выборе действия "Создать простую задачу..." создавалась СКРЫТАЯ задача, хотя галочка в этом пункте не стоит. Решилось довольно тривиально: передергиванием галочки "Скрытая задача". Соответственно задача запускается "видимой" и сохранение Excel-файла происходит без ошибок.
Однако хотелось бы решить вопрос, когда задача запускается скрытой. Так что если есть идеи - делитесь.

[GNDragonFly]

Все возвращаюсь к своей проблеме (не для поднятия темы). Путем экспериментов оказалось, что предыдущий пост (за 26.05.2015) неверный.
Передергивание галочки "Скрытая задача" ничего не дает, т.к. проблема не в этом пункте,а в пункте: "Выполнять только для зарегистрированного пользователя". Если точка стоит на этом пункте, то выполнение задачи идет не в скрытом виде, и Excel-файл сохраняется без проблем. Если же стоит точка "Выполнять вне зависимости от регистрации пользователя", то файл не сохраняется.
Другими словами, если сервак (либо комп) включен, но пользователь не залогинен, то при выборе 1-го пункта задача не выполняется, при выборе второго пункта создается "скрытая" задача, влекущая за собой проблему, описанную в 1-м посте.