![]() |
#5 |
Участник
|
Я сделал вот так:
Код: 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' Второй параметр shell, в котором передаются параметры запускаемого приложения не обязательно должен быть константой. |
|