SHELL в Nav 4.0 и в Nav 3.6

[grif]

Необходимо вызвать архивацию файлов из кода навижен.
В версии 3.6. без всяких вопросов канает вызов SHELL с указанием пути к WinRAR и параметров архивации, но аналогичный код в 4.0 работат с идиотскими запросами
---------------------------
Microsoft Business Solutions-Navision
---------------------------
Вы собираетесь впервые запустить следующий исполняемый файл:

Исполняемый файл: C:\WinRAR\WinRAR.exe
Параметр: A -ep -ibck ...

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

Вы доверяете этому исполняемому файлу и его параметру?

---------------------------
Да Нет
---------------------------

Как можно их отключить? Ещё как вариант хочу записать это в bat и вызывать сам bat-файл с помощью SHELL, но почти уверен что опять будет запрос

[RedFox]

Цитата:

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

Необходимо вызвать архивацию файлов из кода навижен.
В версии 3.6. без всяких вопросов канает вызов SHELL с указанием пути к WinRAR и параметров архивации, но аналогичный код в 4.0 работат с идиотскими запросами

Вопрос - как Вы задаете параменты для 4.0? Так?

ExecName := 'C:\windows\notepad.exe';
param := 'C:\MyFile.txt';
ret := SHELL(ExecName, param);

[grif]

ага, потому что иначе он ругается либо что не найден файл, либо что там символы неверные
т.е. я нажимаю ДА и всё что надо архивируется, но запрос хочется скрыть

[apanko]

Цитата:

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

ага, потому что иначе он ругается либо что не найден файл, либо что там символы неверные
т.е. я нажимаю ДА и всё что надо архивируется, но запрос хочется скрыть

Попробуйте shell(text001,text002), где text001, text002 - текстовые константы.

[Alterant]

Я сделал вот так:

  IF EXISTS(RarPath) THEN
	 TmpShellReturnCode := SHELL(RarPath, всякие параметры)
   ELSE BEGIN
	 CLEAR(BatFile);
	 BatFile.TEXTMODE(TRUE);
	 IF BatFile.CREATE(BatPath) THEN BEGIN
	   BatFile.WRITE(путь к winrar.exe из настроек и параметры);
	   BatFile.CLOSE;
	   TmpShellReturnCode := SHELL(BatPath);
	   IF ERASE(BatPath) THEN;
	 END;
   END;

где:
RarPath - текстовая константа = 'C:\Program Files\WinRAR\WinRAR.exe'
BatFile - переменная типа File
BatPath - текстовая константа = 'c:\navexec.bat'

Цитата:

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

Попробуйте shell(text001,text002), где text001, text002 - текстовые константы.

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

[grif]

С константами работает, щас глянул хелп и там действительно про это есть. Спасибо. Правда конечно кривовато в коде гвоздями прибивать пути к рару или бат файлу

[Alterant]

Цитата:

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

Правда конечно кривовато в коде гвоздями прибивать пути к рару или бат файлу

Тогда используйте WshShell.Run
где WshShell - Automation 'Windows Script Host Object Model'.WshShell

Подробнее здесь:
http://www.nextequalzero.com/2007/06/how-t...stead-of-shell/

и здесь:
http://msdn.microsoft.com/en-us/libr...ky(VS.85).aspx

[grif]

точно, спасибо за идею, всё работает