VPF::Проблема с открытием папки - Форум программистов

astral

Дата 3.5.2006, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 10.4.2006
Где: Питер

Репутация: нет
Всего: нет

Подскажите как надо.
Хочу в прооге открыть заданную папку, но она не открываеться, только приложение фокус теряет и всё.
вот фрагмент, вроде правильно

Код


procedure OpenFolder(path:String);
begin
  ShellExecute(0, 'explore', PChar(path), nil, nil, 0);
end;

Vit

Дата 3.5.2006, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

ShellExecute(Handle, 'Open', 'Explorer.exe', nil, PChar(path), 0);

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Snowy

Дата 3.5.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Просто немножко не туда

Код

ShellExecute(0, 'explore', nil, nil, 'C:\Windows', SW_SHOW);

astral

Дата 3.5.2006, 16:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 10.4.2006
Где: Питер

Репутация: нет
Всего: нет

Спасибо. А я мучался.

Rennigth

Дата 3.5.2006, 16:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

Vit,
Snowy,
а вы проверяли?... у меня нето, нето не отработало... smile

Код


  ShellExecute(0, 'Open', PChar('Explorer'), PChar(APath), nil, 
SW_SHOW);

--------------------

(* Honesta mors turpi vita potior *)

astral

Дата 3.5.2006, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 10.4.2006
Где: Питер

Репутация: нет
Всего: нет

у меня вот так работает

Код


ShellExecute(0, nil, PChar(path), nil, 'explore', 1);

Snowy

Дата 3.5.2006, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код

ShellExecute(0, 'explore', nil, nil, PChar(APath), SW_SHOW);

Прекрасно работает.
Может ты просто каталог неверно указал?

astral

Дата 3.5.2006, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 10.4.2006
Где: Питер

Репутация: нет
Всего: нет

щас проверил и так работает

Код


ShellExecute(0, 'explore', nil, nil, PChar(APath), 1);

и так работает

Код


ShellExecute(0, nil, PChar(path), nil, 'explore', 1);

только открывает по разному: с типичными задачами или с проводником.

кстати у меня на SW_SHOW ругаеться, что надо подключать.

Snowy

Дата 3.5.2006, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Цитата(astral @ 3.5.2006, 17:28

)

hellExecute(0, 'explore', nil, nil, PChar(APath), 1);

Это открывает проводник. Т.к. указано explore.

Цитата(astral @ 3.5.2006, 17:28

)

ShellExecute(0, nil, PChar(path), nil, 'explore', 1);

Это просто открывает папку, т.к. 'explore' здесь не указано. Точнее указано, но совсем не там, где надо. Поэтому по дефолту работает 'open'.

Цитата(astral @ 3.5.2006, 17:28

)

кстати у меня на SW_SHOW ругаеться, что надо подключать.

SW_SHOW = 0. Так что они равносильны.

DvarfInkvizitor

Дата 3.4.2007, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 10.7.2006
Где: М.о. г. Климовск

Репутация: нет
Всего: нет

Всем привет!

У меня вопрос, касающийся данной темы:
как сделать, что бы по нажатию кнопки открывался диалог открытия ПАПКИ ( не файла!!) и соответственно передавался обратно путь выбранной папки??
это реализуется обычным диалогом TOpenDialog??

Snowy

Дата 3.4.2007, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

DvarfInkvizitor, вопрос никак не касается данной темы.
На будущее - создавай отдельный топ.
По сабжу - смотри FAQ:
http://forum.vingrad.ru/base/Kak-vyivesti-...papok-2543.html
http://forum.vingrad.ru/base/Using-the-She...Folder-889.html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »