Запуск приложения

← →
Gaber © (2002-10-21 13:39) [0]

Есть 3 диска, на каждом обучающая программ, меня
попросили свести их на один, ну а я так просто захотел сделать
autorun, ну как на дисках с играми и прочим пиратским софтом, тоесть диск всовываешь появляется моя форма с рисунками и прочей лабудой, и
там три строчки
1. Программа
2. Программа
3. Программа
Нажимаешь на них и идет инсталляция.
Нашел FAQ по запуску программ, написал пример с command.com
(WinExec ("command.com", SW_RESTORE);), все
заработало, написал ссылку на инсталятор, ошибка
(WinExec ("R:\Uluchite\instal32.EXE", SW_RESTORE);), точнее запускается, но выдает ошибку что не может найти каталог DATA,
как буд-то пути потеряла.

← →
Игорь Шевченко © (2002-10-21 13:43) [1]

С собакой надо поискать пути...

← →
Metal Knight © (2002-10-21 13:45) [2]

Дело в инсталяторе программы...

← →
Демонов Е.В. © (2002-10-21 14:32) [3]

А может попробывать SHellExecute и там в какомто параметре передать каталог. Ну и конечно не R:\Uluchite - Букву диска нужно определять самому - может у когото это будет совсем другая буква. Например определить из строки возвращаемой Paramstr(0)

← →
Gaber © (2002-10-21 17:16) [4]

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

← →
TTCustomDelphiMaster © (2002-10-21 17:29) [5]

> Gaber © (21.10.02 17:16)
> а то такое ощущение, что программа не знает что и откуда
> ставить после запуска.

Может не знает, а может знает. Что гадать, вы проверьте. У вас есть какой-нибудь shell (dn, nc, wincom)? Попробуйте сначала запустить установку руками. А уж потом полученный результат запихивать в свою программу.

← →
Gaber © (2002-10-22 14:32) [6]

Не понял что вы имеете ввиду, установка проходит нормально, если делать в ручную, о каком результате вы говорите?

← →
roadster (2002-10-22 14:42) [7]

Надо плясать от корня диска, причем ParamStr(0) не прокатит- имени драйва не будет, надо ExpandFileName(ParamStr(0)) юзать.
Тогда имя драйва доступно будет. Ну а потом ExtractFileDrive()+"\DATA"... и т.д. в зависимости от ситуации.

← →
BorisMor © (2002-10-22 15:24) [8]

Неплохо бы текущиим каталогом делать папку с дистрибутивом.

chDIr("R:\Uluchite\");
WinExec ("instal32.EXE", SW_SHOW);

← →
Gaber © (2002-10-23 10:59) [9]

2 BorisMor >
Спасибо братуха, работает!

А не подскажети ли Вы, как запустить explorer и открыть в нем нужную папку.
Спасибо.

ShellExecute(Handle,"explore", "c:\Program Files\Borland",nil,nil,SW_RESTORE);

Извините за глупый вопрос, а если не проводник а просто окно, как у моего компьютера?

ShellExecute(Handle,"open", "c:\Program Files\Borland",nil,nil,SW_RESTORE);

Запуск приложения Найти похожие ветки