Показать сообщение отдельно
Старый 05.02.2009, 18:37   #5  
Alterant is offline
Alterant
Участник
 
378 / 10 (1) +
Регистрация: 31.03.2004
Я сделал вот так:
Код:
  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, в котором передаются параметры запускаемого приложения не обязательно должен быть константой.