Проблема открытия photoshop'a

[Юджин]

строки следующие:

Код: Выделить всё

Private Sub Command7_Click()
Shell "cmd.exe /c start Photoshop " + Chr(34) + File4.Path + "\" + File4.FileName + Chr(34)
End Sub


на компе установлены PS 7.0, CS, CS2. Последний глючил, его удалили. теперь при нажатии на кнопку выдается ошибка об отсутсвии файла photoshop и предложение его найти через пуск-найти... как быть?

[tyomitch]

емнип, исполняемый файл фотошопа называется photoshp
(только две буквы "o")

[Юджин]

уже пробовал - не катит

[ALX_2002]

2 Юджин: ВЫПЕТЬ МНОГА ЙАДУ. Мне помогло

А если серьёзно. Ну раз файла нет, то чего же ты хочешь от SHELL-а ?

Попробуй найти файл и подсунуть его полный путь в SHELL

[Юджин]

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

[uhm]

Объясните мне - а почему оно работало до того, как удалили фотошоп? Я не вижу в описании команды start возможность указывать исполняемый файл без указания пути к нему...

[Юджин]

вообще-то путь к исполняемому файлу забивается в File4.Path. А команда "Photoshop" вызывает стоящий по умолчанию фотошоп из реестра (аналогично написать shell cmd.exe) вроде нашел вариант, но если есть идеи - буду рад

[tyomitch]

Объясните мне - а почему оно работало до того, как удалили фотошоп? Я не вижу в описании команды start возможность указывать исполняемый файл без указания пути к нему...

Такая возможность есть благодаря ключу [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths]

[Antonariy]

Проверь что находится в HKEY_CLASSES_ROOT\Applications\Photoshop.exe\shell\open\command - у меня это "C:\Program Files\Adobe\Photoshop 7.0\Photoshop.exe" "%1"

И попробуй CreateObject("Photoshop.Application"), он все-таки ActiveX.

[Юджин]

решил проблему так

Код: Выделить всё

Dim photo(3) As String
Dim f As String
Dim i As Long
Dim k As String
photo(1) = "C:\Program Files\Adobe\Photoshop CS\Photoshop.exe"
photo(2) = "C:\Program Files\Adobe\Photoshop 7.0\Photoshop.exe"
photo(3) = "C:\Program Files\Adobe\Photoshop CS2\Photoshop.exe"

For i = 1 To 3
f = Dir(photo(i))
If f <> "" Then
k = Chr(34) + photo(i) + Chr(34) + " " + Chr(34) + File3.Path + "\" + File3.FileName + Chr(34)
Shell k
Exit For 'k '("cmd.exe /c start photo(i) " + Chr(34) + File3.Path + "\" + File3.FileName + Chr(34))
Else
End If
Next i


[GSerg]

Т.е. пользователю не разрешается ставить фотошоп на диск d, к примеру.

[Юджин]

пока да, но над этим работаем (чувствую себя программером windows)

[BV]

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

[Antonariy]

Для тех, кто в танке, поясняю:

HKEY_CLASSES_ROOT\Applications\Photoshop.exe\shell\open\command

Отсюда можно выяснить путь к фотошопу.
Метод

Код: Выделить всё

Set sp = CreateObject("Photoshop.Application")

вообще знания путей не требует.

[Юджин]

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

заморочками с усановкой никто особо не занимается, так что это можно и не использовать

[uhm]

tyomitch, круто, не знал про это.

Так это ж, вроде, решение проблемы? Восстановить просто ключик, погибший, видимо, при деинсталляции CS2? Т. е. проблема не в твоей программе, а в кривизне инсталляции/деинсталляции фотошопов?

[Юджин]

ага! и восстанавливать на всех машинах. только бы пользователи на переустанавливали системы очень часто!!! вопрос, вообще-то уже решен. спасибо.