Я сделал вот так:
Код:
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, в котором передаются параметры запускаемого приложения не обязательно должен быть константой.