Adobe X Включить защищенный режим при запуске — отключить с помощью кода

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

Я подозреваю, что это связано с глаголом open, который вы используете с ShellExecute. Вы предполагаете (возможно, неправильно), что глагол open делает то же самое в защищенном режиме на Win7, как и в предыдущих версиях Adobe Reader и Windows. (ПРИМЕЧАНИЕ: эта версия Acrobat не установлена ​​в моей системе; это все предположения.)

Первое, что я бы попробовал, это изменить вызов на ShellExecute следующим образом:

ShellExecute(0, nil, PChar(pdfFile), nil, nil, SW_NORMAL);

Первое изменение заключается в передаче nil в качестве второго параметра. Это сообщает Windows, что вы хотите, чтобы произошло действие по умолчанию. Например, это может быть view вместо open.

Я также изменил два параметра после имени файла на ноль. Это более читабельно, чем использование пустой строки ('').

Окончательное изменение в последнем параметре; Я обычно использую SW_NORMAL вместо SW_SHOW просто потому, что это говорит Windows показывать его в любом размере и положении по умолчанию; это может быть что-то, сохраненное приложением, и оно будет действовать в соответствии с предпочтениями пользователя (если таковые имеются).

Если это не сработает, пора порыться (осторожно!!) в реестре Windows. Откройте regedit в элементе управления «Поиск» в меню «Пуск» и перейдите к HKEY_CLASSES_ROOT. Прокрутите расширения файлов вниз, пока не найдете запись для .pdf, и дважды щелкните эту ветвь. Вы увидите Default, то есть (по крайней мере, в моей системе) AcroExch.Document с Content Type из application/pdf.

Продолжайте движение вниз по дереву на левой панели, пока не найдете AcroExch.Document, и разверните его. Там вы увидите несколько значений (опять же, с моей машины), как вы можете видеть на изображении ниже. Разверните ветку Shell, и вы увидите определенные глаголы, а также связанные с ними команды. На моей машине (опять же) у меня есть один глагол Open, команда которого установлена ​​на "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe" "%1".

(Потерпите меня — мы почти у цели. Обещаю.)

Вы можете увидеть, что двойной щелчок делает по-другому, изучив значение по умолчанию (нажмите Shell на левой панели, а затем посмотрите, что установлено как (Default) на правом. Затем изучите командную строку (на втором изображении выше это Open). ), чтобы увидеть, какие переключатели передаются приложению Acrobat Reader, если они есть (если вы не можете понять, какой из них используется по умолчанию, щелкните правой кнопкой мыши файл .pdf в проводнике Windows и посмотрите, какой элемент выделен жирным шрифтом в контекстном меню. )

Если передан параметр, отличный от "%1", вам необходимо добавить тот же параметр в командную строку, предоставленную для ShellExecute. Например, если параметр равен /v, вы должны изменить вызов ShellExcute примерно так:

ShellExecute(0, nil, PChar(pdfFile), PChar('/v'), nil, SW_NORMAL);

Я оставил это позади, но теперь у меня есть время, и я вернулся, чтобы попытаться решить проблему.

Я узнал, что клиентское приложение использует GetEnvironmentVariable('USERPROFILE') для получения части папки, в которой находятся отчеты. Это дает мне что-то вроде «c:\users\user_name\» в Windows 7, а затем добавляет константу с чем-то вроде «Мои документы\CompanyFolder\ProductFolder».

Под Win XP это работало нормально, но под Win 7 похоже, что UAC по какой-то причине не позволит вам направлять и конкретно ссылаться на «Мои документы» - вместо этого вам нужно использовать «Документы».

Я изменил константу, чтобы удалить часть «Мои документы», и добавил функцию для извлечения личной папки документов пользователя с использованием параметра CSIDL_Personal и функции:

function GetSpecialFolderPath(folder : integer) : string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0..MAX_PATH] of char;
begin
  if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
    Result := path
  else
    Result := '';
end;

и вызов такой функции, как GetSpecialFolderPath(CSIDL_Personal).

Спасибо всем за то, что уделили время комментариям и ответам.

Просто хочу добавить, что этот ответ является правильным ответом в моем случае. Возможно, ответ @Ken White является правильным ответом для кого-то другого.