Ошибка ShellExecute: Параметр задан неверно

[WindRunner]

Доброго времени суток!
Сделал на Делфи AutoRun (автозагрузчик для дисков) . Доступ к папкам и экзешникам на диске осуществляется через ShellExecute:

ShellExecute(handle, 'open', 'Документация', nil, nil, sw_show);
ShellExecute(handle, 'open', 'install.exe', nil, nil, sw_show);

При тестировании программы на компе, все отлично. Все папки открываются без проблем.

Запускаю программу с диска. На окне появляется мое окно с выбором того что можно сделать: «установить программу», «обновить», «документация» и так далее.
При выборе, например «Документация», открывается папка с документацией. Закрываю папку, пробую еще раз, выдается ошибка Explorer.EXE: «Параметр задан неверно».
В обработчике кнопки «Документация» только ShellExecute.
Причем, это ошибка возникает, только если пытаешься открыть папки, при открытии экзешников все нормально.

Опытным путем определил, что если зайти в компьютер под администратором или запустить программу от имени администратора, то такой ошибки не возникает.
Таким образом, это ошибка ShellExecute связанная с правами доступа.

Подскажите, как можно решить данную задачку

[Max1548]

Поставить манифест на права администратора? Чтобы сразу запускалась от имени админа и без проблем?

[northener]

При выборе, например «Документация», открывается папка с документацией. Закрываю папку, пробую еще раз, выдается ошибка Explorer.EXE: «Параметр задан неверно».
В обработчике кнопки «Документация» только ShellExecute.
Причем, это ошибка возникает, только если пытаешься открыть папки

При открытии папки меняется текущая директория (CurrentDir). При первом вызове ShellExecute текущая директория это "папка где лежит ЕХЕ-шик". При повторном вызове текущая директория это "папка где лежит ЕХЕ-шик"/Документация. Так что при повторном вызове вы пытаетесь открыть папку "папка где лежит ЕХЕ-шик"/Документация/Документация

Замените

ShellExecute(handle, 'open', 'Документация', nil, nil, sw_show);

на

ShellExecute(handle, 'open', PChar(ExtractFilePath(Application.ExeName)+'Документация'), nil, nil, sw_show);

[WindRunner]

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

При открытии папки меняется текущая директория (CurrentDir). При первом вызове ShellExecute текущая директория это "папка где лежит ЕХЕ-шик". При повторном вызове текущая директория это "папка где лежит ЕХЕ-шик"/Документация. Так что при повторном вызове вы пытаетесь открыть папку "папка где лежит ЕХЕ-шик"/Документация/Документация [/CODE]

В данном случае, у меня директория не меняется (для тестирования поставил вызов MessageBox), как при первом запуске была директория "Документация", при втором также и осталась.

Добавил определения пути к .exe (PChar(ExtractFilePath(Application. ExeName)+'Документация') результат тот же.

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

[Alter]

Так тоже не заработает у вас?

procedure TForm1.Button1Click(Sender: TObject);
var
  S :string; // чтобы визуально меньше места занимал код
begin
 S := ExtractFilePath(ParamStr(0)) + 'Документация';
  // вместо "Handle" в "ShellExecute" также можно писать "0".
  // ShellExecute(0, nil, PChar(S), nil, nil, SW_NORMAL);
  // v1. Просто открыть папку
 ShellExecute(Handle, nil, PChar(S), nil, nil, SW_NORMAL);
  // v 2. Открывается двухпанельное окно Explorer
 ShellExecute(Handle, nil, PChar('Explorer'), PChar(Format('/e,/root,"%s"', [S])),
              nil, SW_NORMAL);
  // v3. Выделяем папку в проводнике
 ShellExecute(Handle, nil, PChar('Explorer'),
              PChar(Format('/e,/select,"%s"', [S])),
              nil, SW_NORMAL);
end;

[WindRunner]

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

Так тоже не заработает у вас?

// v1. Просто открыть папку
ShellExecute(Handle, nil, PChar(S), nil, nil, SW_NORMAL);
Результат такой же - не работает! (с нулем тоже)

// v 2. Открывается двухпанельное окно Explorer
ShellExecute(Handle, nil, PChar('Explorer'), PChar(Format('/e,/root,"%s"', [S])),
nil, SW_NORMAL);
Ошибка explorer.exe: "Этому файлу не сопоставлена программа для выполнения этого действия. Установите программу или, если она уже установлена, создайте сопоставление с помощью компонента панели управления "Программы по умолчанию"

// v3. Выделяем папку в проводнике
ShellExecute(Handle, nil, PChar('Explorer'),
PChar(Format('/e,/select,"%s"', [S])),
nil, SW_NORMAL);
В общем то так можно обойти данную ошибку (ошибка не возникает), т.к., тут не происходит открытие конкретной папки, а открывается только текущая папка где лежит exe файл и выделяется нужная папка. Но это не особо удобно!